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PREFACE 



This manual contains a complete listing of MPE V UB Delta- 1 (Version G. 02. 01) microcode for the HP 
3000 Series 64/68/70 computers. It is intended to be used by Hewlett-Packard TSEs, SEs, CEs, and other 
support personnel for troubleshooting purposes. The manual listing is divided into fourteen major parts 
which are listed in the table of contents. Miscellaneous commands and smaller code groups will be found 
between sections as a result of the page -segmented microcode architecture. 
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PAGE 1 HP 3000 Series 64/68/70 Microcode 10/ 2/86 9:26 AM 

RECORD C.S. .».».....«« /^Lu A «<«««•••««• ....•..«<,...« ALU B •«•«••*•••••«• 

NO ADDR LABL RREG SREG F UNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP COMMENT 

2 SLLUT 

3 <,....«...•..•.•*«•••...*..•«*•*••.•.•••.....<,•.»>«« ...!,<.•.••<<••.»«* . 

4 • • 

5 • * 

6 .. • 

7 . . . « 

8 •••* ICF/55 Microprogram • 

9 • • ' * • • 
10 «•«• Version with CST extension 8k * 
11... . 

12 .. . 

13 * * 

14 * See location 111 for embedded version number • 

15 • 

16 • REV 0709A 7/9/82 CHANGED DIMS (DEFERRED INTERRUPT SUBROUTINE) • 

17 « THAT THE CPU WILL GO BUSY WHEN ENTERING; AND • 

18 • CHECK FOR MSG INTERRUPT BEFORE EXITING. 

19 " • 

20 • REV 0831A 8/31/82 CHANGED IN CLDl TO READ 2ND BYTE OF COLDLOAD « 

21 « DEVICE ID AND DO UNLISTEN/UNTALK TO HPIB. « 

22 • FIX FOR IOWA CITY PROBLEM WITH BFD COLDLOAD • 

23 • * 

24 « REV 0903A 9/3/82 CHANGED CMPS/CMPT COBOL INSTRUCTION TO FIX • 

25 • COMPARE OF LONG TO SHORT (SR 33445, BOEING). « 

26 • • 

27 .... CHANGES FOR CST EXTENSION MADE TO MICROCODE •'• 

28 • AFFECTED INSTRUCTIONS; PCAL , EXIT , IXIT , SCAL « 

29 • LLBL.XBR, PARC, LST.SST, LAP, LAIP. • 

30 « ALSO AFFECTS: INT8 , INT9 ,CLFN , STTV ,CSTV . « 
3i « * 

32 • REV PR0118A 1/18/83 CHANGED IN STOREBYTE SBS&SBD (SR 4700-15545) • 

33 • FIX IN MPYD(SRDl) SR 9999-201353,4700-021048 • 

34 * » 

35 • REV PR2305A 2/4/83 CHANGED IN MWOL TO FIX MVBW BOUNDS CHECKING • 
:t6 " BUG. SR 4700-15461 LONGS DRUGS. ALSO CHANGED • 

37 * BNDV AND NRM TO REPORT PARM IN SPOA CORRECTLY* 

38 * SR 21287. FOUND BY RON JONAS. ALSO CHANGED 

39 • MICROCODE REV CODE TO BE STANDARD HP DATECODE* 

40 * • 

41 • REV PR2306A 2/8/83 CHANGED IN DUMP TO WRITE SPIB (HALT CODE) TO * 

42 * MEM LOC %1514 FOR DPAN. SR 32447 • 

43 • • 

44 * (iEV 2307A 3/9/83 CHANGED IN ALGN AND VMLD TO HANDLE CASE IN • 

45 • WHICH THE LAST BYTE OF THE SOURCE FIELD * 

46 * SHARES THE WORD WITH THE FIRST BYTE OF THE * 

47 • FIELD. ALSO FIXED BUG IN SETTING 0' PUNCH/ • 

48 * NOT O'PUNCH XR2 FLAG. SR4700-034223 (EBI CORP)* 

49 • ALSO FIXED MDWO SO THAT THE SIGNIFICANCE • 

50 • TRIGGER IS SET CORRECTLY. SR 4700-24075 * 

51 • * 

52 • REV PR2310A 3/29/83 CHANGED IN ALGN TO BACK OUT 2307 CHANGE TO • 

53 • 0VERPUNCH-XRB2 LOGIC. FIXED, IN 'FILL' TO • 

54 " * CORRECTLY HANDLE OVERPUNCH CONDITIONS * 

55 » • 

56 "REV PR23HA 4/5/83 CHANGED IN MWOL TO LEAVE THE TOS REGS WITH • 

57 .* CORRECT VALUES IF TRAP TAKEN AND NO BNDV • 



PAGE 2 HP 3000 Series 64/68/70 Microcode 10/ 2/86 9:26 AM 

RECORD C S ........... ALU A .••••«•••». ............. ALU B ••........•«•« 

NO ADDR LABL RREG SREQ FUNC SFNC STOR SPSK RREQ SREG FUNC SFNC STOR SPEC SKIP COfWENT 

58 • ' * 

59 • REV PR2312A 4/19/83 CHANGED CRTW TO CLEAR XRBlOl ON COLDLOAD TO * 

60 • DISABLE DCU LOGGING INTS UNTIL ENABLE BY MPE • 

61 • * 

62 • REV CX2314A 5/23/83 INITIAL RELEASE OF CST EXTENSION MICROCODE * 

63 • INCLUDES FIX TO ENDP IN WHICH THE WRONG ALU • 

64 • WAS CALLED OUT--RESULTING IN ALWAYS LOGICAL * 

65 • MAP MODE FOR THIS INSTRUCTION. * 

67 • REV CX2317A 7/11/83 FIXED LAP 4 LAIP FOR STACK HANDLING PROBLEM. * 

68 * SR 9999-201395 WAS THE REPORTED PROBLEM IN • 

69 * IN NON CSTX CODE. THIS VERSION REWRITES • 

70 • LRA-PCALO LOGIC FOR CSTX TO INCLUDE THIS FIX.* 

71 « WHEN PUSHING TO Z+1 . FORMERLY ALLOWED THIS. * 

72 • * 

73 * REV CX2318A 7/12/83 FIXED IN PSHM AND PSM2 TO STACK OVERFLOW * 

74 • ALSO FIXED IN PCL7 TO FIX MAPFLAG PROBLEM. • 

75 • • 

76 • REV CX2319A 8/9/83 FIXED IN MMAP TO REWRITE XRA12 WITH 4000H • 

77 • ON POWERFAIL RESTART. ALSO CHANGED IN SIOl ' 

78 • AND CCPP TO REMOVE ALL USE OF RWX6 SPECIAL-A • 

79 « (WHICH DOES NOT WORK DUE TO HARDWARE PROBLEM)* 

80 * REPLACED W/ R0X3 . KANSAS CITY/3M/DMD PROBLEM * 

81 • WITH lOB CACHING. ALSO REARRANGED PARC TO DO * 

82 * AUDIT TRAIL FOR DEBUG OF POSSIBLE HDWE PROB . * 

84 • REV CX2320A 8/10/83 REMOVED AUDIT TRAIL IN PARC INSTRUCTION 

85 • LEFT PARC REARRANGED AS IN PR2319A. THIS IS * 

86 • TO GET AROUND A HDWE PROBLEM WHICH SEEMS TO * 

87 * CAUSE FAILURE BASED ON WHERE IN WCS THE CODE * 

88 • RESIDES. EXACT CAUSE OF FAILURE IS UNKNOWN * 

89 « * 

90 « REV CX2324A 9/29/83 MODIFIED NWAP TO DELETE CHANGE OF CX2319A 

91 ' WHICH CAUSED PFAIL TO DIE CHANGED PON TO • 
9.^ • WRITE 4000 INTO XR12. CHANGED ENDP TO GET • 
91 * AROUND POSSIBLE HDWE PROBLEM WITH LITERALS. * 

11 • ALSO FIXED XEO TO BACK UP P ON STACK O'FLOW * 

)') * ALSO FIXED BUG IN ABSD FOUND IN DESK CHECK * 

96 • ' 

97 • REV CX2326A 10/17/83 FIXED IN LAIP TO ADD A NOP LINE SO THAT SFl * 

98 « WILL NOT BE KILLED BY FAKE NEXT. 

99 • * 

100 * REV CX2328A 11/16/83 FIXED PCL3 CHECK FOR SEG > «ENTS 

101 * * 

102 « REV CX2330A 11/29/83 FIXED READ STATUS COMMAND IN CS80 DISC CHANL * 

103 * PROGRAM USED FOR LOADS. STARTS, AND DUMPS. 

104 * WAS 00, SHOULD HAVE BEEN OD ALSO FIXED MVBW * 

105 * TEST FOR SPLIT STACK SHOULD HAVE USED "SUB",* 

106 • NOT "CAD" ALSO FIXED BUG IN ENDP WHERE WE * 

107 • GOT A BOUNDS VIOLATION WHEN WE SHOULDN'T 

108 • HAVE AFTER A NON-MATCHING PARAGRAPH NUMBER 

109 • • 

110 • REV CX2332A 12/10/83 Added two NOP lines after ABSD fo stop 

111 ' WCS PARITY ERRORS from ABSD during micro- • 

112 • instruction pre-fetch cycles * 
113* 
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RECORD C.S. ..«.«,..»... ftLu A •«••••*•••• ..»«...*».«.. alU B •«•••••••**»•• 

NO ADDR LABL RREG SREG FUMC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP COMMENT 

114 « REV CX2334A 1/14/84 Fixed DUMP failure afJer "Invalid Address -- " 

lis • Module 5" errors (Note; NIR will be invalid * 

116 * in DUMPS made after this kind of sytem error)* 

117 * Added DSJ to channel program for mag tape * 

118 • after read of transfer count to keep Antelope* 

119 * and Buckhorn happy during Loads and Starts * 

120 * Also, fixed CSEG problem with NRPGMSEGS. • 

121 * • 

122 * REV CX2336A 2/24/84 Fixed CSEG problem with LSTT address * 

123 * » 

124 * REV CX2420A 6/1/84 Fixed CVDB in response to SR«s 4700-099259, * 

125 * 4700-069906, and 9999-201617. Also fixed * 

126 « the SLD instruction (SR« 4700-105114) * 

127 * • 

128 • REV CX2428A 7/30/84 Fixed Bounds Violation problem in response • 

129 * to SRt 4700-13326 (Anderson College). • 

no • * 

lil • REV CX2511A 3/19/85 Changed CS-80 channel program (used by Start,* 

132 • Load, 4 Dump) to begin with Device Identify * 

133 * instead of Selected Device Clear This is in * 

134 • response to the 7933/5 HPIB <Clear> <Clear> • 

135 * disc spindown problem due to the 793X MR 5.0 * 

136 * microcode changes that make a <Clear> do a * 

137 * recalibrate. * 

139 « REV CX2518A 5/16/85 FIXED ' BNDE RSB' INTERACTION PROBLEM IN LDWC * 

140 * CJS/EBD (BNDE WAS NOT BEING PROCESSED PROPERLY) • 

141 • • 

142 • REV TX2526A 7/29/85 Fixed generalized BNDE/RSB problem with TICB • 

143 * EBD/BEL construct to slow the RSB down, some places * 

144 • drop the RSB down one line if not slower. • 

145 • • 

146 • REV CX2527A 8/6/85 Re-wrote FLSH (the FLUSH instruction) to 

147 • CJS flush the new 128Kb cache or the old cache. * 

148 * • 

149 • REV CX2545A 11/4/85 Second release to U-MIT. Fixes the MM-3000 

150 « JLT/EBD CSD COBOLII hang, and SUPRTEST ABORT problems • 

151 * SR«S 4700189167, 4700190629, AND 4700191379. • 

152 * Suspected cause; pipeline interaction with • 

153 * TICB (skip) construct on RSB/BNDE (STATE FARM)* 
154 

155 • REV TX2553A 12/30/85 Added XP performance enhancement microcode. * 

156 * MRG/BEL This includes: new LST/SST , ISTR , ERON , ERXT , * 

157 • JLT/EBD XGDB , TIMR . TMRQ ,MSTA , and ENPF . These changes • 

158 * don't appear until the "Enable Performance" • 

159 * (ENPF) instruction has been executed. Also • 

160 • added a feature to DUMP which puts the ucode * 

161 " datecode into the word at memory location * 

162 • SYSGLOB Extension %20 so it can be printed. * 

163 • Commentary is at header of each instruction * 

164 • • 

165 • REV CX2603A 1/16/86 Documentation update. Also added NOPs to • 

166 • BEL each code break so never causes freezes. * 

167 * * 

168 * REV CX2604A 1/23/86 Fixed a bug in ERXT in the section of code 

169 • JLT that deals with aborting processes. • 
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RECORD 



170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
133 



18 7 

IRS 

183 

190 

191 

192 

193 

194 

195 

196 

196 1 

196 2 

196 3 

197 



HP 3000 Series 64/68/70 Microcode 
C S ........... ALU A *••••••••«• ............. ALU B •••••••••••**• 

ADDR LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



REV CX2605A 1/30/86 Fixed the version save code in dump, turning 
BEL off WCS parity checking when we grab the 

version number from location 11 as it enters 
the pipeline Parity checking turned back on 
immediately following this by the JSB/RSB. 

REV CX2606A 2/10/86 Fixed ERXT so that it passes the correct 
JLT parameters to Abort. 

REV CXA606A 8/18/86 Fixed CVBD to call LEN with correct 
CYL pa rame t e r s . 

REV CX2625A 6/17/86 Fixed the routine TCLK in order to be able to 
JLT keep track of time correctly even when the 
systems are flushing constantly. 

REV CX2635A 8/26/86 Second release to UB-MIT. Contains fixes to 
CYL/JLT SR ■ s concerning the following routines: 
PCAL, PCL3, DCMD, lOMS , EBND, EFOV, XBR , 
ASEG, ALGN. SETR . AND CVBD. Also contains 
the Prarie Project changes that allow the 
HP9144 to be used as a coldload device, the 
fix to TCLK that fixes the problem of time 
loss in S70 A systems, and the fix to the 
7MB hang problem 

REV CX2638A g/26/86 Documentation update for 2635. 

JLT 



10/ 2/86 9:26 AM 



Absolute Entry Points 

....... ALU A ««•» « ......**.«*.» ALU B •••••«««•••••«■ 

ADDR LAEIL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



Unimplemented Instruction Entry Point 
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RECORD 


C S 




NO 


ADDR 


LAEIL 


199 




..>.. 


200 






201 






202 






203 




. . . . : 


204 






205 


0000 


TRAP 


207 






208 




. * . * 1 


209 






210 






211 






212 




.... 


213 






214 


0001 


POME 


216 






217 




.... 


218 






219 






220 






221 




.... 


222 






223 


0002 


clde: 


225 






226 






227 


0003 




229 






230 




* * * * 1 


231 






232 






233 






234 




* * * * 1 


235 






236 


0004 


DMPE 


238 


0005 
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Power On Ent ry Point 



Cold load ent ry point 



INC 
ADD 

Dump ent ry point 



XR15 
X 



JSL CKSM BNKD 
JSL LOAD BKX3 



Unimplemented instruction entry point 



UNC Power on entry point; RA .= @ZI 



NFl Set LOAD bit in XRA15; BNKD := (for #CKSM) 
cliecksum WCS & LUT and initialize module 
map if not coming from the STRT instr'n 

UNC X := 0; BKX3 := 0, go to cold load routine 



INC LSL XR15 
JSZ DMPX UNC 



JSZ PSHA BKX3 

ADD SF4B 



SRNZ Empty TOS registers, BKX3 := 

Set DUMP bit in XR15; BKX4 :» 0, go dump it 



PAGE 6 NOP Instruction 10/ 2/86 9:26 AM 

RECORD C S ........... ALU A •»••••«•••« »...«.....«»« alu b •«*••••••••••• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

241 ..................................................................... 

:: i? ' NOP (No Operation) Instruction ' 

2, 13 ..»...............».»........................«...................*.*» 

214 • 

245 SLUT INSTR=NOP 000 000 000 xxx xxx, ENTRY«NOP, DSPL»6 

246 

247 0006 NOP ADD ADD NOP instruction 

249 0007 NEXT ADO ADD STFF NEXT STFF in case of BCCNM; NEXT 
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RECORD 


OS. 


NO 


ADDR 1. 


252 


,. 


253 


'* 


254 


1* 


255 


» 


256 


i« 


257 


» 


258 


» 


259 


0008 1' 


261 


0009 


263 




264 




265 


OOOA 


267 




268 




269 




270 




271 




272 




273 




274 




275 


OOOB P 


277 




278 




279 




280 


OOOC 


282 




283 


OOOD 


285 




286 


OOOE 


288 




289 


OOOF 


291 





Code to Pull TOS 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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PULM pulls the top of the stack in memory and places it in 
the bottom of the stack in registers. PULM checks tor stack 
underflow and therefore should be called before changing 
the stack or any software known registers 



SM 
Q 



ADD 

JSZC STUl 



ROS 
NCRY 



FFFF SM 
SR 



ADDL 
ADD 



SM 
CTR 



PUL2 pulls two locations from the top of stack i 

into the TOS registers. PUL2 checks for stack u 

therefore should be called before changing the s 
software known registers. 



n memo 
nderf 1 
tack 



ry 

ow and 
any 



SM 


ADD 




ROS 


FFFF 


SM 


ADD 




CAD 




RH ROS 


SR 




ADD 


OPA 


ADD 




REGN 


UBA 





CAD 


OPA 


ADD 




REGN 


RH 




CAD 


UBA 


JSZ 


STUN 


UNC 




SM 


INC 



CTR INSR 

ICTR NEG 
SM INSR RSB 
SM DCSR 



Read TOS in memory; SM : « SM - 1 

STUN if not (SM > Q) , JSB to entry which 

increments SM and decrements SR ; 

CTR .- SR for REGN store, inc SR 
REGN := TOS in memory; UBB := SP3B, RSB 



Read TOS in memory; SM : = SM - 1 
Read (TOS - 1) in memory; 

CTR := SR for REGN store, inc SR 
REGN := TOS in memory; Inc CTR for next 

Skip if not ( (SM - 1) > Q) 
REGN : » (TOS - 1) in memory; SM = SM - 

inc SR , return 
UBA -.' QDWN, stack underflow; 

Restore SM and SR 



PAGE 8 






RECORD 


C.S. 




NO 


ADDR 


LABI 


293 




• 


294 




%00 


295 






296 




A It * 1 


297 






298 






299 




A A Ik ^ 


300 






301 


0010 


IR 


303 






304 




* * * > 


305 






306 






307 






308 






309 






310 




* * * 


311 






312 


0011 




314 






315 




« * Hi) 


316 






317 






318 






319 




A « * 1 


320 






321 


0012 


IRD 



Overhead Line Target for Interrupts 10/ 2/86 9:26 AM 

.AAA. »*..«. f^ltj ft ....... ...A .....AAAAOAA f.^) g A ......... A A A . 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



The following line is for interrupts detected before * 

executing the left stackop of a paired stackop instruction. ■ 

JSZ IRH UNC ADD Jump to interrupt handler 

This location is used to communicate information to the DCU. * 

It should never be executed nor pulled into the pipeline. * 

Do not modify this location without knowing what tne DCU is * 

expecting to find here. The FUNC A SFNC fields contain a * 

date code in the form MMDDVb . i e.. 0929M • 

4D4A 4D20 2638 5820 CON ASCII data for the DCU 



The following line is for interrupts detected before any 
instruction other than a paired stackop. P is decremented 
by one before jumping to the interrupt handler. 



JSB for interrupt 
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SR P 


readjust Routines 










RECORD 


C S. 




* * * A 


AAAAftftAAA 


•••» ALU B 


A A A A > 


k A A A A ) 


NO 


ADDR 


lABL 


RREG 


SREQ FUNC SFNC STOR SPSK 


RREG SREG 


FUNC SFNC 


STOR 


SPEC 


324 




»***i 


<••<,« 


**l,l,l,t*1,l,l,„»*l,kt»ttH,tt»*t 


.AAAAAAAAAA 




AAAAAAAAAA. 


325 


















326 






There are two identical copies of the SR preaiijus' 


I roul 


1 ine . 


327 






If 


the instruction in NIR is 


not a paired stackop 
.ine is incremented b' 


then 


the 


328 






jump target of the overhead 1 


f two 




329 






The 


second copy of the routine handles 


this case. 


The 




330 






preceeding overhead line is: 










331 


















332 








SM JSZ SRPA ROBS 


FFFF SM 


ADDL 


SM 




333 


















334 




* * * * » 


t A A * * 


A************************* 


iAA**Aii|«A*A 




it A Ik A A I 


k A A A A : 


335 


















336 


0013 


S:RPU 




JSZ STNU UNC 


SM 


INC 


SM 


DCSR 


338 


















339 




%0014 












340 


















341 


0014 


s;rpa 


UBA 


JSZC SRPU NEG 


SR 


ADD 


CTR 


INSR 


343 


















344 


















345 


0015 






ADD NEXT 


OPB 


ADD 


REQN 


STFF 


347 


0016 




UBA 


Q JSZC SRPU NEG 


SR 


ADD 


CTR 


INSR 


349 


















350 


















351 


0017 






ADD NEXT 


OPB 


ADD 


REGN 


STFF 



10/ 2/86 9:26 AM 



Jump; SM :« SM + 1, decrement SR 



JSB if {SM <- Q) for stack underflow 

(P, SM and SR need to be adjusted); 

CTR :- SR for REGN store, ine SR 

NEXT; REGN :- TOS in memory, STFF for BCCnm 

JSB if (SM <• 0) for stack underflow 

(P, SM and SR need to be adjusted) 

CTR := SR for REGN store, ine SR 

NEXT; REGN := TOS in memory. STFF for BCCnm 
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RECORD 


C.S. 


NO 


ADDR 


354 




355 




356 




357 




358 




359 




360 




361 


0018 


363 




364 


0019 


366 


001 A 


368 




369 




370 




371 




372 




373 




374 




375 




376 


OOIB 


378 


OOIC 


3 80 


OOID 


382 


OOIE 



Routines to Push TOS 
LABL RREG SREG FUNC SFNC STOR SPSK 



•••••.....*•• ALU B ......•.••«..« 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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PSHM pushes the bottom of the stacK in the TOS registers 
onto the top of the stack in memory PSHM checks for stack 
overflow and should therefore be called before changing 
the stack or any software known registers. 



SM DCSR F5B 



QDWN ADD 
RH ADD 



Z SREG JSZC STOl 
SP3B ADD 



NEG 
RSB 



PSM2 pushes the bottom two TOS registers onto the top of the 
stack in memory PSHM checks tor stack overflow and should 
therefore be called before changing the stack or any software 
known registers 



SM INC 
ODWN ADD 
QDWN ADD 
RH ADD 



WRS ADD DCSR 

DATA UBA INC SM DCSR 
DATA Z SREG JSZC STOl NEG 

SP3B ADD RSB 



Write at (SM ♦ 1); SM := SM + 1, decrement 

SR, skip STOV check if from ttlMS 

Write QDWN; STOV if not (Z >= new (SM)) 
UBA ;« RH; UBB :> SP3B, RSB 



Write at (SM + 1); Decrement SR 
Write ODWN; SM :» SM + 2. decrement SR again 
Write ODWN; STOV if not (Z >= new (SM)) 
UBA :- RH; UBB :• SP3B , RSB 
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RECORD 

NO 

385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
4U 
412 
413 
414 
415 
416 
418 
420 
421 
423 
424 
426 
427 
429 
430 
432 
433 
435 
436 
438 
440 
441 
443 



Interrupt Handler 
..»*•...«*. ALU A .«»,..*.... 

LABL RREG SREG FUNC SFNC STOR SPSK 



Interrupt Handler 



**.*.<, »...<,*. ALU B •••«••«•«•*<.•* 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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Entered if a hardware interrupt was pending at the end of the 
preceding clock or an overflow interrupt is pending at the 
beginning of the current clock. The following interrupts are 
processed by their bit settings in CPXl and CPX2 : 



CPXl bit set 

R 1 
R 2 
R H 4 
R 6 
R H 8 
R 9 
R 11 
R H 12 

CPX2 bit set 



Interrupt pending 

Integer Overflow 

Bounds Violation 

Run/Halt Switch 

TCLK Interrupt 

DCU Command Interrupt 

Message Interrupt 

Memory Breakpoint Interrupt 

Power Fail Interrupt 

Condition existing 

RUN FF 



All interrupts are processed thru »INT8 (non-ICS) or #INT9 
(ICS), with external program label in SPIB and parameter in 
SPOA, with the exception of Run/Halt Switch, DCU Command 
Interrupt and Power Fail Warning. 



OOIF IRON 0500 ADDL 

0020 JSB 

0021 IRH 0200 CPX2 ANDL 

0022 CPXl CSL 

0023 OAOO ADDL 

0024 SP4A JSB 

0025 CPXl JSB 

0026 PFWM 0008 CPXl ANDL 

0027 UBA ADO 



SP4A 
RH 



IRQ 
IMS 



NEG 
MSGI 



FFFF P 

UBA 



UBA 
1120 UBA 

UBB 
UBA UBA 



0400 SP4A ANDL 
JSL 



ADDL 
ADD 

ADD 

JSL 

ANDL 

JSL 

JSB 



P 
CTR 



CCPX 
STFF 



RMIT 
BNDV 

TCLK BKX3 
PFW 



N2R0 
NEG 



ZERO 
UNC 



UBA :- mask for FAKENEXT; P « P - 1 
Wait one clock so that FAKENEXT does not 

inhibit STFF; FAKENEXT initializes flags 
UBA := RUNFF; CTR := 0, STFF in case CIR is 

a BCC 
SP4A :» UBA :» CPXl 4 csl(l); 

Jump If a halt mode interrupt 
RH := mask to clear TCLK interrupt; 

UBB :• run mode interrupts 
Jump if run mode interrupt else 

jump if integer overflow 
Else jump if bounds violation else 

iump if message interrupt 
A := PFWINT; Skip if not TCLK interrupt 
UBA := PFWINT (for ilMS) ; 

BKX3 ;= 0, jump if TCLK interrupt 
Jump if powerfail interrupt else 
SYSHALT if any other interrupt 
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RECORD 


C.S 


NO 


ADDR L 


445 




446 




447 




448 




449 




450 




451 


0029 S 


453 


002A 



Set SR to Recover Stack 
.<...•*.... ALU A •»•••••.««• 
LABL RREQ SREQ FUNC SFNC STOR SPSK 



.........*«.. ALU B ••••.•«•••••*. 

RREQ SREQ FUNC SFNC STOR SPEC SKIP 



Set SR to Recover StacK Module 



ADD 
ADD 



SR 
UBB 



RE PC 
CAD 



CLSR ZERO 
INSR ZERO 
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UBB :■■• SR, REPC if <> 0, SR » ESR 
Increment SR & ESR 
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RECORD 


C S. 


NO 


ADDR 


456 




457 




458 




459 




460 




461 




462 




463 




464 




465 




466 




467 




468 




469 




470 




471 




472 




473 




474 




475 


002B 


477 


002C 


479 


002D 


481 


002E 


483 


002F 


485 


0030 


487 


0031 


489 


0032 


491 




492 


0033 


494 




495 


0034 


497 


0035 



Non-ICS Type Interrupts 
<,...«......, ALU A ••••••••••• 

LABL RREG SREG FUNG SFNC STOR SPSK 



.*...••••..** ALU B •••*«• •••«««i»« 
RREG SREG FUNG SFNC STOR SPEC SKXP 
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Non-ICS Type Interrupt entry 

Entered it a non-ICS type hardware or firmware 
interrupt is detected. This module will: 



INT8 
IRl 



Empty TOS registers 

Write a four word stack marker 

Place parameter on top of user's stack 

Set STATUS to privileged mode and code 

segment* 1 (ININ) 

If from ttSNDV then clear interrupt bit 

CPXl 

Place CIR into X register 

Go set up code segment ttl (ftPCL3) 



SM INC 

ODWN ADD 

ADD 

ADD 

ADD 

STA ADD 

SUB 

SM INC 

ADD 

SP2B ADD 
CIR ADD 



WRS 


SR 


SM 


RE PC 


SM 


DCSR 


sr;; 


DATA 




P 


ADD 




DCSR 


SRI.2 


DATA 


UBB 
UBB 


PB 
XR12 


SUB 
I OR 




CLSR 




DATA 






ADD 








DATA 


0004 


SM 


ADDL 


SM 






DATA 


UBB 




ADD 


Q 


INCN 




WRS 


8001 




ADDL 


SP2B 






DATA 




UBA 
XR14 


ADD 

ADD 
JSL 


SM 

PCL3 


CF2 
CCPX 


NFl 
UNC 



YRGA :• SM + 1 for write; SM : = SM + SR 
Empty TOS registers to memo ry ; UBB = P' REG 
Write (X) to stack marke r ; UBB»P-PB ,SR=0 

;UBB=P-PB lOR MAPFLAG (CSTX) 
Write (delta P) WTH L/P BIT (CSTX) 

Write STATUS), RD :» STATUS; SM : = SM + 4 
Write (delta 0); :» SM, set NAMER 
YRGA ;■ SM + 1 for parameter; SP2B := priv 

mode 4 segment* 1 tor STATUS 
Write (parameter); SM :■ SM + 1, clear F2 , 

skip if not from ttBNDV thru STSR 
Set STATUS; Clear internal interrupt in CPXl 
X :« CIR; Go set up segment* 1 
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RECORD 


C.S. 


NO 


ADDR 


500 




501 




502 




503 




504 




505 




506 




507 




508 




509 




510 




511 




512 




513 




514 




515 




516 




517 




518 


0036 


520 


0037 


522 


0038 


524 


0039 


526 


003A 


528 


003B 


530 


003C 


532 


003D 



Interrupt Control Stack Set Up Routine 

*********** /^[_yj A •••••tut*** •• <•**«•••«•• A|_y B ••(•••>«*••••* 

LABL RREQ SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



Interrupt Control Stack Set Up Module 

Called when twitching from the user's stack to the 
Interrupt Control Stack (ICS). The ICS set up 
module will : 

1) Read 01 and set Q 

2) Read Zl and set Z 

3) Set DL to 01 

4) Set the contents of 01-6 to S-relative 
address (S - user DB) 

5) Set ICSFLAG bit in CPX2 to 1 

6) Set SH to Q-^2 for parameter 
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comiHJ 



UBA ADD 

UBA INC 

FFFC ADDL 

UBA UBB ADD 

FFFE UBA ADDL 

UBA ADO 

RC OPA SUB 



ROBS 
R0B3 



WRX3 0002 Q 





ADD 




ADDL 


SM 


ADD 


OPB 


ADD 


OPB 


ADD 





ADD 


Q 


ADDL 


XRll 


ADD 



Address absolute 5 for 01; BKX3 



XRll 


Read 


RC 


Read 





UBA 


Z 


Read 


DL 


UBA 


SM 


Set 


CCPX RSB 


(01- 



mask to set ICSFLAG 
user ' s St ack 



,„I: XRBll , 
I ZI; RC :« G 
-4; • 01 
01-41 ; Z ;■ ZI 
01-6; DL :- 01 
Set up write at 01-6; S - 0+2 
■" *' S - (01-4); Set ICSFLAG, return 
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RECORD 

NO 

535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
565 
567 
569 
571 
573 
575 
577 
579 
581 
583 
585 
587 
589 
591 
593 
595 
596 
598 
600 
601 
603 
605 
607 
609 
610 
612 
614 



C.S. 
ADDR 



003E 
003F 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
004A 
004B 
004C 
004D 

004E 
004F 

0050 
0051 
0052 
0053 

0054 
0055 



Firmware Interrupt Entry Points 

*.«•«««•»«« ALU A •«••••«•••* «..«.«.«..... ALU B ••••••«••«••«• 

LAEIL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



Firmware Interrupt Entry Points 

Called by the firmware when various conditions 
are detected. These interrupts include; 
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TRP 
PSHL 



OOFE STA 

DSTV 
STDl 
STUN 
TRP6 

STOl 1000 STA 

UBA STA 

UBB 

003F 
RREG OPA 



1000 STA lORL 

ST02 ADD 

STOV 1000 CPX2 ANDL 

UBB ADD 

JSB 
UNCL SPIB ADD 



Interrupt Entry Point 

TRP 
STTV 

CSTV 

DSTV 

STUN 

TRP6 

STOV 

UNCL 

BNOV 

PON 

PFW 

ABDS 

ABCS 

TRCE 

NRMI 



ADD 

ADD CFl 

ADD SPOA 

ADD 

ANDL 

JSB PSHL UNO 

ADD 

ANDL 

JSB PSHL UNO 

JSB PSHL UNO 

ADD 

JSB PSHL UNO 

JSB PSHL UNO 

ANDL SP4A 

XOR STA 

ADO ROP 

ADDL 

AND ZERC 



Desc ript ion 

unimplement ed instruction 

Segment Transfer Table 

Violat ion 

Code Segment Table Violation 

Data Segment Table Violation 

Slack UNderflow 

privileged mode violation 

Slack overflow 

STT ent ry UNCaLlable 

BouNDs Violation 

Power ON (enters from (31) 

Power Fail Warning 

ABsent Data Segment 

ABsent Code Segment 

TRaCE segment 

Non-Responding Module 



ADDL SPIB 

ADD CRF 

JSB INT8 

ADDL SPIB 

ADD 

JSB STTH 

ADDL SPIB 

ADD 

JSB CSTH 

ADDL SPIB 

INC SM DCSR 

ADDL SPIB 

ADDL SPIB 

ADDL SPIB 

ADD ROP 

JSB STOV 



XR12 
UBA 



XR12 
UBA 



9401 

9501 

FFFF P 

UBB 
SP4A 

FOOD OPB 
SPIB 



ZERO 
ZERO 



ZERO 
ZERO 



FFFF P 
9801 

UBA 



INT9 SF2 
SPOA CFl 



ANDL 

JSB STOV P 

ADD 

ADDL P 
ADDL SPIB 
JSB STOH 

ADD 

ADDL SPIB 



ZERO 
UNC 



Jump 

(CSTX) 

(CSTX) 

(CSTX) 
(CSTX) 



: SPIB :' external label (%110001)) 
Clear Fl; Clear RFLAQ 
SPOA :> external label as parameter; 
; SPIB :° ext label (%110401) 
SEQ 1 AND NOT PHYS MAPPED' 
SYSHALT if segmentt 1 else trap 

; SPIB :» ext label (%111001) 
SEG 1 AND NOT PHYS MAPPED? 
SYSHALT if segmentt 1 else trap 
Trap; SPIB :• external label (%111401) 
STUN entry to inc sm and dec SR 
Trap; SPIB :• external label (%112001) 
Trap; SPIB :• external label (%112401) 
SP4A ;» right stackop bit- SPIB := P - 1 
Clear right stackop bit; Reread instruction 
Reread instruction into OPA also; 

Jump if right stackop bit was set 
RREG :• right stackop mask; Skip if stackop 
Skip if no right stackop; 

P :» P - 1; lump if not a stackop 
Set right stackop bit in STATUS 
; P := P - 1 to restart instruction 
On ICS?; SPIB ;• external label (%114001) 
SPOA := external label, clear Fl; 

SYSHALT if on ICS 
Jump to ICS interrupt, set F2 ; Clear F4 
SPOA = parameter (P - LABEL), clear Fl; 

SPIB := external label (%120401) 
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RECORD 


C S. 




NO 


ADDR 


LABL 


615 


0056 




617 


0057 


BNDV 


619 






620 


0058 




622 






623 


0059 




625 


005A 


PFW 


627 


0058 




629 


005C 


ABDS 


631 


005D 


ABCS 


633 






634 


005E 




636 


005F 


TRCE 


638 






639 


0060 




641 


0061 


NRM 


643 






644 






645 


0062 




647 


0063 





Firmwira Interrupt Entry Points 
•• •••• ALU A «*•••••*••• 

LABL RREG SREG FUNC SFNC STOR SPSK 



.....t*...... ALU B *•••' 

RREG SREG FUNC SFNC STOR 





ADO 
ADO 






SFl 


AOOO 




ADO 








8101 


UBB 
RD 


ADD 

ADD 

ADDL 

JSB 

ADD 


INT8 


SPOA 
STA 


CFl 
CFl 


A201 
9F01 


RD 


JSB 
ADD 


IRl 


STA 


UNC 
CFl 


AOOl 




JSB 
ADD 


IRl 




UNC 
CFl 




UBB 


ADD 
ADD 




SPOA 




8301 



JSB 
ADDL 

ADDL 

JSB 

ADD 

JSL 

ADDL 

ADDL 

JSB 
ADDL 

JSB 
INC 



ADDL SPIB 
JSB INT8 



XR14 
SPIB 



PFWO BKX3 
SPIB 
SPIB 
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SPEC SKIP COhWENT 

UNC ' Jump to tet up segment* 1 
Set Fl (for tIRl) ; 

XRB14 :• mask to clear BNDVINT in CPXl 
Jump to undo EPOP's and EPSH's & enter «INT8 
, SPIB :< external label |«100401) (2305) 
UNC SP0A-SP18-PARM;JMP TO UNDO 4 INT8 (2305) 
SF4B ; Set F« (for tL2PF & «10MS) 

UNC UBA - Command to go BUSY; BKX3 :» 0, jump 
Trap, clear Fl; SPIB :■ ext label (%12l001) 
STATUS :• TSTA, clear Fl; 

SPIB ;- external label (%117401) 
F2 Absent seg in EXIT; Absent seg in PCAL 
STATUS :• TSTA, clear Fl 

SPIB :- external label (%120001) 
F2 Trace in EXIT; Trace in PCAL 
RONP Non- responding module (actually non-existing 
lOA module), clear Fl; Increment P & read 
instr after 2nd word (I/O opcode) 

,SP1B- EXT LABEL-y,101401 (2305) 
UNC Set up trap to seg* 1, STT* 3( non-ICS) (2305 ) 
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RECORD 

NO 

650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
675 
677 
679 
681 
683 
685 
687 
689 
691 
693 
695 
697 
699 
701 
702 
704 



C S 
ADDR 



Arithmetic and User Traps 
........... fti u f^ ........... 

LABL RREG SREG FUNC SFNC STOR SPSK 



............. ftLij B .............. 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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0064 
0065 
0066 
0067 
0068 
0069 
006A 
006B 
006C 
006D 
006E 
006F 
0070 
0071 

0072 



Arithmetic and User Trap Handler 

Called by arithmetic firmware modules when the 
following conditions are detected: 



Interrupt Entry Point 

TRPl 
TRP2 
TRP3 
TRP4 
TRP5 
TRPO 
TRPA 
TRPD 
TRPS 
TRPR 
TRPZ 



Desc ript ion 

integer overflow 
floating point overflow 
floating point underflow 
integer divide by 
floating point div by 
decimal overflow 
invalid ascii digit 
invalid decimal digit 
invalid source count 
result count overflow 
decimal divide by 



IRO F7FF STA 
TRPl 

TRP2 0002 
TRP3 0003 
TRP4 0004 
TRPS 0005 
TRPO OOOB 
TRPA OOOC 
TRPD GOOD 
TRPS OOOE 
TRPR OOOF 
TRPZ 0010 
UTRP 2000 STA 
USA 



ANDL 

INC 

ADDL 

ADDL 

ADDL 

ADDL 

ADDL 

ADDL 

ADDL 

ADDL 

ADDL 

ADDL 

ANDL 

JSB 

ADD 



STA 

SPOA 

SPOA 

SPOA 

SPOA 

SPOA 

SPOA 

SPOA 

SPOA 

SPOA 

SPOA 

SPOA 



STSR 



ADD 








JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


JSB 


UTRP 




UNC 


ADDL 


SPIB 






ADD 




CFl 




ADD 




SOV 


NEXT 



Clear overflow bit in status register 

Integer overflow, param = 1 

Floating point overflow, param = 2 

Floating point underflow, param = 3 

Integer divide by 0. param = 4 

Floating point divide by 0, param = 5 

Decimal overflow, param • %13 

Invalid ascii digit, param ° %14 

Invalid decimal digit, param = %15 

Invalid source count, param > %16 

Result word count overflow, param = %17 

Decimal divide by 0, param = «20 

Traps enabled? SPIB := ext label (%114401) 

JSB to set SR and enter «INT8 if process 

trap enabled; Clear Fl 
If traps not enabled then set overflow bit 

in STATUS and do NEXT instruction 
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RECORD 

NO 

706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
726 
727 
729 
730 
732 
733 
735 
736 
738 
739 
741 
743 
744 
746 
747 
749 
750 
751 
753 
755 
756 
758 
759 
761 
763 
765 
767 
768 



C S. 
ADDR 



0073 

0074 

0075 

0076 

0077 

0078 
0079 

007A 

007B 



007C 
007D 

007E 

007F 
0080 
0081 
0082 

0083 



External Inte r rupt /Channel Service Request Module 

•....«....« ALU A »»»««•••«.« ............. ALU B •••••••••••••• 

LABL RREQ SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



External Inte r rupt /Channel Service Request Module 

Entered by interrupt handler if message interrupt flag 
in CPXl is set 
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1) 


Read messa^ 


|e in 


incoming b 


uffer 










2) 


Clear messi 


ige in 


t e r rupt f 1 


ag 










3) 


If CSRQ then set 


F2 












4) 


If external 
and process 


inte 


rrupt then 


ilNTt 


1 to 1 


set up ICS 






5) 


Else if channel 


service rei 


quest 


flag 


is set 








process it 
















6) 


System halt 


( !10) if neithi 


e r is 


set 




...., 


..... 





........... 


..... 







,...., 




0C02 




ADDL 






UBA 


JSZ 


PFWM 




0402 




ADDL 






UBA 


ADD 




RH BUSC 


0090 




ADDL 


SP4A 




UBA 


ADD 




BUSC 






JSZ 


PSHM 


SR7 


OPB 


ADD 




SP3B SF5B 


0038 


use 


ANDL 


XR9 




OOCO OPB 


ANDL 




SPIB 


use 


UBB 


ADD 


SWAB 


HBF2 


SP4A 


ADD 




CCPX 




SPIB 


JSZ 


NOSX 


ZERO 




JSL 


TCSQ 


BKX5 




STA 


ADD 


LSL 


POS 


8000 


ADDL 




SP3B 






JSB 


INT9 


UNC 


FFF8 


ADDL 




SP2B 



UBB XR9 ADD 
RREG UBA ADD 



UBB XR15 lOR 



ZERO SP3B REPC 
ZERO UBB ADD LSR 



CCPX 



DOOO 
1000 STA 
RSRT P 



ADD 
ADDL 
ANDL 
ADD 



RONP 
UNC 



ADDL SP3B 

JSL lOMS UNC 

RH ADD LLZ BUSC 
UBA ADD ZERO 



ADD 



RNSP 



UBA :• mask to read FROM code and go BUSY, 

If PFWINT then ignore MSGI and process PF 
UBA :• BUSC comrnand to read upper word; 

RH :• I0C02, read FROM code, go busy 
SP4A :- mask to clear MSGINT; 

Read upper word 
Empty R6 if SR • 7; SP3B :- FROM code, 

set F5 to inhibit STOV check in «PSHM 
XRAQ :• fflodulet; 

SPIB ;« CSRO and IRQ bits 
F2 ;• CSRQ bit; Clear MSGINT 
If CSRO then handle it else if neither IRQ 

nor CSRO then SYSHALT; BKX5 :=■ 
Skip if interrupts disabled; 

SP3B :« MASK and IPOLL command 
Set up ICS if IRQ and interrupts enabled; 

SP2B :* UBB :- -1 A IslO) for module)* and 

mask to set DINTFF 
Skip if modulei » 1; UBB := 18000, repeat 
Shift mask in ALUS right until module* is 

decremented to in ALUA 
XRA15 :" vector of interrupting modules; 

Set DINTFF (UBB - 7J 
; SP3B :» write to IMBI REGO command 
Re-enable CSRQ2 . leave IRQ disabled 
UBA :- right stackop mask; Go unBUSY 
Read next instruction; 

Skip if not right stackop 
NEXT in two clocks; Read right stackop 
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RECORD 

NO 

771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
791 
792 
794 
796 
797 
799 
801 
803 
804 
805 
807 
808 
810 
811 
812 
814 
815 
817 
818 
820 
821 
823 
824 
826 
827 
829 
830 
832 
834 



Def e r red Interrupt s 
LAEIL RREG SREG FUNC SFNC STOR SPSK 



......,«...». ALU B ....I,......*.,.: 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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0084 DIMS 0C02 



0085 
0086 



0087 
0088 
0089 



008A 
008B 

0080 

008D 

008E 

008F 

0090 

0091 

0092 
0093 
0094 



Deferred Interrupt Handler 

Entered whenever interrupts are turned ON and DINTFF , 
(deferred interrupts flipflop.) is SET. SINCBIT = 1 
if it was a deterred external interrupt. 

1) If SINC and TON - 1 then »CSNC 

2) XRA9 gets module number 

3) Send message to clear IRQ on module, thereby 
enabling interrupt to be retransmitted 

4) Repeat until vector after clearing 
equals zero 

5) Clear DINTFF iff SINC = 



CTFl 
BUSC 



XR15 
XR15 


ADD 
JSB 


LLZ 
CSNC 


POS 
BITS 


UBA 


UBA 


ADD 
ADD 


XR15 
U8A 


ADD 
ADD 
JSB 


LLZ 
DIM2 


ZERO 




RH 
OPS 


ADD 
ADD 
ADD 



2E5C 




AIODL 




SP4A 








JSZ 


PSHM 




SR7 




XR15 


ADD 




SPOA 


CF2 


0008 




ADDL 




XR9 




0008 


UBA 


ADDL 




XR9 








JSZ 


NEXT 




MSGI 




SP4A 


ADD 


RLZ 


RG 




SPOA 


SP2B 


XOR 




XR15 








JSZ 
ADD 
JSZ 


NEXT 
NOP 




MSGI 
ZERO 



ADD 
UBA ADD LRZ CTR SF5B 



UBA 

RREG 

1000 





XFRR 




BKX5 


DCTR 




REGN 


RPCA 




SP2B 


DCTR 


NZRO 


REGN 


AND 
ADDL 




SP2B 
SP3B 


DCTR 


NZRO 




JSL 


I CMS 






UNC 




JSB 


DIMS 






ZERO 


RH 
SP2B 


ADD 
ADD 
ADD 


LLZ 




BUSC 
CCPX 


Fl 



RH: "comniand to read up 
SP2B : - mask to clea 

Mask upper byte, skip i 

Service clock interrup 
modules , set Fl if S 

GO BUSY 

Jump if no deferred 

dont jump if any bit 

force BUSC to comple 
SP4A. (0:8) :■ REGN cod 

SP4A. (8:8) : '^ mask t 
Empty RG if SR • 7; 

CTR :■= REGN code tor 

inhibit STOV check i 
Save XRA15 in SPOA, cl 

dec CTR , 
XRA9 := module* 1; SP2 

rupting mod vector. 
Increment module * unt 

rupting module vecto 
Jump to NEXT if MSGINT 

BUSY; SP3B :» write 
RG : "= mask to enable I 

Send command 
Turn off bit for modul 

Check for another de 

; Go UNBUSY; skip if S 
Kill some time for INT 



per words : (0709 ) 

r DINTFF 

f no sincbit (0709) 

t if SINC and TON = 1 : 

INCBIT is set 

(0709) 
(0709) 

interrupt (0709) 

s set for interrupt 

te 

e for 14000, (0709) 

enable IRQ & CSRQ: 

14000 mask , set F5 to 
n tPSHM 
ear F2; BKXS^ 0, (0709) 

B : = bit 1 of inter- 
repeat if 0, dec CTR 
il bit n of inter- 
r is set 

happened before going 
to IMBI REGO command 



RQ and CSRQ; 

e to be serviced; 
f e r red interrupt 

(0709) 
INCBIT • 1 (0709) 
clear DINTFF 



NO 

837 
838 
839 
840 
841 
842 
843 
844 
84b 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
870 
871 
873 
875 
877 
879 
881 
883 
885 
887 



Deferred Clock Interrupt 
...«.•..««. ALU A ••«•••••••• 

LABL RREG SREG FUNC SFNC STOP SPSK 



............. ALU B ••••••**•••«•« 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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Deferred Clock Interrupts 
Entered from tDIMS if SINC 



»nt ry : 



DINTFF • 1 
Interrupts ON 
SINCBIT > 1 
TON ' 1 



DINTFF 

SINCBIT 

TON 



( iff DINT vectors 



begin 

SINC :■ TON :- 0. 

if DIVS - then DINTFF 

if CLKSTAT <> then 

FARM - 
else 

beqin 

PARM :- (TR); 
(TR) :• 0; 

PLABEL' :• X106001, 

INT9; 

end . 



< INT caused by SINC instr >> 

< PARM is zero for SINC int >> 

< INT caused by CLK rollover >> 

< PARM is time since last int >> 

< time since last INT :■ >> 



STT X14 >> 
p ICS and PCAL plabel >> 



< sea 1 

< set u 



0095 CSNC 

0096 
0097 
0098 
0099 
009A 
009B 
009C 
009D 



XR15 ADD LSL 



GOOF 
RH 

0016 
0013 



ADDL 
XR15 AND 
ADDL 
ADDL 
ADD 
OPA JSB 
OPA ADD 
JSZ 







FOOD 


UBA 


ANDL 


XR15 




UBA 
UBA 




ADD 
ADD 
ADD 


SPOA 


CFl 
NZRO 


UBA 




ADD 
ADD 


SPOA 








ADD 




SF2 


8C01 




ADDL 



R0A3 
R0A3 



UBA :• XRA15 & Isl(l) , 

Mask to clear SINC & TON bits 

Mask to clear DINTFF; Skip if DIV's <> 

Clear SINC i TON; Clear DINTFF if DIV's ■ 

Addr of STAT for SINC instr; BKX3 :» 

Addr of TR; Read (STAT) 

Clear parameter, clear Fl; Read (TR) 

Jump if (STAT) <> 

SPOA(param) > (TR), (TR) :• if (STAT) 

Service interrupt, set F2; 

SPIB :• external label (%106001) 
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ICS-type Interrupt Handl 


er 
















RECORD 


C S. 




...,...«..,. ftLU A ••••*« 


* * * * * 




•""• ALU B 


A A A A 1 


M A A A A « 


r A A A A 




NO 


ADDR 


LABL 


RREG SREG l-UNC SFNC STOR 


SPSK 


RREG SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


COMMEI 


889 




• •I,* 


• ••*«***«*iii> ••••••••••<.*• 




***«•<*«••. 


••«••• 


»**!,, 


•,*»*», 




,»»), 




890 




* 




















891 




* 


ICS-type Interrupt Entry 


















892 




* 




















893 




* 


Entered If an ICS-type h 
detected. »INT9 will: 


ardware or firmware in 


terrupt ii 


s 






894 




* 


















895 




* 




















896 




• 


11 Empty TOS registers 


















897 




* 


2) Write » four word st 


ack marker 














898 




* 


3) Write stack DB-bank 


and DB 


-address ti 


3 user 


' B S ■ 


tack 








899 




* 


4) Set S-I>ank to zero 


















900 




* 


5) If not on ICS then set up 


ICS 














901 




* 


6) Procesi; external int 


e r rupt 


if F2 is 1 


not se 


t 










902 




* 




















903 




• 


Jump to •Ilil which will: 


















904 




* 




















905 




* 


7) Clear :lnternal hardw 


are interrupt in 


CPXl 












906 




* 


8) Place parameter on ICS 
















907 




* 


9) Place CIR in X regis 


ter 
















908 




* 


10) Set up code segment)) 


1 (ININ) 














909 




* 




















910 




* * k if 




A * A A A * 




* A A A A A 


A A A A 1 


ft A A A A 1 


k A * A A K 


1 * A A 




911 




« 




















912 


009E 


iNig 


SM INC 


WRS 


SR SM 


REPC 




SM 


DCSR 


SRZ 


Set U| 


914 


009F 




ODWN ADD 


DATA 


P 


ADD 






DCSR 


SRL2 


Empty 


916 


OOAO 




X ADD 


DATA 


UBB PB 


SUB 






CLSR 




Write 


918 


OOAl 




ADD 




UBB XR12 


I OR 












920 


0CA2 




UBB ADD 


DATA 


0006 SM 


ADDL 




SM 






Write 


922 


00A3 




STA ADD RD 


DATA 


0004 SM 


ADDL 











Write 


924 






















■-■ 


925 


0OA4 




1000 ADDL SP4A 




UBB 


XFRR 






WRS 




SP4A 


927 


00A5 




RREG CPX2 AND 


NZRO 


RREG SREG 


SUB 




SP2B 


DATA 




Skip : 


929 


00A6 




JSB ICS 


UNC 


BNKD 


ADO 




RH 


DATA 




Set U| 


931 


00A7 




CPX2 ADD SWAB 


EVEN 


DB 


ADD 






DATA 


NF48 


Skip 

SKi| 


933 






















934 


00A8 




JSB IN9D 


UNC 




JSL 


IXT4 


BNKS 




UNC 


Jump , 


936 






















isb 
UBA :■ 


937 


00A9 




3FFF ADDL 






JSB 


IRX 


BNKS 




NF2 


939 






















proi 


940 


OOAA 




RH JSB IRl 


NZRO 


UBA 


INC 






CCPX 




Jump : 


942 


OOAB 




JSB IRl 


UNC 


UBB SP4A 


I OR 






CCPX 




Jump ' 


944 


OOAC 


IN9D 


OF 00 ADDL 




8000 SP2B 


lORL 










UBA :. 


946 






















UBB 


947 


OOAD 




UBB ADD 


DATA 


UBA 


ADD 






CCPX 


RSB 


Write 
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p write & SM+1; SM : = SR + SM 
TOS registers to memory, UBB=P REG 
(X) ; UBB : = P - PB , CLR SR 

,UBB-P-PB lOR MAPFLAG (CSTX) 
(delta P); UBB := SM : = SM + 6 (CSTX) 
(STATUS), RD « STATUS (for »IXT3), 

• UBB :• old SM + 4 

:■ 11000; SREG :• old 0, write & SM+4 
if ICSFLAG; SP2B :« delta 0, write it 
p ICS if not ICSFLAG; RH : = BNKD, write 
if not in Dispatcher; Write (DB), 
p if not starting Dispatcher 
if starting Dispatcher else 

if in Dispatcher; BNKS := 

• mask for setting FSS; BNKS :• 0, 
cess external interrupts if not F2 
if BNKD <> 0; Set FSS (UBB = 14000) 
to finish up; Clear FSS (UBB - 15000) 
» mask to clear DISPFLAG: 

: • delta Q with bit set 

delta 0: Clear Dispatcher flag. RSB 
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RECORD 


C S, 


NO 


ADDR 


950 




951 




952 




953 




954 




955 




956 




957 




958 




959 




960 




961 




962 




963 




964 




965 




966 




967 




968 




969 




970 




971 




972 




973 




974 


OOAE 


976 




977 


OOAF 


979 




980 


OOBO 


982 


OQBl 


184 




985 


00B2 


987 


00B3 


989 




990 


00B4 


992 


00B5 


994 




995 


00B6 


997 


0087 


999 




1000 


00B8 


1002 




1003 


0089 


1005 


OOBA 


1007 




1008 


COBB 


1010 


ODBC 


1012 




1013 




1014 


006D 


1016 




1017 


OOBE 


1019 




1020 


OOBF 


1022 


OOCO 


1024 





External Interrupt Handler 

...«.*.»..* ALU A ••••«•«••»• 
LABL RREG SREG FUNC SFNC STOR SPSK 



*.*... •<...•. ALU B •«••••••••••«• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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EXTERNAL INTERRUPT HANDLER 

Entered after saving user's environment on his 
stack and interrupt handler has set up the ICS . 

1) Issue IPOLL command to determine the channel which 
had the interrupt Note the system halt if no 
channel responding 

2) Issue OBII command to highest channel responding 
to IPOLL command to determine device which had the 
inter rupt . 

3) Set DB bank to zero and DB register from Device 
Reference Table entry 1. 

4) Set Status register to privileged mode and enable 
inter rupt s . 

5) Push Module/Channel/Device number on top of ICS 

6) Clear message interrupt and save CIR in X register. 

7) Get external program label from DRT entry 2. 

8) Go set up code segment for external interrupt. 



0050 




ADDL 




SP4A 








JSL 


lOMS 


CTR 




UNC 


RG 


RG 


JSB 


NCHL 




ZERO 






ADD 




BKX3 


CCTX 






RG 
UBA 


ADD 
ADD 


LSL 




CF2 
HBF2 




CTRS 


REPC 
ADD 






ICTR 


F2 


UBB 


UBB 
RG 


ADD 
JSB 


LSL 
CHLO 




NEG 


2000 
UBA 




ADDL 
ADD 


LSL 


SP3B 
BKX5 


SF5B 








ADD 

ADD 






SF3A 




RG 


JSL 
JSL 


lOMS 
GDRT 


BNKD 
BKX5 




UNC 
UNC 




SM 
RH 


INC 
ADD 






WRD 
DATA 




UBB 
UBB 


ADD 
INC 










UBB 




INC 






ROBS 




SP4A 


ADD 


SWAB 




CCPX 




UBA 


CIR 


CAD 
ADD 




X 


ROBS 
SFl 


1000 


OPB 


ADDL 
ADD 




SP3B 
SPIB 






OCOO 
0007 


RG 


ADDL 
ANDL 




RH 
RG 




OCOO 


RG 


ADD 

lORL 




BNKS 
BKX5 


CF5B 




2E00 




ADDL 




SP4A 






OPB 


JSL 


lOMS 


DB 




UNC 




SP4A 


ADD 


LSL 


RG 


CF3A 






JSL 


lOMS 


BKX5 




Fl 




SM 


INC 
INC 




STA 


FIHB 




RH 
UBA 


ADD 
JSL 


PCL3 


SM 


BUSC 


UNC 



SP4A ;» code to clear FSS (to be swapped); 

CTRS. (8 :8) : «0, send IPOLL command 
No channel respondina; clear CTX BKX3 ; 
Repeat if not channel 0; CTR : =CTR + 1 
Find the highest channel » 
Shift until highest channel bit in bit 0; 

UBB ;■ channel number; CTR ; =CTR + 1 
UBA: -channem &lsll2) ; SP3B:'0BII command 
JSB if channel* - 0; BKX5 : «c hannel* ilsl(3) 

F5:-l to inhibit DRTO read in ttGDRT 
BNKD : " 0; send OBII command 
F3 :' 1 for «GDRT rtn; BKX5 :» CDEV», goto 

«GDRT to get DRTO adr and MCDEVtt 
write adr :« SM+1 (BNKD»0); UBB : » DRTO adr 
UBA :« MCDEVt; write MCDEV* as parameter; 

UBB:-DRT1 adr ( tGRDT rtrns w/UBB=DRTO adr) 
Read external program label (DRT2); 

UBB :■ 15000 to clr split bank flag (FSS) 
read DBI (DRTl); SP3B :» write command 
X :- CIR; Fl :- 1 to set priv; 

SPIB :' external program label 
RH :• GO UNBUSY command: BNKS 
RG.(12:1) :■ clear interrupt, 

RG. (13:3) :> device » 

BKX5 ;= register »C for chan * 
UBA := mask shifted right; DB : 

clear interrupt on channel/device 
RG :• !5C00 for mask to enable IRQ and CSRO, 

clear F3; BKX5 = 0, slow down jump 
UBA := SM + 1; go unbusy (UBB = !0C00) 
STA ;= %100001 [privileged, ifoment ttl): 

SM := SM + 1, set up segment ttl 



:= (for ICS) 



in RG 
DBI . 
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RECORD 

NO 

1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1063 
1065 
1067 
1069 
1071 
1073 
1075 
1077 
1079 
1081 
1083 
1085 
1087 
1089 
1091 
1093 
1095 
1097 
1099 
1101 



C S 
ADDR 



OOCl 
00C2 
00C3 
00C4 
00C5 
00C6 
00C7 
00C8 
00C9 
OOCA 
OOCB 
OOCC 



System Halt Conditions 
I.ABL RREG SRECi FUNC SFNC STOR SPSK 



SYSTEM HALT CONDITIONS 



Error Code 
(octal) 

OCIOOOO 
OClOOOl 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 

000021 

000022 
000023 
000024 
000025 
000026 



SPIB 
(hex) 

0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 
0010 

OOU 

0012 
0013 
0014 
0015 
0016 



RREG SREG FUNC SFNC STOR SPEC SKIP 



Desc ript ion 



Unexpected (unknown) interrupt 

STT violation in segment SI 

Absent segment on ICS 

Absent or TRACE on segment #1 

Stack overflow on ICS 

CST length = 

Channel program timeout 

Bootstrap checksum error 

Bootstrap channel program abort 

PSEB instruction while QI-18 < 

Module send message timeout 

Incorrect module responding 

Channel not system controller 

Code segment violation in seg *1 

Non- responding channel 

Channel zero responding 

No service request or external 

Interrupt on message interrupt 
Channel controller cannot be 

made cont roller-in-charge 
Module receive message timeout 
I/O error, parity / timeout 
WCS checksum error 
LUT checksum error 
Bad DCU command code 
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UEXI 
STTH 
KCSH 
ABTH 
STOH 
CTLV 
CPTO 
CPCS 
CPAB 
PSEH 
MSTO 
INVM 



JSB SHLT 

JSB SHLT 

JSB SHLT 

JSB SHLT 



JSB 
JSB 
JSB 



SHLT 
SHLT 
SHLT 



OOCD NSYC 

OOCE CSTH 

OOCF NCHL 

OODO CHLO 

OODl NOSX 

00D2 NCON 



JSB SHLT 

JSB SHLT 

JSB SHLT 

JSB SHLT 

JSB SHLT 

JSB SHLT 



JSB 
JSB 



SHLT 
SHLT 



00D3 
0004 
00D5 



MRTO 
liOLK 
V/CCt 



JSB SHLT 

JSB SHLT 

JSB SHLT 

JKB SHLT 



JSl! 
JSB 



SHLT 
jHLT 



UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 



0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 
0010 
OOU 
0012 
0013 
0014 



ADD 


SPIB 


INC 


SPIB 


INC LSL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 


ADDL 


SPIB 



Unexpected (unknown) interrupt 

STT violation in segment «1 

Absent code segment while on ICS 

Absent segment or trace in segments 1 

Stack overflow on ICS 

CST length violation 

Channel program timeout 

Bootstrap channel program checksum 

Bootstrap channel program abort 

Pseudo-Enable violation (QI-18) < 

Module send message timeout 

Incorrect module responding 

Channel not system controller 

Code segment violation in segment #1 

No channel responding 

Channel responding 

Message interrupt w/o IRO or CSRO 

Not able to put it to cont rolle r- in-charge 

Module receive message timeout 

I/O error, parity / timeout 

WCS checksum error 
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RECORD 


C.S. 




NO 


ADDR 


LABL 


1103 


0OD6 


LTCE 


1105 


ODD 7 


BDCC 


1107 


0008 


SHLT 


1109 


0009 




1111 


OODA 




1113 







System Halt Conditions 
LABL RREG SREG FUNC SFNC STOR SPSK 



JSB SHLT 
JSB SHLT 
ADD 
ADD 
XR9 DIAQ 



............. ALU B •.«•••«••»•••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



UNC 0015 
UNC 0016 
0060 
UB6 



ADDL 

ADDL 

ADDL 

ADD 

ADO 



SP18 
SP18 
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COWENT 

LUT checksum error 
Bad DCU command code 

; UBB ;« mask to set SYSHALT bit in CPX2 
; Set system halt bit in CPX2 
DIAG (or DCU to take control, XRA9 for I/O 
error analysis 
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RECORD 


C.S. 


NO 


ADDR 


1115 




1116 




1117 




1118 




1119 




1120 




1121 




1122 




1123 




1124 




1125 


OODB 


1127 




1128 


OODC 


1130 




1131 


OODD 


1133 




1134 


OODE 


1136 




1137 




1138 




1139 




1140 




1141 


OODF 


1143 




1144 


DOEO 


1146 




1147 


OOEl 


1149 




1150 


00E2 


1152 




1153 




1154 




1155 




1156 




1157 


00E3 


1159 


00E4 


1161 


00E5 


1163 




1164 




1165 




1166 




1167 




1168 


DOES 


1170 




1171 


00E7 



Utility Subroutines 
LABL RREG SREG FUNC SFNC STOR SPSK 



Utility Subroutines 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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ET02 
FFFD 

RH 

ET03 

FFFC 

RH 
PSHA 



- Empties TOS registers until only 



2 are filled 



ADDL 
SM INC 
QDWN ADD 
SP2B JSZS ST02 





Z 


SM 


SUB 


SP2B SF2 


WRS 


SR 


UBA 


RE PC 


RH DCSR NCRY 


DATA 


UBB 




CAD 


DCSR NEG 



PCS RH SM 



- Empties TOS registers until only 

ADDL Z SM 

SM INC WRS SR UBA 

QDWN ADD DATA UBB 

SP2B JSZS ST02 PCS RH SM 

- Empties all TOS registers 

SM INC WRS SR SM 

QDWN ADD DATA 

ADD RSB 



INC SM INSR RSB 
3 are filled * 



SUB 


SP2B SF2 


REPC 


RH DCSR NCRY 


CAD 


DCSR NEQ 



SM INSR RSB 



REPC SM DCSR SRZ 
ADD DCSR SRL2 

ADD CLSR 



Bounds checking for 'move while' instructions 



- Bounds checKing for move while 



RA INC RA 
ADD 



JSL MBWX 
JSZ BNDV 



NWIL 
UNC 



UBA :- -3; SP2B :- Z - SM, set F2 to 

indicate not split banks (for ttSCU, ttSCW) 
Set up write fl SM + 1 ; 

RH ;= SR - 3, repeat if SR >» 3, dec SR 
Write QDWN; 

End when SR counts down to 2, dec SR 
STOV if ((SR - 3) - (Z - SM)) >= 0; 

SM :• (SR - 3) + SM + 1. inc SR , return 



UBA :- -4: 

SP2B ;= Z - SM, set F2 (for «MVBL ) 
Set up write fl SM + 1; 

RH :« SR - 4, repeat if SR >= 4, dec SR 
Write QDWN: 

End when SR counts down to 3, dec SR 
STOV if ((SR - 4) - (Z - SM)) >= 0; 

SM •.. (SR - «) + SM + 1, inc SR , return 



Set up write to SM + 1; SM : 
Empty TOS registers; Dec SR 
Return; Clear SR 



RA- DESTINATION POINTER; (2311) 

JMP IF NOT WHILE CONDITION (DONE) 
; JUMP IF REALLY A TRAP CONDITION... (2311) 
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RECORD 


c r. 




NO 


ADDR 


LABL 


1174 




<••• 


1175 






1176 






li/7 






1178 






1179 






1180 






1181 




« * A * 


1182 






1183 


O0E8 


TIME 


1185 






1186 


00E9 




1188 


OOEA 




1190 


OOEB 




1192 


OOEC 




1194 


OOED 




1196 


OOEE 




1198 


OOEF 




1200 






1201 


OOFO 




1203 




* 


1204 




* * A « 


1205 




* 


1206 




A * * * 


1207 




* 


1208 


OOFl 


lOER 


1210 


00F2 




1212 




* 


1213 




« « * « 


1214 




* 


1215 




ft * * * 


1216 




* 


1217 


00F3 


TSRT 


1219 






1220 


OOF 4 




1222 






1223 




A * * A 


1224 






1225 






1226 




A « A A 


1227 






1228 


OOFS 


DTSl 


1230 






1231 


00F6 




1233 


00F7 




1235 




* 


1236 




A * A * 


1237 




A 


1238 




* * * n 


1239 




» 


1240 


OOFS 


DMPX 



utility Siibrout ines 

........... ftLU A •.«••*. A. A. 

LABL RREG SREG FUNC SFNC STOR SPSK 



A......A..AA. ftLU B ..•.»»••*«•«.. 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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Measurement microcode routine 

1. delta t : •= countsave - tclk 
2 . count save : » tclk 

3. desired accumulator • desired accumulator 

+ delta t 



UBA ADD 

ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
REGN ADD 

ADD 



0030 




ADDL 


OOAl 




ADDL 




REGN 


ADO 


UBB 


REGN 


RSUB 


SP3B 




ADD 




SP2B 


ADD 
ADD 


SP3B 


REGN 


LINK 



CTR 

CTR 

SP3B 

SP3B 

REGN 

CTR 



RSB EOOO 



Error routine used by I/O reads & writes 



ADD 

JSZ IDEE 



SF2 
UNC 



FFOO BKX4 ANDL 

RG JSL SUSB SP3B 



TSRT - Measurement microcode entry to »RSRT from »CPEX 
00A2 ADDL SP2B 



UBA JSZ TIME 
SP4A JSZ RSRT 



UNC 
UNC 



ADDL 
ADD 



DTSl - Sets condition code and status carry bit for «DTST 
and »MPYL instructions 



ADO 
ADD 



NEXT 
NEXT 



RB 
RA 



DMPX - Path to DUMP routines 
ADD 



ADD 
ADD 



JSL WMST RF 



DCC 
SCRY 



Save right stackop bit in SP4A for RSRT; 
CTR « TCLK REGN option 
CTR :» XR33 REGN code (countsave) 
SP3B :• current value of TCLK 
SP3B - countsave - TCLK (delta t) 
Countsave ;= current timer value 
CTR := REGN code of desired accumulator 

Not much to do except wait around for CTR 

Add delta t to proper accumulator, inc CTR 
to next REGN code 

Return; UBB : =■ mask to clear PAUSEFF 



NZRO Set F2; Check if reading FIFO 

ODD I/O error; suspend if DNV when reading FIFO 



Add channel program time, U6A :» right 

stackop bit (from «CPEX) 
UBA :» right stackop bit. restart instr 



Skip it ms 17 bits are not the same; 

CCA on msw 
NEXT if ms 17 bits are the same; DCC on Isw 
NEXT; Set carry bit in status 



to start with lOAl , jump 
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RECORD 

NO 

1243 
1244 
1245 
1246 
1247 
1248 
1249 
1251 
1253 
1255 



C S 
ADOR 



00F9 
OOFA 
OOFB 
OOFC 



ALU A ••••••••*•« 

LABL RREG SREG FUNC SFNC STOR SPSK 



..,..*.«»«... ALU B •»•«*•«**.***• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



SR Preadjusf Stack Underflow Pointer 



jTNU 2000 CPXl ANDL 
ADD 
JSZ 
ADD 



UBA 




ADD 
JSL 
ADD 
ADD 



10/ 2/8 



CHECK TO SEE IF BNDV HAS OCCURRED (2428A) 

IF NOT THEN CONTINUE STOV PROCESS (2428A) 

ELSE PROCESS BNDV;RESTORE SM ; SR=0 (2428A) 
NOP to keep system happy (2555) 
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RECORD 

NO 

1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
12 84 
1285 
1286 
1287 
1288 
1289 
1290 

i2rr 

1?94 
l.:9S 
12 :> 7 

J.:)9 
ilU3 
1302 
1304 
1305 
1307 
1309 
1311 
1313 
1315 
1317 
1319 
1321 
1322 
1324 
1326 
1328 
1330 
1332 
1333 
1334 



C S. 
ADDR 



0100 
0101 

0102 
0103 

0104 
0105 

0106 
0107 
0108 
0109 
OlOA 
OlOB 
OlOC 
OlOD 

OlOE 
OlOF 
0110 
0111 
0112 



PCAL Instruction 

•«•«•*•«<>• ALU A ••»•••••••* 

LABL RREG SREG FUNC SFNC STOR SPSK 



PCAL INSTRUCTION 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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This module will perform the internal label processing 
of the PCAL instruction. 



program label on TOS 
program label in STT 



if DSPL • then label on TOS else label is 
in Segment Transfer Table (DSPL • STT •). 



empty TOS registers, 
if SM + 4 > Z then 



STACK OVERFLOW, 
write out four word stack marker, 
if DSPL > total « of labels in STT then STT 
VIOLATION. 

if PCAL and segment number on TOS • then 
CST VIOLATION. 

if program label is external then set up 
code segment else set up address, 
if address outside PB - PL then BOUNDS 
VIOLATION 



SLUT INSTR«PCAL:0 Oil 001 Oxx xxx xxx, DSPL'8, ENTRY-PCAL 





DSPL 


ADD 




SP4A 


CFl 


PL 




ADD 






ROP 






UBA 


JSB 


PCLO 




ZERO 


PL 


PB 


SUB 




SP2B 


TICB 






SM 


INC 






WRS 




OPB 


ADD 


LRZ 


RH 






use 


SP4A 


SUB 
ADD 






CTFl 


PL 


OPB 
SP4A 


ADD 
SUB 


RRZ 


SP3B 


ROP 






P 


ADD 




SPOA 




SR 


SM 


RE PC 




SM 


DCSR 


SRZ 




ODWN 


ADD 






DATA 




UBB 


ADD 






DCSR 


SRLZ 


X 




ADD 






DATA 


0004 


UBB 


ADDL 




RF 






SPOA 


PB 


SUB 










XR12 


ADD 










UBA 


UBS 


lOR 






DATA 




REGN 


ADD 




SPIB 








STA 


ADD 




RD 


DATA 


Z 


RF 


JSBS 


peso 






NEG 


RF 





SUB 






DATA 


3FFF 


SPIB 


ANDL 




RG 






UBS 


PB 


ADO 




SP4A 


RONP 




RF 


ADD 




SM 


CLSR 






SPIB 


ADD 


RRZ 




Fl 


SP3B 


SP4A 


SUB 








CRRY 


UBA 


DSPL 


JSZ 


CSTV 




ZERO 






JSZ 


STTV 






UNC 


RG 


SP2B 
SP4A 


JSZC 

JSZ 

JSZ 


BNDV 
NEXT 
ST02 




CRRY 

UNC 

NZRO 




RF 
SP4A 


JSB 
ADD 
ADD 


PCL3 




P 


CLSR 


NFl 






JSZ 


ST02 




UNC 




REGN 


ADD 




RA 


INSR 





Fl-EXTERNAL; PL-STTL ENTRY FOR INT/EXT (CSTX ) 
TEST N"0,SP2-PL-PB;CTR.0F(OPB) ;N«0 IS EXTERN 

(CSTX) 
POINT TO TOS;UBB-RH»»INTERNALS (CSTX) 
Fl-INTRNL IF N>«INTERNALS;SP3B=T0TAL «LABELS 

(2635) 
NOPiREAD PL-N INTO OPB (2635) 

SP0A=OLD P; START EMPTY TOS REGS;SKP IF DONE 

EMPTY TOS REGS;UBB-S,SR-SR-1;SKIP DONE 
PUT X IN STACK MARKER; RF-SM+4 
UBA:-P-PB ,UBB:-MAPFLAG (CSTX) 

PUT MAP BIT IN P-PB ,SP1B=LABEL (CSTX) 
STK MRKR=RD=STATUS;0'FLO IF NEW SM>Z 
WRT DELTA Q TO STK^RG^ADDR PART OF LBL 
SP4A=USA.PB+DELTA P (NEW P);SM=SM+4 
UBA=LA8EL.i8.8) (SEG «),SKIP IF LOCAL LABEL, 
SKIP IF TOTAL «LABELS >= DISP (2635) 

CSTV IF PCAL AND LABEL ( 8 8 ) =0 . STTV (2635) 
8ND VIO IF ADR>PL-PB;0=SM+4. JSB IF EXT(CSTX) 
INTERNAL NEXT INSTRUCTION , P=NEW P (CSTX) 
JSB IF NOT PCAL 0; CLSR (CSTX) 

JSB FOR STACK OVERFLOW; RESTORE LABEL. SR -1 



PCAL INSTRUCTION - LABEL ON TOP OF STACK 
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RECORD 


C S. 


NO 


ADDR 


1335 




1336 




1337 


0113 


1339 




1340 


0114 


1342 




1343 


0115 


1345 


0116 



PCAL Insf ruction 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



p 


ADD 




SPOA SRZ 


SM 


ADD 


SM 


JSBI 


PTOS 


WRS 


0007 


ADDL 



SM 


JSZC 
JSB 


STUN 
PSTK 


NEG 
ROBS 


SM 
UBB 


ADD 
CAD 
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SPOA:=P, SKIP IF SR-O; 

RH:-SM (RG:»SM AFTER POP), POP, SKIP IF SR = 

JSB, WRITE TOS REGISTERS AT SM + 1 ; 

CTR:=REGN CODE FOR RH (LABEL NOW IN RH) 

STUN IF SM <= Q, UBB.=SM, SR =0 

JUMP BACK, READ LABEL INTO OPB ; SMi^SM - 1 



RECORD 


C.S •• 


NO 


ADDR LABL RR 


1348 


SNOWARN 


1349 


* * * It A * * 


1350 




1351 




1352 




1353 




1354 




1355 




1356 




1357 




1358 




1359 




1360 




1361 




1362 




1363 




1364 




1365 




1366 




1367 




1368 




1369 




1370 




1371 




1372 




1373 




1374 




1375 




1376 




1377 




1378 




1379 




1380 




1381 




1382 




1383 




1384 




1385 




1386 




1387 




1388 




1389 




1390 




1391 




1392 




1393 




1394 




1395 




1396 




1397 




1398 




1399 




1400 




1401 


* A A * * * A 


1402 




1403 


0117 PCL3 02 



CODE SEGMENT SET UP MODULE 

•••••• ALU A ••••AAA.AA. ..««••<««>*«« ALU B •••••••••••••* 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CODE SEGMENT SET UP MODULE 

This module it called by PCAL and the interrupt 
handlers to set up execution on a particular code 
segment with: 

SPIB • external program label 
RH« number of internals 
DSPL and STA set 

1) Read LSTT bank, addr pointer from 1221,1222 (8) 

2) Read tLSTT ents {first word of LSTT) 

3) If logically mapped, then 

a) Read LSTT number of entries (first word) 

b) STT violation if LSTT bank-LSTT addr «0 
cj STT violation if seg » > • LSTT entries 
d) If segment » (from label) ' then 

1) Index into LSTT with N-«internals 

2) Read new label 

5) If LABEL(8:8)=0 then CST violation 
' 6) Phys Seg ( RH) -LABELf 8 : 8 ) 

7) If logically mapped, then 

a) If LABEL(8:8))ILSTT entries then STT violation 

b) Index into LSTT with LABEL(8:8)«2 get phys add 

8) If logically map and LABLE ( 8 : 8 ) <>locl223(8 ) then 

use CSTX(l) for CST base 
Else use CSTB(O) for CST base 

9) set PB BANK, PB and PL from CST entry 

10) set reference bit in CST entry #1 

11) STATUS register is set to new segment • 

12) if TRACE/ABSENT flag is set then 
TRACE/ABSENT t rap 

13) if STTt < STTL then STT VIOLATION trap 

14) if external label in STT then STT VIOLATION TRAP 

15) if STTt • then 

if called from priviledged then 

P « PB 
else 

STT UNCALLABLE 
else 

if called from priviledged then 

P: « PB + label address 
else 

if called segment is priviledged then 
STT UNCALLABLE ; 

16) if PB <« P <» PL is not true then BOUNDS 
VIOLATION 

17) next instruction, start execution of code 
segment 
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RE=LSTT ADDR ;BKX3=0, SET F2 FOR MED JMP(CSTX) 
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RECOF?D 

NO 

lin'-i 
140/ 
1409 
1411 
1413 
1415 
1417 
1418 
1420 
1421 
1423 
1424 
1426 
1428 
1429 
1431 
1433 
1435 
1437 
1438 
1440 
1441 
1443 
1444 
1446 
1448 
1450 
1452 
1453 
1455 
1457 
1459 
1461 
1463 
1464 
1466 
1467 
1469 
1470 
1472 
1473 
1475 
1477 
1478 
1479 
1480 
1482 
1483 
1485 
1486 
1488 
14i 9 
1491 
1492 
1493 
1494 



ADDR 

0118 
0119 
OllA 
OllB 

one 

OUD 

OllE 

OUF 

0120 
0121 

0122 
0123 
0124 
0125 

0126 

0127 

0128 
0129 
012A 
012B 

012C 
012D 
012E 
012F 
0130 

0131 

0132 

0133 

0134 
0135 



0136 
0137 
0138 
013S 



CODE 

5L RREG SREG 

RH DSPL 
RE 
STA 



RH 
RH 
RG 



OPA 
RG 



UBB 
SP4A 



SEGMENT SET UP 
'• ALU A «»•«»«■ 
FUNC SFNC STOR 



SUB 

INC 

ADD RRZ 

ADD 

JSBC PCLX 

INC 



MODULE 
SPSK RREG 



OPA 
SPOA RD 



UBB 
OPA 



PCLX 
PCLP 



RH 
UBB 
STA 
OPA 
RE SP4A 

SPOA UBB 

SPOA UBB 

RH OPA 

OPA 
UBA 



ADD 

ADD 

ADD RRZ 
ADD 

ADD 
ADD 
ADD 
JSZ CSTV 

JSZC CSTV 

ADD 



ADD 
JSB 
INC 
ADD 

JSZ 

ADD 
ADD 
ADD 
lOR 



CSTV 

LSR 

LLZ 



UBA 



ADD 

ADD 

JSBC PCL8 

CSL 
ADD 



RC 

SP4A 
SPOA 
RD 

SP4A 



LSI 



ZERO 
NCRY 



R0X4 
SFl 

RH 
UBA 

ZERO 

CRRY RH 
Fl RD 

UNC 

R0X3 

R0X3 

ZERO 

R0X3 

R0B3 
R0X3 
CRRY 

CTFl 



UBA 

UBB 
2000 OPA 



CAD LSR RG 
JSB TABP 
rORL 



SREG 

SPIB 

SPIB 
RE 
OPB 
OPB 

BKX4 

RH 

UBA 
UBA 



'«•« ALU B 
FUNC SFNC 
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ADD RRZ 

CAD 

JSB PCLF 

ADD 

ADD 

ADD 

JSZ CSTV 

JSB PCL6 

ADD 

JSZC CSTV 



STOR SPEC SKJP COMMENT 

RH 

R0X3 



OPB 
OPB 



8000 
7F00 
RH 
RH 

8004 
OOFF 



RH 

SPIB 

UBB 

SPIB 

UBB 

RH 

RH 



ADD 
ADD 
ADD 
JSB 

ADD 

ADD 

ADD 
ADD 
JSB 
ADD 

ANDL 

ADD 

ANDL 

ADD 

INC 



RRZ 
PCLP 



LRZ 
LSL 



ADD LSL 
JSB PCL8 



OPB 
SP4A 



ANDL 
INC 



UBB SP2B JSZS STTV 



SP3B UBA AND 
NZRO UBA OPB ADD 

UBB SP2B SUB 
DATA OPB ADD 

NEQ 3FFF OPB ANDL 



SPOA»-(N-tINTS) :RH.LABEL(8:8) (SEG«) (CSTX) 

READ SENTRIES (1223), READ LSTT BANK (CSTX) 

NEG RG = STA(8:8) ; JMP IF PHYSICAL MAPPED (CSTX) 

R0X3 RE=RH,SKP IF SEG-0 ,READ LSTT ADDR (CSTX) 

BKX4 JMP IF SEG<«»SEGS(1223) ; SAVE LSTT BNK(CSTX) 

RD NZFtO UBA = STA{8 :8)*2 + l ;UB8 = LSTT BASE.SKP IF NZRO 

(CSTX ) 
ZEFtO READ ttLSTT ENTS; CSTV IF LSTT BANK = ADDR = 

(CSTX) 
NZRO UBA.LSTTB+STA(8:8)*2+1 ; JMP IF NZRO LOG MP 

(CSTX ) 
R0X4 UBA- (tLSTT ENTS ;READ PTR TO LABEL (CSTX) 
CRFIY UBA = LSTTB-(N-ltINTS) ;CSTV IF SEG>»LSTT ENTS 

( CSTX ) 

R0X4 ;READ LABEL (CSTX) 

CFl ;INDIC SEG t =0 (CSTX) 

RH ,RH-NEW LABEL(8:8) (SEG i) (CSTX) 

SPIB NEG CSTV IF NEW SEG=0 ;SP1B>NEW SEG.JP IF PHY LB 

(CSTX) 
CSTV IF SEG>#ENTS,UBB»LABEL(8:8 )*2 (CSTX) 
( CX232 8A J 
R0X4 SKIP IF Fl SET;READ LSTT ENT ( LSTTB + LABEL*2 ) 

( CSTX i 

IF SEG« WAS 0, PUT IN SEG « FROM LSTT (CSTX) 

RH UNC GO READ CSTB(O) ; RH-NEW 16 BIT PHY SEG (CSTX) 

UNC READCSTX(l); JMP AROUND (CSTX) 

RE READ CSTBIO) FOR PHY MAPPED;RE=RH FOR PHYS 

( CSTX ) 
CSTV IF SEQ-0, UBB-MAPPING (LOG/PHY) (CSTX) 
XRl RC-NEWMAPFLG ; XRB12 : »NEWMAPFLAG (2318) 

SP4A. (0:8) :»STA. (0:8) ; UBB:"STTIt (CSTX) 
READ CSTL; SP2B:«STT«, SKP IF= 0, SF4B(CSTX) 
RD:.TSTA; (CSTX) 

UBB:-SEGi •4+2, SF4B IF STT« <> 
SP4A:«(CSTB/CSTX) + SEG« "4+2, READ BANK; 
UBB:-SEQ« • 4, SKIP IF SEGIt <> 
READ AMRT-LENGTH/4 ((CSTB/CSTX) + SEG« • 4); 
CST VIOLATION IF SEG* « 
SP3B CST OR CTL VIOLATION IF SEG« > CSTL; 

SP3B:=MASK FOR ABSCENCE AND TRACE BITS 
BNKP UBA: -AMRT-LENGTH/4 & CSL(l) ; BNKP : -NEW BNKP 

R0X3 SP4A: -UBA: -LENGTH & LSL(l), (M AND R BITS 
SHIFTED OUT, A AND T BITS WILL BE ZERO), 
F1:=M0DE BIT; 
READ PB I (CSTB/CSTX) + SEG« * 4 + 3) 
NZRO RG:.UBA: -LENGTH - 1; 

UBB: -ABSCENCE AND TRACE BITS, SKIP IF <> 
PL ROP JSB IF TRACE OR ABSENT; 

PL: -LENGTH - 1 + PB , READ STTL 
ROP NPRV UBA: -AMRT-LENGTH/4 WITH REFERNECE BIT SET; 

READ LABEL AT PL - STT«, SKIP IF NPRV 
SFl WRITE AMRT-LENGTH/4; 

UBB:=« LOCAL LABELS, SFl IF PRIVILEGED 

(Fl WILL BE SET IF PRIVILEGED SEGMENT OR 
CALL FROM PRIVILEGED) (2635) 

SP2B STT VIOLATION IF STTtt > STTL; 



SP2B CF4B ZERO 
SF4B 



NZRO 
UNC 
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RECORD 

NO 

1496 
1497 
1499 
1501 
1502 
1503 
1505 
1506 
1507 
1508 
1509 
1511 
1512 
1514 
1515 
1517 
1518 
1520 
1521 
1523 
1525 
1527 
1528 
1530 
1532 
1534 
1536 
1537 
1539 
1540 
1542 
1544 
1546 
1547 
1549 
1551 
1553 
1554 
1556 
1557 



C S 
ADDR 



013B 
013C 



014A 
014B 
014C 

014D 
014E 
014F 



CODE SEGMENT SET UP MODULE 
*••«•>.•..« ALU A .>..<..«>«. ..•..«.••«•.. ALU B ••«•••*•*••«•• 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



NF4B 
UNC 



SP2B ADD 




ZERO 




OPB 


ADD 


UBB ADD 


LSL 


POS 


PL 


RG 


SUB 



013E 

013F 

0140 

0141 

0142 
0143 
0144 

0145 

0146 

0147 PCL8 

0148 

0149 TABP 



STA JSZ UNCL 

0003 XR15 ANDL 
RD ADD 
SP4A ADD 

JSZ 

ADD 
ADO 

0004 XR15 ANDL 



TABE 
TABS 



ADD 
ADD 
ADD 
JSZ 



SPIB ADO 
RD ADD 
DSPL ADD 



RC JSB 
1000 CPX2 ANDL 
UBA JSZ 



TABT 
SWARN 



TABT 
ICSH 
TRCE 



SP4A 

STA FIHB 
NZRO 
UNC 



R0B3 

UNC 



SPOA 

RD FIHB 

SPOA 

ZERO 

NZRO 

UNC 



RG SP2B UBNE 

SP3B ADD 
SP3B SP2B ADD 
XRl ADD 
SP3B ADD 
A690 



P RONP 

P RONP 

XR12 

PB CCTX 



00B2 



UBB 



ADDL 

ADD 

ADDL 



CCPX 



XRie ADD 

ADD 

JSB '+1 
OPB JSZ CTLV 

UBA ADD 

ADD 

XRl JSB TABS 

ADD 

ADD 
OOFE RD ANDL 

JSZ ABTH 

RE JSZ ABCS 



REGN 
BNKD 



NEXT 

F2 

ZERO 



NZRO 
UNC 
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CONMENT 

SP2B:- DELTA P (2635) 

SKIP IF STT«;«0;UBB:»LABEL AT PL-STT* (2635) 
SKIP IF NOT UNCALLABLE. 

SP3B.«NEW PB (PL-LENGTH-1) . SKIP IF STT« - 

(2635) 
UNCALLABLE TRAP IF (STTt <> 0, LABEL .( 1 : 1 | =1 , 

AND NOT PRIVILEGED) OR (STTt:=.0 AND NOT 

PRIVILEGED): 
BOUNDS CHECK SEGMENT LENGTH - 1 >« DELTA P 

IF STT8 <> 0, SKIP (2635) 

SP4A:> DUMP OR LOAD BIT; 

P:-PB, READ INSTRUCTION IF STTt « (2635) 
STA:«NEW STA, SET MODE BIT; 

P;-NEW P (DELTA P + PB) (2635) 

SKIP IF DUMP OR LOAD; UPDATE MAPFLG(2318) 

READ INSTRUCTION IF STT« <> 
NEXT IF NOT LOAD OR DUMP; 
PB:-NEW PB, CLEAR CTX FOR «CLDH 
; UBB ;• mask 

; Clear 8NDVINT and MSGINT, set RUNFF 
Clear SINCBIT for clock interrupt; 

CTR :- SWREG REGNf 
SWREQ:-XR16 (MCDEVi) 
; BNKD.-O, NEXT 

REREAD CSTL, MEDIUM JUMP TO WAIT ONE CLOCK 
CST VIOLATION UNLESS. . . 
CST LENGTH VIOLATION IF CSTL • 
WRITE AMRT-LENGTH/4 WITH REFERENCED BIT SET; 
RE. (0:1) :«ABSCENCE BIT, SKIP IF NPRV 
SPOA; -PARAMETER: 'LABEL ^ SFl IF PRIVILEGED 
SET MODE BIT IN TSTA; iSB (2318) 

SPOA; -PARAMETER :-N; 
CF2 TO DISTINGUISH EXIT FORM PCAL 
BYPAS SEG 1 TEST FOR LOG MAPPED ABSENC(CSTX) 
UBA;-ICSFLAGFF; SKIP IF NEW SEG* > 1 (CSTX) 
HALT IF ABSCENCE OR TRACE ON ICS: 
HALT IF ABSCENCE OR TRACE GOING TO SEG« 1 
TRACE t rap unless ... 

ABSENCE trap if absence bit (CSTX) 
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Load 


Labe 


Ins 


ruct 


on 


















RECORD 


C S. 




)N A A A 


k ft A A A 


• ALU A • 


A A A A 




A A ft A 




A A A ft 


ALU B 


A A A A 






NO 


ADDR 


LABL 


RREG 


SREG 


IFUNC 


SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


1559 




*••> 


>«••• 




AAAA 




AAAft 


AftAftA 


AftAAA 


AAAAA 


AAAAA 


• •AAA 


AftftA 


ftftftft 


iftftft 


1560 
































1561 






Load 


Label (LLBL) Instruction 
















1562 
































1563 






N < disp 
























1564 
































1565 




* * * • 




II (N * * * 




k A A * * 


* ft A A 






A A A A A 




A A A A ft 


ft A A ft 


A A A A 


k ft ft ft 


1566 
































1567 




SLUT 


INSTR«LLBL:0 Oil Oil Ixx 


XXX XXX, DSPL-8 


, ENTRY=LLBL 






1568 
































1569 


0151 


LLBL 




STA 


ADD 


RLZ 


RH 




PL 




ADD 






ROP 




1571 


0152 




U6B 


DSPL 


;SUB 






ROP 






JSZ 


PSHM 






SR7 


1573 


0153 






DSPL 


CAD 




SP4A 






OPB 


ADD 


RRZ 




EPSH 




1575 


0154 




UBB 


UBA 


JSZI 


STTV 




NCRY 






ADD 




BKX3 






1577 


0155 






STA 


ADD 


RRZ 


SPOA 






OPB 


ADD 


LRZ 


SP3B 






1579 


0156 




UBB 


DSPL 


JSBS 


LLB3 




NCRY 




XR12 


ADD 


LSL 




HBF2 




1581 


0157 






DSPL 


JSZ 


STTV 




BITS 






ADD 










1583 


0158 








ADD 






NEXT 


RH 


SP4A 


CAD 


SVMB 


RH 


F2HB 




1585 


0159 


LLB3 




OPA 


ADD 


RRZ 


RH 




0291 




ADDL 










1587 


015A 






UBB 


INC 






R0X3 




UBB 


ADD 






R0X3 




1589 


015B 






OPA 


ADD 




RH 






RH 


JSZ 


NEXT 






NZRO 


1591 


015C 






OPA 


ADD 




SPOA 






OPB 


ADD 




6KX4 






1593 


015D 




SPOA 




ADD 


LSL 








RH 


JSZ 


STTV 






NEG 


1595 


015E 




SPOA 


UBA 


INC 






R0X4 


SP3B 


SP4A 


INC 










1597 


015F 




SPOA 


UBB 


ADD 












ADD 










1599 


0160 




UBA 


OPA 


ADD 






R0X4 




BKX4 


ADD 








ZERO 


1601 


0161 




SPOA 




JSZ 


CSTV 




ZERO 






JSB 


• + 1 






UNC 


1603 


0162 






OPA 


ADD 




RH 








ADD 








NEXT 
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RH.0:8-SEG« ;READ STT LENGTH A ttlNTS 
READ LABEL (PL-N); SAVE RG IF SR=7 
SP4A=UBA=-(N+1) ,UBB-STT LENG.PUSH RH 
STT VIOL IF N>STT LENG; BKX3=0 
SP0A=STA(8:8) ; SP3B'UBB=»INTERNALS 



JMP IF N>»INTS 



STT VIOL IF N>127 



NEXT>RH ON TOS 



F2=MAPFLAG 



RH-INT LABL CHGD TO EXT 



RH=LABEL(8:8) ;UBB=ADDR OF LSTT BANK 
READ LSTT BASE; READ LSTT BANK (291) 
RH-LABEL ;NEXT IF SEG» <>0 
SPOA=LSTT BASE ;BKX4=LSTT BANK 
UBA=STA.8:8*2 ;STTV IF SEG=0 4 PHY MAP 
READ PTR LSTTB+STA»2 + l;UBB = -(N-)tINTS) 
UBA=LSTTB-(N-«INTS1; 
READ LABEL FROM LSTTB+PTR- (N-»INTS ) 
JSZ IF BOTH LSTT BANK-ADDRESS=0 
RH-LABEL FROM LSTT; NEXT 



TO TOS 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 
(CSTX) 



PAGF 34 EXIT Instruction 10/ 2/86 9:26 AM 

RECORD C.S. »......».». ALU A ••«•«•••««« .«.....*.*.«. ALU B •«•«•••«•••«•• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

1606 .«.......»..«.«..»«...«.....«......«..........•«.»...»...«.«»•««••••• 

1607 • * 

1608 * ICF/55 EXIT instruction * 

1609 « * 

1610 • This module will perform the execution of the EXIT * 

1611 • inst rue t ion ; * 

1612 • * 

1613 * 1) SM :• 0: RO : • - (0); RS : ■ - 4 - N ' 

1614 • 2) If RS or RQ > Z then stack overflow * 

1615 • 3) If RS or RQ < DB and EXIT to nonpriv then * 

1616 * stack underflow * 

1617 • 4) If nonpriv EXITS to priv or external * 

1618 * interrupt bit changes then mode violation trap * 

1619 * 5) Disable external interrupts, STA(l) :- * 

1620 • 6) Restore X register from stack marker, X :■ (0-3) * 

1621 * 7) If EXIT to different segment or mapping mode, • 

1622 * then set up new segment * 

1623 • 8) If PB <• PB ♦ (Q-2) <- PL is not within limit • 

1624 • then bounds violation • 

1625 * 9) P ;• PB + (0-2); STA :- (0-1); S :■ RS; Q ; » RO * 

1626 • 10) Next instruction • 

1627 • • 
162 8 .....,.,................«....................*...*..........«...,....» 

1629 • 

1630 SLUT INSTR-EXIT;0 Oil 001 Ixx xx, DSPL-8, ENTRY-EXIT 

1631 • 

1632 0163 EXIT ADD SPOA ROS FFFC ADDL SPIB SPOA ;• 0, read delta Q; SPIB ;« UBB := 0-4 
1634 0164 UBB DSPL SUB RH UBA CAD SP3B ROS RH ; • RS 0-4-N) ; SP3B :« 0-1, read STA 
1636 0165 SPOA OPA SUB RG FSS ADD SM CLSR RG :■ RQ (0-delia 0), skip if split banks; 

1638 SM : • Q, clear SR 

1639 0166 UBA DB JSBS EXSU NCRY SP3B CAD ROAS JSB for further checks if DB < RO and not 

1641 split banks; Read delta P at (0-2) 

1642 0167 STA ADD SP4A Z RH JSZC ST02 NCRY SP4A :- UBA :- oldSTA; Stack overflow if 

1644 not (Z > RS) logically. (S will be at 

1645 least 4 less than Z if less than Z at all) 
164e 0168 RG RH JSZC STUN CRRY UBA OPB XOR SP3B Stack underflow if RO > RS; (CSTX) 
164! SP3B.(1:1) ;• new ext interrupt bit <> old 
1649 0169 OPA ADD RC BFFF ADDL SP2B RC«DELTA P W/ L/P BIT;UBB'MSK TO CLR L/P BIT 
1661 (CSTX) 
1652 016A SPIB INC ROS OPB ADD RD NEG Read newX at (0-3); (CSTX) 

1654 D'NEW STA, SKIP IF GOING TO PRIVILEGED 

1655 016B RC SP2B AND RB SP3B ADD LSL POS RB :- UBA ;■ new delta P; Skip if the new i 
IB"'? old ext interrupt bit are the same (CSTX) 
1P5S 016C OPA ADD X JSB TR6E NPRV X : • NEW X (CSTX) 
ItifiO trap if not privileged and EXIT is to priv 
Ifi . or attempt to change ext interrupt bit(CSTX) 
IbhZ 016D RB PB ADD SP4A RC XR12 ADD LSL POS SP4A=NEW P ; NOP IF NEWMAPFG=OLDMAPFLAG (CSTX) 
16 4 TRICK: ADD^XOR W/O CARR lES- -XR 12 =0 , 4000 

H'b 016E RD SP4A SUB RRZ PL PB JSBS EXI6 UNC UBA=NEW PGM SEG-OLD PGM SEG . (CSTX) 

Ifn 7 UBB = PL-PB, SET UP NEW PGM SEG IF MAPFLAGS 

i6b8 DIFFERENT (CSTX) 

UM^9 016F UBB RB JSZS BNDV NCRY UBA JSB EXI6 NZRO BNDV IF DLTA P>PL-PB;EXI6 IF PRGSEG NOT SAME 

16.'1 (CSTX) 

167.-' 0170 EXI9 1000 ADDL RH ADD SM UBA = left/right stackop mask: SM := RS 

16/4 0171 UBA RD AND NZRO SP4A ADD P RNSP Skip if right stackop, P ;= newP , read right 

1676 s t ac kop 
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EXIT 


Inst 


r uc t ion 










RECORD 


C S. 




AAA*) 


M * A A * 


•"• ALU A *' 




A * * A 


A A A A A 


•••* ALU B 


NO 


ADDR 


LABL 


RREQ 


SREG 


FUNC SFNC 


STOR SPSK 


RREG 


SREG 


FUNC SFNC 


1677 


0172 






SP4A 


ADD 


RONP 




RG 


ADD 


1679 


0173 






CPX2 


ADD 






RD 


ADD LSL 


1681 


0174 






RD 


ADD 


STA UNC 




UBA 


JSZ DIMS 


1683 




















1684 


0175 


TR6E 






JSZ TRP6 


UNC 






ADD 


1686 


0176 


EXSU 




DL 


ADD 




Z 


DB 


SUB 


1688 


0177 








ADD 


RSB 


UBA 


DB 


JSZC STUN 


1690 





















10/ 2/86 9:26 AM 

SKIP COMMENT 

Read next instruction; Q := RO 
POS UBA :•= CPX2; Skip if interrupts will be off 
ODD STA := newSTA, skip JSB to mode trap; JSB if 

deferred interrupt and interrupts on 
NEXT Mode violation if entered here; Else NEXT 
NCRY UBA ;= DL; Skip if DB > Z 

NCRY RSB; Stack underflow it not on split stack 
(not split stack if DL <= DB <= Z) 



PAGE 36 Code Segment Se« Up Module for EXIT instruction 10/ 2/86 9:26 AM 

RECORD C.S. •»»«.«»?... ^Lu f^ ..••*..«... > >«•.*•..«.. . fti_U B ••••«•••**••«• 

NO ADDR LABL RREG SREQ FUNG SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP COMMENT 

1692 SNOWARN 

1693 «......«.....«............«..........*............................... 

1694 • • 

1695 • CODE SEGMENT SET UP MODULE FOR EXIT INSTRUCTION • 

1696 « 

1697 * This module is called by EXIT to set up execution * 

1698 • of a particular code segment: * 

1699 • • 

1700 * 1) if physical or logical mapped with seg<>nr prog * 

1701 « segs. then read CSTBIO), else read CSTX(l) « 

1702 * 2) if log map, then index into LSTT 4 get seg • • 

1703 • CST violation or system halt if CSTL "0. * 

1704 • 3) set PB BANK, PB and PL from CST entry * 

1705 • 4) set reference bit in CST entry «1 • 

1706 • 5| STATUS register is set to new segment 1. * 

1707 • 6) if TRACE/ABSENT flag in CST is set then * 

1708 * TRACE/ABSENT trap. * 

1709 • 7) set mode in STATUS (PRIV or NON-PRIV) . « 

1710 • 8) P :• PB + delta P ' 

1711 « 9) finish up like internal EXIT. • 

1712 * * 

1713 

1714 

1715 0178 EXI6 RC XR12 AND RC ADD BKX3 SF2 RC'MASKED MAPPING FLAQ;CLR BK3 (CSTX) 

1717 0179 0292 ADDL RD ADD RRZ RF UBA-ADDR FOR LSTT:RF'NEW SEGMENT NUMBR(CSTX) 

1719 017A ADD R0X3 UBA INC R0X3 READ CSTB(O) , READ « PROG SEGS (0293) (CSTX) 

1721 017B RC JSB EXI7 NZRO RREG CAD RE R0X3 JMP IF PHYS MAPPD;READ LSTT BANK( 0291 ) (CSTX ) 

17?3 017C INC R0X3 RF OPB CAD CRRY READ CSTX(11 ,SKIP IF SEGtt > «PR0G SEG(CSTX) 

1725 017D OPA ADD SPOA JSB EXI7 UNC SAVE CSTB(O) IN SPOA,JMP USING CSTX( 1 ) (CSTX ) 

i727 017E RE INC R0X3 OPB ADD BKX4 READ LSTT ADDR (292): SET LSTT BANK (CSTX) 

1/29 017F RF RF ADD UBB ADD BKX3 UBA»SEG« '2; BKX3«BKX4= LSTT BANK (CSTX) 

17J1 0180 UBA OPA XFRS R0X4 BKX4 ADD NZRO READ »LSTT ENTS; UBB=LSTT BNK , SKP IF O(CSTX) 

173T 0181 RREG UBA ADD R0B3 UBA JSZ CSTV ZERO READ LSTTB+SEG«2 iCST VIO IF LSTT BANK=ADDR>0 

1735 (CSTX) 

1736 0182 OPA ADD RRZ ADD BKX3 UBA-«LSTT ENTRIES ;CLR BKX3 FOR FOLLWG(CSTX) 
1738 0183 RF UBA JSZC CSTV CRRY OPB JSZ CSTV RF ZERO JP IF SEQ>tLSTT EN ;OPB«RF=PHYS SEG«,JMP IF 

1740 (CSTX) 

1741 0184 ADD JSB EXI8 UNC ; BYPASS--SP0A ALREADY SET(CSTX) 
1743 0185 EXI7 OPA ADD SPOA JSB '+1 F2 SPOA-BASE ;MED JMP TO LET SPOA TO STORE (CSTX) 
1745 0186 EXI8 SPOA ADD R0X3 RF RF INC LSL READ CSTL ; UBB-SEGt '4+2 (CSTX) 
1747 0187 UBA UBB ADD SP4A R0B3 RF RF ADD LSL NZRO SP4A : « ICSTX/CSTB ) * SEG« * 4 + 2, READ BNKP; 

1749 UBB:.SEQ» • 4, SKIP IF <> 

1750 0188 SPOA UBB ADD R0X3 , JSB PCL8 UNC READ AMRT-LENQTH/4 AT (CSTX/CSTB) + SEG««4: 

1752 CST VIOLATION IF SEG« « 

1753 0189 RF OPA JSBC PCL8 CRRY OOFF OPB ANDL BNKP CST OR CTL VIOLATION IF SEG» > CSTL: 

1755 BNKP:=NEW BNKP 

1756 018A OFFF OPA ANDL SP4A INC R0X3 UBA : =LENGTH/4 , 

1758 READ PB AT (CSTX/CSTB) + SEG« « 4 + 3 

1759 018B OPA ADD LSL HBF2 UBA UBA ADD LSL F2 : =MODE BIT; UBB: -LENGTH 

1761 018C 2000 OPA lORL UBB CAD RF UBA : =AMRT-LENGTH/4 WITH R BIT SET, 

1763 RF:=UBB: 'LENGTH - 1 

1764 018D UBA ADD RE DATA UBB OPB ADD PL NF2 RE . ( 1 ) : -ABSCENCE BIT FOR »TABE , 

1766 WRITE AMRT-LENGTH/4, 

1767 PL -LENGTH - 1 + PB 

1768 SKIP [F SEGMENT NOT PRIVILEGED 

1769 018E SREG JSB TABE NEG OPB JSZ TRP6 NPRV JSB IF ABSCENT; 
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RECORD 


C.S. 


NO 


ADDR 


1771 




1772 




1773 


018F 


1775 




1776 


0190 


1778 


0191 


1780 





Code Segment Set Up Module tor EXIT instruction 



ALU A 
LAIBL RREG SREG I'UNC SFNC STOR SPSK 



ALU B •«••«••••••««« 

RREG SREG FUNC SFNC STOR SPEC SKIP 



RB 
RF 



UBB ADO 
RB 



ADD 
UBNE 



OPB 
RC 



ADD 
JSB 



PB 
EXI9 XR12 



NEG 
UNC 



10/ 2/86 9:26 AM 

COMMENT 

UBBi'PB, TRAP IF EXIT TO PRIVILEGED AND NOT 

PRIVILEGED 
SP4A:=DELTA P + PB ; 
TRACE IF DELTA P , ( : 1 ) 

;PB=NEW PB (CSTX) 
BNDV IF LNGTH-1>=DEL P;SET NEWMAPFLG (CSTX) 
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RECORD 

NO 

1782 
1783 
1784 
1785 
17R6 
1787 
1788 
1789 
1 '90 
17ni 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
18 05 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1822 
1824 
1826 
1828 
1830 
1831 



C S. 
ADDR 



IXIT Inst rue t ion 

*.......««. ALU A «.*•.•...>* 

LABL RREG SREG FUNC SFNC STOR SPSK 



ICF/55 IXIT Inst ruction 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



This module will perform the execution of the IXIT 
instruction IXIT is executed only on the ICS and 
can be entered by the interrupt procedures or the 
Dispatcher For interrupt procedures: If redispatch 
reouested 01(0) « 1 If Dispatcher interrupted 
0(0) = 1 and o QI . If pseudo-disabled 01-18 <> 0. 

1). Dispatcher launch of a process. 

2). Interrupted process, return to process. 

2a). Interrupted process, redispatch requested 

but pseudo-disabled so return to process. 
3). Interrupted interrupt, return to interrupt. 
4) Interrupted Dispatcher, return to Dispatcher. 
4a). Interrupted Dispatcher, redispatch requested 

but pseudo-disabled so return to Dispatcher. 
5). Interrupted process, redispatch requested so 

start Dispatcher . 
6). Interrupted Dispatcher, redispatch requested 

so restart Dispatcher. 



IXIT paths : 



(1) 

(2), 

(3) 



(2a) 



(4a) 
(6) 



IXT2 
IXT2 
IXT2 
IXT2 



IXTl 
IXTl 
IXT3 
IXT4 
IXT4 



IXT7 
IXT7 
IXT7 
IXT3 
IXT9 



IXTg 
IXT8 
IXT8 
IXT7 
IXT8 



The displacement for IXIT is set to four so that in 
the event of a TRACE or absence trap on IXIT, zero 
is placed on the stack as the parameter. 



SLUT INSTR-IXIT/PCN:0 010 000 Oil 11, DSPL«4, ENTRY-IXIT 



0192 
0193 
0194 
0195 
0196 



DSPL ADD 
CPX2 JSB 
ADDL 
OPA ADD 
UBA JSB 



ZERO 
UNC 



ADD 

JSZ 

ANDL 

JSB 

JSB 



IXTl 
IXT4 



NPRV 
ZERO 
UNC 
NEG 



Skip If IXIT instr; Read delta Q 

It's a PCN instr, BKX3 :' 0, mode violation? 

RH :« 0-5; Are we in Dispatcher' 

RD :• delta Q; Yes, so launch process 

If Q(0) ■ 1 then path (4,5.6) else If 

Q(0) ' and Q <> QI then path (3) 

(Note: « 01 iff delta Q = 0) 
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RECORD 

NO 

1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1852 
1853 
1855 
1857 
1859 
1861 
1863 
1865 



IXIT, path (1,2,2A) 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



ICF/55 IXIT path (1 , 2 , 2A ) 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9 26 AM 



This module will launch the interrupted process, 
dispatcher launch of process or launch of process 
if Dispatcher is pseudo-disabled. 



S-BANK — (Ql-5). 

:- (01-6) - 2 + (QI-4) . 

DL ;- (QI-7) + (QI-4) . 

Z :• (QI-8) + (QI-4) . 

Clear Dispatcher and ICS flags. 

Read delta Q. 



0197 IXTl FFOO 

0198 
0199 
019A 
019B 
019C 
0190 
019E 



RH 
RH 



INC 
ADD 



OPA ADD 

CAD 

OPA ADD 

OPA ADD 



R0X3 




UBA 


ADD 


R0X3 


SP3B 




CAD 


RG CFl 


FFFE 


OPB 


ADDL 


R0X3 


UBA 


UBB 


ADD 




RG 


OPB 


ADD 


SPOA 




UBA 


ADD 


RH ROS 




UBA 


ADD 



SP3B R0X3 



CCPX 
R0X3 



RH 


DL 

BNKS 
Z 



UBA: -MASK TO CLEAR DISP AND ICSFLAG; 
SP3B:»(0I-6) , READ DS 

READ STKDB (QI-4); CLEAR DISP AND ICS FLAG 
READ S-BANK (QI-5); READ DDL (QI-7) 
RG : -STACK DB, (Q) ; UBB:=DS-2 
READ DZ(0I-8); Q: -DS-2+(QI-4 ) 
UBA:=S-BANK, DL : =DDL+(QI -4 ) 
U8A:=DZ(OI-8)+(OI-4) ; BANKS : =S-BANK (01-5 ) 
READ(DELTA Q); Z : =DZ (QI-8 )+(0I-4 ) 
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RECORD 

NO 

1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1881 
1883 
1885 
1887 
1889 
1890 
1892 
1894 
1896 
1898 
1900 
1902 
1904 
1906 
1908 
1910 
1912 
1914 



019F 
OlAO 
OlAl 
01A2 
01A3 

01A4 
01A5 
01A6 
01A7 
01A8 
01A9 
OlAA 
OlAB 
OlAC 
OlAD 
OlAE 
OlAF 



IXIT, PATH (1,2,2A,3.4,4A) 

«.•>.*.*•.• ALU A *••••«••••• ..»...»...».. ALU B ••••••••••«»•• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 



ICF/55 IXIT PATH ( 1 , 2 , 2A , 3 , 4 , 4A ) 

THIS MODULE JOINS PATHS (1,2,2A) AND (3,4,4A). 

1) RS:»0-4 

2). RO «0-D0 (1:15) OR RA : «0-D0 IF PATH (1,2,2A) 



IXT7 UBB SP4A SUB RG Fl 

RH OPA SUB RG 

FFFC ADDL RH 

IXT8 UBA INC SP4A ROS 

SPOA RH JSZS STOV NEG 

NEG 
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SPOA 


RG 


JSZS 


STOV 






OPA 


ADD 




X 




OPA 


ADD 




RC 


UBB 


OPA 


AND 




RB 


UBA 


PB 


ADD 




SP4A 


UBB 


STA 


SUB 


RRZ 


RE 


3FFF 




ADDL 






1000 




ADDL 
ADD 








RE 


JSB 
ADD 
JSB 


EXI6 
EXI9 










INC 




ROS 






UBB 


INC 




ROS 






OPB 


ADD 


BNKD 


CLSR 






Q 


ADD 


SM 








OPB 


ADD 


DB 








SP4A 


INC 




ROAS 






UBB 


INC 




ROS 




BFFF 




ADDL 








PL 


PB 


SUB 


SP3B 








OPB 


ADD 


RD 








BNKS 


ADD 








UBB 


BNKD 


XOR 






ZERO 




UBA 


INC 




CCPX 


UNC 


UBA 


UBB 


I OR 




CCPX 




4000 


RC 


ANDL 


RC 






UBB 


XR12 


JSBS 


EXI6 




NZRO 


SP3B 


RB 


UBNE 









(3:«0-D(}(l: 15) ; READ(DB-BANK ) 

RO;-Q-DO, IF PATH (1,2,2A); READ(DB) 

RS:-Q-4, DB-BANK:«(0+1) ,SR:=0 

SP4A:-0-3, READ X, S : •(} 

STOV IF RS > Z AND WITHIN 32K; 

DB:-(C)+2) 

STOV IF RQ > Z AND WITHIN 32K; 

SET X REGISTER; READ STATUS 

RC-DELTA P lOR L/P BIT; UBB=L/P MASK (CSTX) 

RB:»DELTA P W/O L/P BIT; SP3B:=PL-PB (CSTX) 

SP4A: 'DELTA P + PB ; RD:-TSTA 

RE:'0 IF SEGMENT NUMBERS SAME; UBB: 

UBA: "MASK; SKIP IF NOT SPLIT BANKS 

UBA: -MASK; SET FSS IF SPLIT BANKS, 

;CLR FSS 
JSB IF SEG CHG:MASK TO NEWMAPFLG 
JMP IF BOTH L/^ BITS NOT EQUAL 
JSB TO FINISH; 

BOUNDS CHECK (PL - PB ) >' DELTA 



READ DELTA P 



-BNKS 



SKIP 
(CSTX) 
(CSTX) 
(CSTX) 
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RECORD 

NO 

1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1930 



C.S. 
ADDR 



IXIT, PATHS (3,4,4A) 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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ICF/55 IXIT PATH (3,4,4A) 

THIS MODULE WILL CREATE THE DELTA ADJUSTMENT 
FROM DQ. (1:15) . 

1). DQ:-DO. (1:15) . 

2) . JOIN PATHS (1,2,2A) . 



OIBO 
OlBl 



RD 
UBB 



ADD LSR SP4A SFl 
ADD SPOA 



ADD 
JSB 



SP4A:=DO(l:15) ; UBB ; > 
SPOA:-Z; UBB:»Q, JSB 
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RECORD 

NO 

1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1950 
1952 
1954 
1956 
1958 
1960 
1961 
1963 
1964 



C.S 
ADDR 



01B2 
01B3 
01B4 
01 85 
01B6 
01B7 

0188 

01B9 



IXIT, Paths [2A,4,5.B) 
LABL RREG SREG FUNC SFNC STOR SPSK 



*.......,.... ALU B ••««.««•••••.• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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ICF/55 IXIT Paths (2A,4,5,6) 

This module checks to see if the DISPATCHER was 
interrupted or a re-DISPATCH was requested 



Set DISP flag. 

If 01(0) = return to DISPATCHER (path 4) 
If 01 <> return to DISPATCHER (path 4A). 
If (01-18) - start DISPATCHER (path 5,6) 
Return to launch process (path 2A). 



IXT4 0005 ADDL 
U8A ADD 
ADD 
OPA ADD 
UBB ADD 
OPA JSB IXT3 

UBB SP4A JSBS IXT3 

ADD 



R0X3 
CFl 

SP4A R0X3 

SPQA 

POS 



0700 ADDL 

UBB ADD 
0012 ADDL 
Z ADD 

UBA SPIB SUB 

Q ADD 

OPB JSB IXT9 
JSB IXTl 



ZERO 
UNC 



SET ADR 5; SET DISP FLAG (PATH 2A,4,5,6) 
READ(OI ADDR); SET DISP FLAG 
CLEAR DO FLAG; SP1B:»18 
READ(OI); UBB:»Z 
SPOA:.Z; READ(QI-18) 

RETURN TO DISP (PATH 4)) IF 0I.(0:1)=0; 
UBB «Q 

RETURN TO DISP (PATH 4A ) IF Q <> 01; 
DISPATCH IF (QI-18)-0, (NOT PSEUDO DISABLED) 
; RETURN TO INT. PROC (PATH 2A ) 
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RECORD 


C S. 


NO 


ADDR 


1967 




1968 




1969 




1970 




1971 




1972 




1973 




1974 




1975 




1976 




1977 




1978 




1979 




1980 




1981 




1982 


OIBA 


1984 


OIBB 


1986 


OIBC 


1988 


OIBD 


1990 


OIBE 



IXIT, PATH (5,6) 

»**»...*..* ALU A •••«•«••«•» 

LABL RREQ SREG FUNC SFNC STOR SPSK 



ICF/55 IXIT PATH (5,6) 



...«*.....*.. ALU B •*<.•••*•••«• 
RREG SREG FUNC SFNC STOR SPEC SK 
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IP COMMENT 



THIS MODULE WILL START THE DISPATCHER AFTER A 
INTERRUPTTED PROCESS HAS COMPLETED 



(01) 'O. 

0: =01 . 

RS: =01+2 

RO;»OI 

JOIN ALL OTHER PATHS (IXT8) 



IXT9 SP4A INC 

0002 UBB ADDL 

OPA ADD 

Q ADD 

FFFC Q ADDL 



SP4A ROS 
RH 



SPAA ADD 

ADD 
SP4A INC 
UBA ADD 

JSB IXT8 



WRX3 
DATA 
ROS 



READ(DB-BANK) ;0:=QI, WRITE TO 01 

RS:"QI+2; 01 : =0 

UBA:=DB-BANK; READ(DB) 

RO-OI; DB BANK.«UBA 

UBA;-0-4; FINISH TO PATH ( 1 , 2 , 2A , 3 , 4 , 4A , 5 , 
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RECORD 


C S 


NO 


ADDR 


1993 




1994 




1995 




1996 




1997 




1998 




1999 




2000 




2001 




2002 




2003 




2004 




2005 


OIBF 


2007 


OICO 


2009 




2010 


OlCl 


2012 


01C2 



PUSH CPU NUMBER Instruction 

• <.>•••>«.. ALU A ••*••••*••• ••**«••<,•••<• ALU B •••••»•••*•••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 



ICF/55 PCN instruction 

This module will push a four (4) onto the top of 
st»ck to signify an ICF/55 CPU. 

Entered from IIXIT with privileged mode already 
checked . 
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FFFC DSPL ANDL 

DSPL JSZ NEXT 



JSZ 
JSZ 



PSHM 
NEXT 



SR7 
EPSH 



ADD 
JSZ 



ADD 
ADDL 



Check for non-PCN instructions 
NEXT if old LOCK/UNLK instruction; 

Unlmplemented trap if not PCN or LOCK/UNLK 
JSZ to «mpty one TOS if SR « 7 
JSZ tor NEXT, EPSH; New (S) :« 4 for ICF/55 
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RFJCORD 

NO 

2015 
2016 
2017 
2018 
2019 
2020 
2021 
2023 
2024 
2025 
2027 
2029 
2030 
2032 
2033 
2035 
2036 
2037 
2039 
2041 
2043 
2044 
2046 
2048 
2050 



01C6 
01C7 



01C8 
01C9 
OICA 

OICB 
OICC 
OICD 
OICE 



SUBROUTINE CALL INSTRUCTION 
LABL RREG SREG FUNC SFNC STOR SPSK 



.<,*.«••«....• ALU B ••••«••«<.««««• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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SCAL - SUBROUTINE CALL INSTRUCTION 



01C3 SCAL 



01C4 
01C5 



DSPL 


ADD 




SM 


JSB 
JSB 


SCNZ 
SMEM 




JSZ 


PSHM 




ADD 





UBB 
UBB 



STOS 
SMEM 



DSPL JSZS STTV 
SP2B JSZC BNDV 

PB SUB 
ADD 
ADD 
ADD 



XXX XXX, DSPL=8 


, ENTRY-SCAL 






ZERO 


PL 


PB 


SUB 




SP2B 


TICB 




UNC 
ROBS 


PL 


UBA 


SUB 
JSB 


STOS 


CTR 


ROP 


SRZ 
UNC 


SR7 


PL 


REGN 


XFRR 






ROP 






3FFF 


SREG 


ANDL 




SP38 






NCRY 
CRRY 


SP3B 
SP3B 


OPB 
PB 


ADD 
ADD 
ADD 


LR2 




RONP 




EPSH 
UNC 

RSB 


UBA 
RREG 


UBB 



JSZ 

ADD 

JSZC 

CAD 


NEXT 
STUN 


P 
SM 


POP 


UNC 
RSB 
NEG 



TICB CAUSES CTR;. REGN CODE 

SKIP IF SR - 



SKIP IF N'O 
SP2B -PL - PB 

FOR OPB 
JSB IF N <> 0; READ (PL - N) 
READ (SM) AND JSB IF SR ■ 0; 
CTR: .REGN CODE FOR RA AND JSB IF SR<>0(CSTX) 
RG>MEM IF SR>=7;READ «INT,OPB/RA BEFORE POP 

(CSTX) 
;SP3B:«DELTA P (CSTX) 



SPOA«P;UBB»tINTERNALS HI ORDR STT LENG(CSTX) 

STTV IF N>«INTS; UBB-DELTA P (CSTX) 

BNDV IF ADDR > (PL - PB ) (CSTX) 

UBB:«ADDR + PB , READ 

NEW (S1:.P - PB, EPSH; P:«NEW P. NEXT 

INH JSB TO PSHM;POP TOS lAW SCALO INST(CSTX) 

; STUN IF S WOULD BE LESS THAN 

RSB; SM:=SM -1 
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SUBROUTINE EXIT INSTRUCTION 














RECORD 


C.S. 




* * A * 


..«.*>. ALU A «••«••••..« 


* * * A 1 


■AA.AAAAA ^LU 8 


A A A A 




NO 


ADDR 


LABL 


RREG 


SREG FUNC SFNC STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC SKIP 


2053 




*•••, 


>•••• 


• ••••••••i>>***i>i>«t*<.»««*<,i 


,•>••«. 


HAAAAI 






■ AAAA 


AAAAAAAAA 


2054 








SXIT - SUBROUTINE EXIT INSTRUCTION 








A 


2055 




* * * « 1 


fe * * * * 




1 * A * « A 1 


(1 A A A A ( 


k * * * « « 


* * * * 1 


k A A A A 




2056 






















2057 




SLUT 


INSTR-SXIT:0 Oil 010 Oxx xxx xxx. DSPL-B 


, SR-1 


, ENTRY-SXIT 


2058 






















2059 


OICF 


SXIT 




SM INC WRS 


SR 


SM 


REPC 




SM 


DCSR SRZ 


2061 






















2062 


OlDQ 






QDWN ADD DATA 


Z 




ADD 






DCSR SRL2 


2064 






















2065 


OlDl 




UBB 


SM JSZS STOZ NEQ 




SM 


ADD 






CLSR 


2067 






















2068 


01D2 




UBB 


DSPL CAD SP4A 


PL 


PB 


SUB 








2070 


01D3 




UBA 


JSZS STUN NEG 


UBB 


RA 


UBNE 








2072 






















2073 


01D4 






ADD 


RA 


PB 


ADD 




P 


RONP 


2075 


01D5 






JSZ NOP UNC 




SP4A 


ADD 




SM 
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COMMENT 



WRITE TOS REGISTERS AT SM + 1; 

SM:-SR + SM. SR:«SR - 1, REPEAT IF SR <> 

WRITE QOWN; 

UBB:-Z, SR:-SR - 1^ END WHEN SR IN RANKl 

STACK OVERFLOW IF Z < SM AND WITHIN 32K; 

UBB:-SM, CLSR 

SP4A:"U8A:.S-DSPL-1; UBB:=PL - PB 

STACK UNDERFLOW IF SM < AND WITHIN 32K; 

BOUNDS CHECK (PL - PB) >» (S) 

; P:-(S) + PB, READ NEXT INSTRUCTION 

NEXT IN TWO CLOCKS; SM:.S-1-DSPL 
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RECORD 

NO 

2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2094 
2096 
2098 
2100 
2101 
2103 
2105 
2106 
2108 
2110 
2111 



C.S. 
ADDR 



01D6 
01D7 
01D8 
01D9 

OlDA 
OlDB 

OlDC 
OIDD 



ALU A «•••«««••«. 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREQ SREG FUNC SFNC STOR SPEC SKIP 
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SR Preadjust Stack Underflow Routine 

The purpose of this routine is to move NIR into CIR 
when a stacK underflow is detected during the SR 
preadjust. Note that if a right stackop is the cause 
of the STUN it will appear as an unpaired left stackop. 
SM, SR and P are adjusted accordingly I cannot 
emphasize this enough: If this routine is not broken, 
don't try to fix itl 



ADDL 
SM INC 
QDWN ADD 

ADD 

ADD 
ADD 

STA ANDL 

JSZ STUN 



WRS 
DATA 


SR 


SM 
SP4A 


ADD 
RE PC 
ADD 
ADD 




SM 


DCSR 
DCSR 
CCPX 


SRZ 
SR12 






P 


ADD 
JSZI 


STUN 


P 


CLSR 


UNC 
UNC 


UNC 




UBA 


ADD 
JSB 


•■-2 






ZERO 



SP4A -.' mask to set FAKENEXT 

Force the CPU to drop the SRREOO line by 

accessing the stack registers 
Produce a FAKENEXT to move NIR to CIR before 

clearing the SR register 
i SR .- ESR :- 0, skip next line 1st time 
increment P if no right stackop pending 

before jumping to process stack underflow 
UBA :» right stackop bit 
Jump to increment P if no right stackop 

pending else jump to process stack 

underflow w/o incrementing P 
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RECORD 

NO 

2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2124 
2126 
2128 
2130 
2132 
2134 
2136 
2138 
2140 
2142 
2144 



C S 

ADDR 



OlDE 
OlOF 
OlEO 
OlEl 
01E2 
01E3 
01E4 
01E5 
01E6 
01E7 
DIES 
01E9 



Magnetic Taps I/O Program Build Module 

..!........ ALU A ...!....... ............. ALU B ...••«..«».. 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SK 



MAGNETIC TAPE I/O PROGRAM BUILD MODULE 

Thii module will build the Mag Tape I/O program to 
read the bootstrap I/O program. 
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P COfWENT 



CLDT 0401 0001 
0314 0200 
0000 0000 
0000 4400 
0000 0500 
0300 0100 
0E40 0000 
FFF2 0407 
4400 0342 
0000 0400 
0000 0500 
0180 0000 



0000 4400 
0000 0500 
0401 0001 
0341 0200 

0000 0000 
0440 8000 
0002 0000 

0001 0000 
0302 0002 
0343 0200 
0000 0000 
0008 0013 



CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 



SELECT UNIT 10 FOR MAGTAPE 

ISSUE WAIT 

ISSUE DSJ 

ISSUE READ COMMAND 

ISSUE DSJ 

READ BOOTSTRAP CHANNEL PROGRAM 

STARTING ADDR 

DO ANOTHER BURST READ IF NOT DONE 

ISSUE END COMMAND 

READ XFER COUNT 

ISSUE DSJ, ISSUE INTERRUPT HALT 

READ RECORD COMMAND, END COMMAND 



(2334) 



(2334) 
(2334) 
(2334) 
(2334) 
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RECORD 

NO 

2147 
2148 
2149 
2160 
2151 
2152 
2153 
2154 
2155 
2156 
2158 
2160 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2174 
2176 
2178 
2179 
2181 
2183 
2185 
2187 
2189 
2191 
2192 
2194 
2195 
2196 
2198 
2200 



c s 

ADDR 



OlEA 
OlEB 
OlEC 



OlED 
OlEE 
OlEF 

OlFO 
OlFl 
01F2 
01F3 
01F4 
01F5 

01F6 



01F7 
01F8 
01F9 



LOAD RELATIVE ADDRESS Instruction 

........... ALU A .•*.>,•...*. .......*.•>.« ALU B «•••«•». •."•II. 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SK:[P 
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LRA; P relative 



$LUT INSTR=LRA(P+) 

SLUT INSTR=LRA(P+) 

SLUT INSTR=LRA(P-) 

SLUT INSTR-LRA(P-) 



1 111 000 OXX XX,DSPL=8,P,ENTRY.LAP 

:1 111 100 OXX XX,DSPL=8,X,P,ENTRY=LAP 

:1 111 000 IXX XX,DSPL=8.P,F2,ENTRY=LAP 

:1 111 100 IXX XX,DSPL=8,X,F2,P,ENTRY=LAP 



LAP UBA 



DSPL ADSB RH 
UBA JSZ PSHM 
PB SUB RH 



SR7 
EPSH 



3200 
UBB OPB 



ADDL 

JSBS LAP5 
JSZ NEXT 



ZERO 
UNO 



LRA; Indirect P relative 



SLUT INSTR-LRA(P+) 

SLUT INSTR=LRA(P+) 

SLUT INSTR-LRA(P-) 

SLUT INSTR-LRA(P-) 



:1 111 010 OXX XX,DSPL=8.INDR,P,ENTRY=LAIP 

1 111 110 OXX XX, DSPL»8,X,INDR,P, ENTRY. LAIP 

:1 111 010 IXX XX,DSPL»8,INDR,F2,P,ENTRY=LAIP 

:1 111 110 IXX XX,DSPL-8,X,INDR,F2,P,ENTRY=LAIP 



LAIP UBA DSPL ADSB RH 
JSZ PSHM 
XC RH ADD 



UBA OPA 
LAI5 XC RH 

UBA OPA 
LAPS SR SM 

0004 



JSB LAPl 

ADD 

ADD 

ADD 

ADDL 

JSZ PSHM 

SUB 



ADD 
ADD 
JSB PCLl 



ROP 
SR7 


3200 

UBB 

RH 


OPB 
PB 


ADDL 
JSBS 
BNDE 


LAIS 


UNO 
SR7 


PL 

RH 

PL 

0500 

Z 

UBA 


RH 
PB 
RH 

UBA 
UBB 


BNDE 

BNDE 

BNDE 

ADDL 

SUB 

JSZC 


ST02 


EPSH 






ADD 




SFl 


SP3B 


P 


ADD 
ADD 
INC 





CCPX 
RONP 



RH:-UBA:=PB +/- DSPL ; UB8-PCAL OPCODE(2317) 
JSB IF SR=7;JSB IF LRA FOLL BY PCALO (CSTX) 
RHfEFFECTIVE ADDRESS - PB.EPSH; NEXT (2317) 



RH:.UBA:»PB +/- DSPL, READ ; UBB=PCALO OPCODE 
JSB IF SR=7;JSB IF LRA FOLL BY PCALO (CSTX) 
UBA:=XC + INDIRECT CELL ADDR; 
BOUNDS CHECK INDIRECT CELL ADDR >= PB 
UBA»XC+ADDR+CELL CONT;JSB BNDS CK PL>=(2317) 
UBA-XC+INDR CELL ADR ; BND CK INDIR>-PB (CSTX) 
RH-XC+ADR+CELL CNT ; BND CK PL>-INR (2317) 
UBA«SM+SR ;SP3B-FAKENXT CODE (CSTX) 

UBA.4 ;UBB-TOTAL AVAIL SPACE ON STACK (CSTX) 
JMP IF STACK REGS FULL (MOVE OUT 1 TO MEM) 
STACK OVERFLW IF NOT ENOUGH FOR PCAL O(CSTX) 
RH=EFF ADDR-PB,EPSH ; (2317) 

GO DO INTERNAL PCALO DIRECTLY AND FAKE P 
UBA=0 FOR FAKE DSPL FOR PCALO 

(2317) 
NOP TO ALLOW FOLLOWING SFl TO WORK (2326) 

(CSTX) 
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CKP 


RECORD 


C S. 


NO 


ADDR L 


2203 




2204 




2205 




2206 




2207 




2208 




2209 




2210 




2211 




2212 


OlFA C 


2214 


OlFB 


2216 


OlFC 


2218 


OlFD 


2220 


OlFE 


2222 


OlFF 



- IN DUMP 
........... ftLU A ••••••••••• 

LABL RREQ SREG FUNC SFNC STOR SPSK 



..•...•*••..<, ALU B «•••*•••••••»« 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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CKPB: Check to tee if PB is valid. Zero BNKP if It is 

too larqe so that DUMP does not die of "Invalid Address 
-- CBI5" if BNKP is too large. Read NIR with RONP 



ADD 
ADD 
ADD 
ADD 
ADD 
ADD 



BNKP SUB 
ADD 
ADO 

RF ADD 
ADD 

OPB ADD 



Is BNKP within installed memory ? (2334) 

No -- Zero BNKP if too large ! (2334) 

Wait for store to occur, (2334) 

Read NIR. (2334) 

Wait for read to occur. (2334) 

RF :- NIR, return to DUMP (2334) 
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RECORD 

NO 

2215 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2261 
2263 
2265 
2267 
2269 
2270 
2272 
2274 
2276 
2278 



0200 
0201 
0202 
0203 
0204 

0205 
0206 
0207 
0208 
0209 



COLD LOAD AND MEMORY DUMP MODULE 

..«..,,.... ALU A •••••**««»» ..»..».*..«^. ftLU B ••••••••••••■»• 

LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG f UNC SFNC STOR SPEC SKIP 



COLD LOAD AND DUMP MODULE 

This module will perform the cold load or memory dump 
operations from magnetic tape or disc 
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9) 
10) 



11) 



12) 
13) 



Entered with 
(from DCU) 
Find the s iz 
Initialize a 
Copy the con 
%1401-1422 i 
Copy the col 
%1516-1521, 
and the inte 
I/O CLEAR al 
Identify the 
t he device , ) 
c hannel . 
Copy the app 
IDENT byte « 
Modify the d 
Set up a DRT 
Issue SIOP c 
or disc to 1 
When the cha 
the boot St ra 
Issue SIOP c 
When the cha 
If not , set 



cold load/dump device number in RH, 

e of main memo ry 

11 of main memory to %30370 (HALT XIO) . 

tents of CPU registers to locations 

n main memo ry 

d load device DRT to locations 

the DRT bank and offset to %1522-1523, 

rrupt masks to %1524-1527 

1 channels, initialize channel device, 
device (returning the IDENT byte for 
initialize channel device and clear the 

ropriate channel program to %1423-1505. 

for disc, 1 for mag tape, 
isc I/O program seek command to sector 2. 

entry for cold load device, 
ommand to load 256 bytes from mag tape 
ocation %7100. 

nnel program halts, compute and check 
p checksum. 

ommand to bootstrap the system, 
nnel program halts, check (CPVA ) <>%100000 . 
up ICS and trap to segment ttl, STT tt44 . 



%0200 
LOAD 0090 

0078 RH 
UBA 

0002 



ADDL 
ANDL 

ADD LSR 
ADDL 

JSB ECM 
init iali 
ADD 

JSB •+! 
ADD 
ADD 
JSB CLDO 





1000 




ADDL 




XR6 








RH 


RH 


ADD 


LSL 


SP2B 


SFl 






BOOO 




ADDL 




XR7 










UBA 


ADD 


LSR 


XR4 


CLSR 




UNC 




SP4A 


ADD 






CCPX 




no ry t 
WRX3 


HALT %10 


s 








A A ^ 




XR4 


ADO 


LSR 


SPIB 






TEST 






ADD 




BKX5 






DATA 




RG 


JSBI 


•-1 


RG 




NZRO 




RB 


BKX3 


SUB 




BKX4 




ZERO 


SFl 




BKX3 


JSBI 


*..4 


BKX3 




UNC 



clear MSGINT; XR6 : » channel talk command 
isolate chan »; SP2B := DRT offset; set Fl 
shift down channel #; XR7 := lOCL message 
disable ECM; XR4:= shifted down chantt; SR:=0 
determine memory size; clear MSGINT 

start address :• 0; SPIB :« channel* 
interrupt pending?; clear BKX5 tor messages 
write 'HALT 10'; loop back 'til bank is full 
end of bank memory? 
continue cold load; no loopback 
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RECORD 


C S. 


NO 


ADDR 


2281 




2282 




2283 




2284 




2285 




2286 




2287 




2288 




2289 




2290 


020A 


2292 




2293 


020B 


2295 


020C 


2297 


020D 


2299 


020E 


2301 


020F 


2303 


0210 


2305 


0211 


2307 




2308 




2309 


0212 


2311 


0213 



MEMORY SIZE ROUTINE 
ti..,n.t*t*t ALU A ••••••*•••« 

LABL RREG SREG FUNC SFNC STOR SPSK 



............. ALU B «••••••••••««• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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This module is used during memory initialization to: 

1. Enable/Disable error correction 

2. Determine memory size 



0400 




ADDL 


02B8 




ADDL 


30F8 




ADDL 

ADD 

JSB 


0090 




ADDL 




UBB 


ADD 


USA 


UBA 


ADO 
CAD 







UBA 


ADD 






SP4A 


ADD 






UBA 


ADD 


MSGI 


RQ 




ADD 


UNC 


RG 




ADD 






OPB 


ADD 




RB 


OPB 


RPCA 






UBB 


LINK 




RB 




ADD 



PSHR 

WRS 

BUSC 

BUSC 

BUSC 

POPR 



DCTR CTRO 
CCPX RSB 



COMMENT 



RB :« UBA :• mem size mask & shift count; 

BNKS :' read & write memory status msg 
RG :• read upper word; CTR :> UBB . ( 8 : 8 ) • 4 
UBA :« command word; UBB :« disable err corr 
XR3 :■ 'HALT XiO'; send message to memory 
Skip if MSQINT; Read upper wrd of mem status 
Wait for MS6INT; Read lower wrd of mem stat 
RB :■ clear MSGINT; UBB : > msw mem status wd 
UBA :> msw mem status; 

UBB :> Isw mem status. (0:5) 

Repeat next line 6 times 
Shift memsize into UBA 
RB :• • memory banks - 1; Clear MSGINT, rtn 
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RECORD 

NO 

2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2346 
2348 
2350 
2352 
2354 
2356 
2358 
2360 
2362 
2364 
2366 
2368 
2370 
2372 
2374 
2376 
2378 
2380 
2382 
2384 
2386 
2387 
2389 
2391 
2393 



C S. 
ADDR 



0214 
0215 
0216 
0217 
0218 
0219 
021A 
021B 
02 in 
021D 
021E 
021F 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 

0229 
022A 
02ZB 
022C 



REGISTER SAVE MODULE 
.«•«.«..*.« ALU A «.«*•••««•• 
LABL RREG SREG IFUNC SFNC STOR SPSK 



..*.....«.... ALU B •••«»••••«.»•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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CPU REGISTER SAVE MODULE 



This module will copy the CPU registers 
to main memory locations %1401-%1422. 



tt:. %i401 


- CHANNEL/DEVICE NUMBER 


%1402 


- X REGISTER 


%1403 


- DL REGISTER 


%1404 


- DB-BANK REGISTER 


%1405 


- DB REGISTER 


%1406 


• Q REGISTER 


%1407 


- SM REGISTER 


%1410 


■ S-BANK REGISTER 


X1411 


- Z REGISTER 


«1412 


- STATUS REGISTER 


%1413 


- PB-BANK REGISTER 


%1414 


- PB REGISTER 


%1415 


- P REGISTER 


%1416 


- PL REGISTER 


%1417 


- CIR REGISTER 


%1420 


- » OF BANKS 


%1421 


- CPXl REGISTER 


%1422 


- CPX2 REGISTER 



It will also write the ucode version number at SYSQLOB EXT %20 



UBA ADD 

UBB ADD 

UBB ADD 

RH ADD 
ADD 

DL ADD 

UBB ADD 

DB ADD 



Q 
SM 



ADD 
ADD 



UBB ADD 
UBB ADD 



STA 
UBB 
PB 
P 



ADD 
ADD 
ADD 
ADD 



UBB ADD 
CIR ADD 



UBA 



ADD 
INC 



CPXl ADD 

CPX2 ADD 

ADD 

ADD 











ADD 




BKX4 CF4B 




WRX4 




SPIB 


ADD 








DATA 


0301 




ADDL 








WRX4 




RH 


ADD 




XR16 




DATA 


1000 




ADDL 




XR6 




DATA 


UBA 


UBA 


ADD 


LSL 


SP2B 




DATA 




BNKD 


ADD 








DATA 






INC 




BNKD 




DATA 


0078 


RH 


ANDL 








DATA 




UBB 


ADD 


LSR 


SPIB 




DATA 




BNKS 


ADD 








DATA 


Z 




ADD 








DATA 






ADD 




BKX5 




DATA 




BNKP 


ADD 








DATA 




SPIB 


ADD 


LSR 


XR4 




DATA 




UBB 


ADD 


LSR 


SPIB 


RF 


DATA 
DATA 


PL 




ADD 
ADD 








DATA 


BOOO 




ADDL 




XR7 


SP4A 








JSB 


ECM 




RB 


DATA 


7777 




ADDL 




XR8 




DATA 


27 




ADDL 




CTR 




DATA 


0011 




ADDL 








WRX3 






ADD 




RG 


REGN 


RAR 


003A 




ADDL 




CTR 



UBA ;• %1514; BANK ACCESSES (2306) 

WRITE TO %1514,UBB«SYS HALT NUMBER (2306) 
WRITE SYS HALT CODE TO %1514 ; UBB=%1401 ( 2306 ) 
WRITE TO %1401; XRB16.MCDEV« 
WRITE (DEVICE*) ; XR6:=CHANNEL TALK COMMAND 
Write (X); SP2E! := DRT entry for dump device 
WRITE(DL); UBB:«DB-BANK 
WRITE (DB-BANK) , BNKD . « 1 (for «SAVO ) 
WRITE(DB); CLEAR MOD, DEVICE* ONLY 
WRITE (0); SHIFT DOWN CHANNEL* 
WRITE(SM), UBB:«S-BANK 
WRITE(S-BANK) ; UBB:=Z REGISTER 
WRITE(Z); CLEAR BKX5 FOR MESSAGES 
WRITE ( STATUS ) ; UBB:=PB-BANK 
WRITE(PB-BANK) , SHIFT DOWN CHANNEL « 
WRITE(PB); SP18 ; =CHANNEL » 
WRITE(P), UBB.'PL 
WRITE(PL) 

Write (CIR); XRB7 :- lOCLEAR COMMAND 
SP4A :- 0; determine memory size 
Write It of banks to %1420; XRB8 > CCPX code 
RB :>= » of banks for CKPB. (2334) 

Write (CPXl); Set for WCS parity oft (2605) 
Write (CPX2); Point to ucode version (2553) 
Ucode vers addr -> YREGA ; RG=0( s av ctr)(2605) 



(2334) 
(2334) 



(2334) 



Get WCS addrs . into RAR 



(2553) 
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RECORD 


C S 


NO 


AODR 


2195 




2396 


022D 


239 8 


022E 


2400 


Q22F 


2402 


0230 


2404 




2405 


0231 


2407 




2408 


0232 


2410 


0233 


2412 


0234 



REGISTER SAVE MODULE 
»........,, ALU A •••••«•«««* 

LABL RREG SREG FUNC SFNC STOR SPSK 



ADD 
JSB 
ADD 
ADDL 



UBA ADD 

0210 ADDL 

UBA OPA ADD 

UBB ADD 



............. f^nj B .............. 

RREG SREG FUNC SFNC STOR SPEC SKIP 



MEDJ 




REGN 
SREG 


ADD 
ADD 
ADD 


R0X3 




UBB 


ADD 


WRX3 
DATA 


034D 


UBB 
UBB 


ADD 
ADD 
ADDL 



10/ 2/86 9:26 AM 

COMMENT 

Point CTR at WCS 2nd. quarter (2553) 

Let things settle down (2553) 

Magic incantation to read WCS (2553) 

The read line (2553) 

UBA <■• PTR to SYSGLOB EXT area (2553) 

Hold data for a little bit (2553) 

Read SYSGLOB EXT base into OPA (2553) 

Hold data some more (2553) 
UBA <- offset to ucode version word (2553) 
Set up to write into ucode vers, wd (2553) 

Write version out (2553) 
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RECORD 

NO 

2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2436 
2438 
2440 
2442 
2444 
2445 
2447 
2449 
2451 
2453 
2454 
2456 
2458 
2460 
2462 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2478 
2480 
2482 



C S. 
ADDR 



0235 
0236 

0237 
0238 
0239 

023A 
023B 
023C 
02 3D 

023E 
023F 
0240 
0241 
0242 



0243 
0244 
0245 
0246 



DRT and I/O MASK Save Module 
LABL RREQ SREQ FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 



Save RiBW DRT locations, DRT pointers and I/O masks 



<< This is the data (in bank 1) 
that was present at the 
locations which will be 
overlayed by DRT info >> 

abs(8) 

abs(9) 

abs(lA) 

abs(lB) 

abs(lC) 

absIlD) 
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%1515 


- NIR 




%1516 


- ORTO 


<< 


%1517 


- DRTl 




%1520 


- DRT2 




%1521 


- DRT3 




%1522 


- DRT bank 




%1523 


- DRT offsf 


t 


%1524 


mask for 


IMBO 


%1525 


• mask for 


IMBl 


%1526 


- mask for 


IMB2 


%1527 


- mask for 


IMB3 



UBB ADD 

UBB ADD 

0008 ADDL 

ADD 

OPA ADD 

ADD 
OOIA ADDL 
OPA ADO 
OPA ADD 

1111 ADDL 

INC 

OPA ADD 

ADD 

UBB RB INC 



save overlay locations 
WRX3 



DATA 
save DRT pointers 

SP4A 

DATA 
DATA 
save I/O masks 
RB 



JSL CKP8 
SP2B ADD 
ADD 
0003 RG SUBL 

RG JSBI "-2 



SP4A ADD 

UBB INC 

ADD 

SP4A ADD 



ADD 
RG ADD 

DATA RG UBA JSBS *-2 
XR8 REPC 

ZERO UBB RB ADD 



UNC 
ROAD UNC 
RNOI 

ZERO 
UNC 

R0A3 
R0A3 

R0A3 UMC 

RNOI 

ZERO 

UMC 



The LOAD and DUMP paths join at this point. 

1. Init DRT pointers to bank 1, address 0. 

2. Save DRT address in SM, (for use later). 

3. Call «LTOP to translate logical IMB« to physical 
module* and store it in XRA9 . 



ADDL 
ADD 
INC 
ADD 



WRX3 
DATA 
DATA 



ADD BKX3 
SP2B ADD SM STFF 
RH ADD RG 

UBA JSL LTOP BNKD UNC 



YREQA :• %1515; Check BNKP (2334) 

Write NIR; Read DRTO, skip (2334) 

SP4A := adr of DRT BANK; inc YRGB , read DRTn 
; If RG = 3 then exit this loop 
Write DRTn; Inc count & loop back 

; Read DRT BANK (abs(8)) 

SP4A :• mask 1 adr; Read DRT OFFSET (abs(9)) 

Write (8) to %1522 

Write (9) to %1523; Read mask 1 

RB :• CCPX mask delta; Increment YRGB, read 
UBA :« 1; If RG ■ zero then exit this loop 
Write mask n; Decrement count & loop back 



• Repeat clearing of CPX bits 
Exit if CCPX mask = FFFF; Clear 



CPXl, CPX2 



UBA -.' adr of DRT ptrs; BKX3 := 
YRGA:-8; SM:» DRT ADR OF LOAD/DUMP DEVICE 
ABS(8) (DRTBANK) :>1; RG ; - MCDEVd 
ABS(9) (DRTOFFSET) :-=0; JSB TO MAP MOD tt 
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RECORD 

NO 

2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2506 
2508 
2510 
2512 
2514 
2516 
2517 
2519 
2521 
2523 
2525 
2527 
2528 
2530 
2532 
2533 
2535 
2537 
2539 
2540 
2542 
2544 
2546 
2548 
2550 
2552 
2554 
2555 
2557 
2558 
2560 



C S 
ADDR 



0247 
0248 
0249 
024A 
024B 
024C 

024D 
024E 
024F 
0250 
0251 

0252 
0253 

0254 
0255 
0256 

0257 
0258 
0259 
025A 
025B 
025C 
025D 
025E 
025F 
0260 
0261 
0262 



INITIALIZE AND IDENTIFY LOAD/DUMP DEVICE 

*••*•*••••• ALU A *********** ..«........«• ALU B ••••»••»•«•«•• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



I/O INITIALIZATION, DEVICE IDENTICATION 

This module will initialize the channel for the 
cold load / dump device 
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Issue I/O CLEAR of all channels. 

Initialize the channel for the cold load 

device 

Identify the type of device The ident byte 

will determine whether the cold load device 

is a magnetic tape or a disc. 

Re-init lalize the channel for the cold 

load device. 

Issue DEVICE CLEAR 



CLDl 007F RH ANDL 

ADD 

0007 ADDL 

0002 SP2B ADDL 

0007 RH ANDL 

CRTl ADDL 

UBB ADD 
ADD 



XRl 
XRl 



0200 
0002 



INC 
ADD 
ADDL 

ADDL 
ADDL 



RH 

SP4A SFl 

SPOA 

SP4A 

XRl 

RF 

RG 

XRl 
RQ 



ADD 

ADD 

RQ JSB CRUW 



CRUW 



ADD RQ 
00E5 ADDL 

ADD 

ADD RG 

ADD 

ADD 

ADD 

ADD 

ADD 
0002 SP2B ADDL SP4A 
CRT2 0341 ADDL XRl 



CFl 
CFl 



XR7 


JSL 


lOMS 


SP3B 


XR6 


JSB 


ECM 


SP3B 




ADDL 




RB 


UBB 


JSL 


lOMS 


RQ 


RH 


JSL 
ADDL 


CINT 


BKX5 


XR6 


JSL 


lOMS 


SP3B 




ADDL 




RG 




JSL 


lOMS 


Z 




JSL 


lOMS 


BNKS 




JSL 


lOMS 


CTR 




ADDL 




SP3B 


UBA 


JSL 


lOMS 


XR7 


RF 


JSBI 


CRTW 


RF 


XR7 


JSL 


lOMS 


SP3B 




CAD 




XR8 




JSB 


CRT2 






JSL 


lOMS 


SP3B 


RQ 


ADD 


RRZ 


XR8 


UBA 


ADD 




CTR 




JSL 


lOMS 


SP3B 




INC 




REGN 




ADDL 




RG 


XR6 


JSL 


lOMS 


SP38 




ADDL 




RG 


XR6 


JSL 


lOMS 


SP3B 




JSL 


CINT 


BKX3 




ADDL 




BKX7 



NZRO 
NZRO 



NZRO 
NZRO 



UNC 
UNC 
UNC 



NZRO 
NZRO 



CTRO 
ZERO 



NZRO 
UNC 



RH:-CDEV «, ISSUE lOCL COMMAND 
ENABLE ERR6r CORRECTION MEMORY ; UBB =1000 
MASK J RB: -UBB: "MASK TO SET IRQ AND CSRQ 
DRT ADDR +2; WRITE TO REQISTER«0 
DEVICE «; INITIALIZE CHANNEL 

CLEAR RF FOR DELAY COUNTER (2635 

CHANNEL LISTEN CONWAND (2635 

RG: -CHANNEL LISTEN; DO IT (2635 

; RG:=CHANNEL UNTALK COMMAND (2635 
XRl: -IDENTIFY COMMAND; CHANNEL UNTALK (2635 
RG:iIDENTIFY COMMAND, IDENTIFY DEVICE CMD 

RQ:-GET TWO BYTES FROM DEVICE (2635 

CLEAR CTR FOR RETRIES (2635 

FORMATS TO READ REG 2, WRITE REQ 3. (2635 

REG 3; -2 (DETECT OUT FIFO EMPTY) (2635 

XRB7 :• READ REG. 2 FORMAT (2635 

DELAY 13 MSECS. (2635 

READ REG 2 (2635 

SKIP IF BYTES ARRIVED (2635 

INCREMENT CTR: XRB8 .- INVALID ID 2635 

RETRY READ RE(i 2 UNTIL CTR - (2635 

RQ:-0; RETURN IDENT BYTE (2635 

SAVE I^IRST ID BYTE IN LSB OF XRB8 (2635) 

SET CTR FOR XRBlOl (2635 

COWHAND TO READ SECOND BYTE (2635 
;XRB101<>0 FOR NO DCU LOGGING (2312 
UNLISTEN CONWAND TO GIC 

UNTALK COMMAND TO DEVICE 

SP4A;-DRT ADDR +2; REDO INITIALIZE CHANNEL 
XR1:=%1501; BKX7:-%1470 
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RECORD 


C.S. 


NO 


ADDR 


2563 




2564 




2565 




2566 




2567 




2568 




2569 




2570 




2571 




2572 




2573 




2574 




2575 




2576 




2577 




2578 




2579 




2580 




2581 




2582 




2583 




2584 


0263 


2586 


0264 


2588 


0265 


2590 


0266 


2592 


0267 


2594 


0268 


2596 




2597 


0269 


2599 


026A 


2601 


0268 


2603 


026C 


2605 


026D 


2607 


026E 


2609 


026F 



BOOTSTRAP SET UP MODULE 

........... ALU A ••••■>•••«•• »«(,«..»*»«...« ALU B »••••••<.««•«•• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 



BOOTSTRAP SET UP MODULE 

This module will set up the bootstrap I/O program 
that microcode builds. 

X = 1 for 1st bootstrap call 
X • for 2nd bootstrap call 

1) Builds the disc or MT I/O program. 

2) If loading rather than dumping then modify 
the disc program to seek to sector 2 and 
read to %7100. 

3] Set up the DRT entries for load/dump device 

4) Set interrupt system mask for channel. 

5) Issue SIOP command for execution of I/O 
prog ram. 



JSB DSCP UNO 
CLDR XRIS JSB DMPl EVEN 
XRl ADD WRX3 

INC LSL DATA 
DMPl 0003 ADDL SPOA 
0313 ADDL 
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0317 ADDL 
SPOA SP2lt ADD 
3000 ADDL 
UBA UBA ADD 
ADD 
INC 
0007 UBB ANDL 



XR7 



X 
RG 





XR8 


JSL 


NSDV 








BKX7 


ADD 






WRX3 


0E40 




ADDL 










UBB 


ADD 






DATA 




BKX5 


ADD 




XR20 






SP2B 


ADD 




XR31 


WRD 




UBA 


ADD 






DATA 




UBA 


ADD 






DATA 


002F 


SPIB 


SUBL 




CTR 




9000 




ADDL 




SP3B 






REGN 


JSL 


lOMS 


RG 




5000 


BKX5 


lORL 




SP3B 








JSL 


I CMS 


DL 





Copy 13037 disc chan prog or check further 

SKIP LOAD SET UP IF DUMP; YREGB:=%1470 

YREGA:-%1501: UBB:«5t7100 

SEEK TO SECTOR 2; READ TO %7100 

SPOA;=DRT INDEX; XRB20:«CDEV» 

CP ADDRESS, DRT ADDRESS WRITE TO BANK 1 

XRB31:« DRTO ADDRESS 

CPVA ADDRESS; WRITE (CP ADDRESS) 

DRT+3 ADDRESS; WRITE(CPVA ADDRESS) 

UBA. -3000; CTR . -BITMASK* FOR CHANNEL 

UBA: "COOO, WRITE DRT3; SP3B:=SMSK COMMAND 

; RG: -CHANNEL MASK, SEND SMSK 

X:=l FOR 1ST BOOTSTRAP ; SP3B:- SIOP COMMAND 

RG; -DEVICE «; ISSUE SIOP COMMAND 
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COLD 


LOAD 


AND DUMP ! 


JET U 


P 














RECORD 


C S 




* * * * 1 


kitktl* 


•• ALU A •' 


» * * * * 


* « * * A 


A ft A A 1 


» A A ft A 


•••• ALU B 


A A A A « 


I A A A A 1 


(AAAA 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC SFNC 


STOR 


SPSK 


RREG 


SREQ 


FUNC SFNC 


STOR 


SPEC 


SKIP 


2612 




• ««•. 


>•••>>, 


>>••» 




>««•* 


•••••• 




• AAAA 


AAAAAAAAAA. 


llAAAAl 


IAAAA< 


.AAA 


2613 


























A 


2614 








COLD LOAD AND 


DUMP 


SET UP MODULE 








• 


2615 


























* 


2616 








Thi 


s module will set up 


cold 


load 


running of 


the 




* 


2617 








I/O 


boot St rap 


prog 


rams . 












« 


2618 


























A 


2619 




* * * * 1 


k * A A * ] 






AAA*** 


* Ik * III Ik ) 


* ll * * * 


AAAAAAAAAAi 


k * A * A ll 


I A A A A 1 


1 A A A 


2620 




























2621 


0270 


CCL 


ocoo 




ADDL 






F379 




ADDL 


PB 






2623 


0271 








ADD 






U6A 




ADD 




BUSC 




2625 


0272 


CLLP 






JSB •+1 




TEST 




XR20 


ADD 


RH 






2627 


02 73 








JSB CLP 




MSGI 




DL 


INC 


DL 




NZRO 


2629 




























2630 


0274 








JSB CLLP 




UNC 




PB 


JSZI CPTO 


PB 




ZERO 


2632 




























2633 


0275 


CLP 


0200 




ADDL 


RG 








ADD 


CTR 


CCTX 




2635 


0276 




0090 




ADDL 








UBA 


INC LSL 




BUSC 




2637 




























2638 


0277 








ADD 








UBA 


ADD 




CCPX 




2640 


0278 








ADD 




SFl 


0040 


OPB 


ANDL 






ZERO 


2642 


0279 




X 




JSB LD2 




ODD 






JSL CSRQ 


BKX5 




UNC 


2644 


027A 








ADD 


SPOA 


FIHB 




RG 


ADD LSL 




BUSC 




2646 


027B 


CLFN 


0007 


RH 


ANDL 


RG 




ICOO 


RH 


lORL 


SP3B 






2648 


027C 






XR7 


ADD 




R0X3 






JSL lOMS 


BKX5 




UNC 


2650 




























2651 


027D 






RB 


ADD 


RG 






XR6 


JSL lOMS 


SP3B 




NZRO 


2653 




























2654 


027E 




SPOA 


OPA 


JSZS CPAB 




NZRO 


A401 




ADDL 


SPIB 






2656 




























2657 


027F 








JSZ ICS 




SFl 




XRie 


ADD 


RH 






2659 


0280 








INC 


STA 


FIHB 


FFF7 




ADDL 








2661 


0281 




UBB 


Q 


ADD 




WRX3 


4000 




ADDL 


XR12 






2663 


0282 








INC 




DATA 






ADD 


BNKS 






2665 


0283 






SM 


INC 




WRS 




SM 


INC 


SM 






2667 


0284 






RH 


ADD 




DATA 






JSL PCL3 


BNKD 




UNC 
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UBA. -GO UNBUSY CMO , SET TIMEOUT FOR 48 SECS 

; GO UNBUSY 

RESET CPUTIMER^ COLDLOAD DEV« 

JSB IF MSG INTERRUPT 

DO NEXT LINE ONCE IN 2**16 TIMES 
LOOP BACK IF NOT MSGI 
;ELSE SYSHALT IF TIMEOUT. 
RG:-UBA:-5(;0200; CTRi-Oj^ CTX:«0 
SET CLEAR MESS. INT. FIELD; 
READ FROM CODE (UBB:-«0402) 
, Clear message Interrupt bit 
Set Fl. Skip if it is an IRQ 
2ND TIME IF NOT CSRO AND X ODD; JSB IF CSRQ 
SP0A:«r.8000; GO UNBUSY (UBB;»%0400) 
RG:.DEVlCEi; SP3B:-INT CLEAR MESSAGE 
READ(CPVA) : 

CLEAR INTERRUPT ON DEVICE, BKX5 : -0 
RG:-%5400 TO ENABLE IRQ AND CSRQ; 
SP3B:-%1000 (WRITE TO REG» CHAN/DEV 0) 
IF CHANNEL PROGRAM ABORT THEN TRAP 
SPIB: 'EXTERNAL PROGRAM LABEL 
NO, SET UP ICS, SFl: RH:-MCDEV« 
STA: -PRIVILEGED^ SEQ« 1; -9 ON UBB (CSTX) 
WRITE AT 0-9;SEt PHYS MAPPING (CSTX) 

Q-9-1 (CST EXTENSN); BANKS«0 (CSTX) 

WRITE PARAMETER^ SM;.SM + 1 
WRITE (CHANNEL/DEVICE ) ; GO SET UP SEGMENT «1 
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COLD 


^LOAD 


AND DUMP 


BOOTSTRAP 












RECORD 


C.S. 




A A A A 1 




'• ALl 


1 A • 


A A A A A 1 


k A A A A 


AAAAAAAAAl 


•••• ALU B 




A A A A A 


NO 


ADDR 


LABL 


RREG 


SREQ 


FUNC 


SFNC 


; STOR 


SPSK 


RREG SREG 


FUNC 


SFNC 


STOR SPEC 


SKIP 


2670 




>•«,*> 


•AAAAI 


>AA«A> 


1 A • A A A 


AAAA 


AAAAAI 


tAAAAA 


AAAAAAAAAA. 


AAAAA, 


«AAAAI 




AAAA 


2671 




* 
























2672 




* 




COLD 


LOAD 


AND 


DUMP BOOTSTRAP MODULE 










2673 




* 
























2674 




* 




This 


modu] 


.e will pe rf orm 


the bootst 


rapping of 


MPE's 




2675 




* 




INITIAL ar 


Id re 


ilated 


segment s . 










2676 




* 
























2677 




AAA* 




t * A A A ] 


ft A A A A « 


[ A A A A 




* A A A A A 






k A A A A 1 




A A A A 


2678 




A 
























2679 


0285 


L02 




XR15 


JSB 


LC2 




ODD 


0080 


ADDL 




RG 




2681 


0286 




0358 




ADDL 




SPOA 






JSB 


LD 


BKX5 


UNC 


2683 




























2684 


0287 


LC2 


0E40 




ADDL 




SPOA 






ADD 




BKX5 




2686 


0288 


LD 




UBA 


ADD 






R0X3 


A72E 


ADDL 




SP3B 




2688 


0289 








ADD 








XR31 


ADD 




SP2B 




2690 


028A 




SPOA 




INC 




SPOA 


R0B3 


RG 


CAD 




RG 


NZHO 


2692 


028B 






OPA 


ADD 




SP4A 






JSB 


LDNE 




UNC 


2694 


028C 








JSB 


A. 2 




UNC 


SP3B OPB 


ADD 




SP3B 




2696 


0280 


LI3NE 


ICOO 


RH 


XORL 




SP4A 




SP3B SP4A 


XOR 






ZE«0 


2698 


028E 




0007 


RH 


ANDL 




RG 






JSZ 


CPCS 




UNC 


2700 


028F 






XR15 


ADD 


LSR 




ODD 


035B 


ADDL 




RH 




2702 


0290 




0E41 




ADDL 




RH 




SP4A 


JSL 


lOMS 


SP3B 


NZRO 


2704 


0291 






RB 


ADD 




RG 




XR6 


JSL 


lOMS 


SP3B 


NZRO 


2706 




























2707 


0292 




0003 


SP2B 


ADDL 








SPZB 


ADD 




WRD 




2709 


0293 






UBA 


ADD 






WRD 


RH 


ADD 




DATA 




2711 


0294 








ADD 




X 




COOO 


ADDL 








2713 


0295 






UBB 


ADD 






DATA 


5000 XR20 


lORL 




SP3B 




2715 


0296 




0007 


UBB 


ANDL 




RG 






JSL 


lOMS 




UNC 


2717 


0297 








ADD 










JSB 


CCL 


DL 


UNC 
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DUMP?; SET LENGTH OF CP PROGRAM 

SET ADDRESS FOR READ (%1530); 

LOAD BOOT, BKX5:-0 

SET ADDRESS FOR READ (%7100); BKX5:=0 

READ(CHECKSUM) ; SP3B : >%123456 

;SP2B:«DRT0 ADDRESS 

READ (PROGRAM; DECREMENT WORD COUNT, DONE? 

SP4A: -CHECKSUM; YES! 

LOOP BACK; ACCUMULATE SUM IN SP3B 

SP4A:-INT. CLEAR MASK; CHECKSUM CORRECT? 

RG;=DEVICE«; NO, SYSTEM HALT 007 

DUMP?; RH:»%1533 

RH:.%7101; RESET INTERRUPT ON GIC 

RG:«%5400 TO ENABLE IRQ AND CSRQ; 

SP3B:=%1000 (WRITE TO REGtt CHAN/DEV 0) 

UBA:=DRT AODRESS+3, WRITE TO DRT(O) 

WRITE TO DRTra); WRITE CP POINTER 

X:«0; SET DRT CHANNEL RUN BIT MASK 

WRITE TO DRT(3); SET UP SIOP COMMAND 

UBA:»DEV«; ISSUE SIOP COMMAND 

; DL:-0, PERFORM BOOTSTRAP 
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RECORD 

NO 

2720 
2721 
2722 
2723 
2724 
272b 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
273B 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2750 
2752 
2754 
2756 
2758 
2760 
2762 
2764 
2766 
2768 
2770 
2772 
2774 
2776 
2778 
2780 
2782 
2784 



C.S. 
ADDR 



0298 
0299 
02gA 
029B 
029C 
029D 
029E 
029F 
02A0 
02A1 
02A2 
02A3 
02A4 
02A5 
02A6 
02A7 
0ZA8 
02A9 
02AA 



COLD LOAD AND DUMP CHANNEL INITIALIZATION 

*•••«•«•«•« ALU A »••»••»•«•• «««.«««««*•«« ALU B ••••••••«*»••« 

LABL RREG SREG FUNC SFNC STOR SPSK RREQ SREG FUNG SFNC STOR SPEC SKIP 



COLD LOAD AND DUMP CHANNEL INITIALIZATION 

This module will perform the initialization and the 
placing on-line of the HPIB channel on the GIC. 

1 ) Clear syitem mask . 

2) Clear 0RT3 entries . 

3) Read register tl for system controller flag 
[bit 12). 

4) If not system controller then controller cannot 

be made to be cont roller-in-charge (system halt 14) 

5) Enable the channel to respond to indentify 
sequences on the HPIB. 

6) Go on-line to the HPIB and enable HPIB CRC 
capability . 

7) Assert IFC. REN on the HPIB. 

8) Wait 100 ms for duration of IFC, REN. 

9) Remove IFC. Keep REN. 

10) Clear any HPIB interface errors. 

11) Check register •! to verify that channel 
controller is now cont roller-in-charge . 

12) If not cont roller-in-charge take off-line and 
system halt 21 . 
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CINT 0080 



0100 
0008 
SPOA RQ 



ADDL 

ADD 

ADDL 

ADDL 

AND 

JSZ NSYC 



SP4A 
SPOA 



0030 

CINR 1200 

0020 

0010 
1700 

2 00 A 
USA 



ADDL 
ADD 
UBB ADD 



NZRO 
UNC 



RQ 



ADDL 

ADDL 

ADDL 

CAD RG 

ADDL RH 

ADDL 

ADD RG 

ADDL 

ADD LSL RG 

JSB CRT2 



UBA 

1600 

UBB SP4A 
RH 

8080 

XR13 

RH 

XR9 

UBA 

XR9 

SP4A 

RH RQ 

XR6 
XR8 



lORL 

JSL lOMS 

CAD LLZ 

JSL lOMS 

ADDL 

ADD 

JSL lOMS 

ADDL 

JSL lOMS 

JSL lOMS 

JSBI CINR 

JSL lOMS 



JSL 
JSL 
AND 
JSZ 
ADD 
JSL 
JSB 



lOMS 
lOMS 



I CMS 
CRTl 



SP3B 

XR9 CF2 

SP3B 

RH 

XR13 

SP3B 

SP3B 

SP3B 

XR9 

XR9 

SP3B 

SP3B 



UNC 
NZRO 

NZRO 

NZRO 

NZRO 

NZRO 

UNC 

NZRO 

NZRO 

NZRO 

UNC 

ZERO 
Fl 



COMMENT 



RQ:-80; SET INIT COMMAND 
. SEND INIT CONWAND 

REQtl; TIMER FOR ASSERTING IFC AND REN 
MASK; READ REQtl FOR SYS. CONTROLLER? 
SKIP IF SYS. CONTROLLER; WRITE TO REG«6 
SYSTEM HALT IF NOT SYSTEM CONTROLLER , REG«7 
REGt6:'0008; PPOLL RESPONSE 
;ASSERT CRC WHILE GOING ON-LINE 
REQt7:.4080; GO ONLINE ON HP-IB 
REG«6:«0030; ASSERT IFC, REN ON HP-IB 
REG«2; ALLOW 100 USEC t6 ASSERT IFC AND REN 
REGt6:.0020; REMOVE IFC, KEEP REN 
REG»2:-%FFFF, CLEAR ANY HP-IB INTERFACE ERR, 
MASK; READ REG«1, FOR CIC OF HP-IB 
WRITE TO REG»7; SKIP IF HP-IB CONTROLLER 
REGISTER «7:.0' SYSTEM HALT IF NOT SYS CONT 
MASK TO BE SHIfi-TED LEFT ;SP3B : -XIOOO 
UBA: »!4014, DEVICE CLEAR;SEND MSG IF 792X 
EXIT ROUTINE 
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DISC 


I/O 


'ROGRAM BUILD 


















RECORD 


C S. 




A A * A 


A A A A 


'* ALU A *' 


AAAA 




A A A A rt 


AAAA 


«*•• ALU B 


AAAA 


k A A A A 


AAAA 


NO 


ADDR 


LABL 


RREG 


SREQ 


FUNC 


SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


2787 




«>•• 


(••I.* 


AAAA 


<AAAA 


• AAA! 


AAAA 


>*AAAA 


AAAAAAAAAA 




AAAA 


« A A A A 


tAAAA 


AA>t 


2788 
































2789 








DISC 


I/O PROGRAM BUILD MODULE 














2790 
































2791 








This 


modu 


Le will build th 


e disc 


I/O 


prog 


am 








2792 








at 1 


ication %7100, 


















2793 
































2794 




* • * * 


h * A A * 


« A A « 


r * ft * * 


ft ft A ft # 


AAAA 


k A A A A A 


A A A A A ll 


ft ft ft ft 




AAAA 


* A A A A 




A A )k 


2795 
































2796 


02AB 


DSCP 


CLDD 




ADDL 


LBL 


SPOA 




FFF3 




ADDL 




RD 






2798 


02AC 




0313 




ADDL 












ADD 




BKX4 






2800 


02AD 








JSB 


UNPK 




UNC 


UBA 




ADD 






WRX4 




2802 


02AE 








JSB 


CLDR 




UNC 






ADD 




BKX3 






2804 


02AF 


CLDD 


0200 


0000 


0408 


0002 










CON 










2806 


02B0 




0000 


0000 


033E 


0200 










CON 










2808 


02B1 




0000 


0408 


0002 


0000 










CON 










2810 


02B2 




0000 


0343 


0308 


0004 










CON 










2812 


02B3 




0000 


0000 


0344 


0200 










CON 










2814 


0284 




0000 


0408 


0006 


0000 










CON 










2816 


02B5 




0000 


033F 


0200 


0000 










CON 










2818 


02B6 




0408 


0002 


0000 


0000 










CON 










2820 


02B7 




0342 


0300 


0100 


0000 










CON 










2822 


0288 




0000 


0358 


0200 


0000 










CON 










2824 


02B9 




0180 


0000 


FFFF 


0F05 










CON 










2826 


02BA 




0200 


0000 


0003 


0500 










CON 










2828 


0?BB 




0300 


0000 


0000 


0000 










CON 










2830 


02BC 


UNPK 






ADD 












ADD 






PSHR 




2832 


02BD 


UMPl 


0004 




ADDL 




RG 




0038 




ADDL 




PL 






2334 


02BE 


UNP2 


SPOA 




ADD 






WRX3 


0027 




ADDL 




CTR 






2836 


02BF 








ADD 




REGN 


RAR 


PL 




ADD 




CTR 






2838 


02C0 




RG 




CAD 




RG 




PL 




INC 




PL 






2840 


02C1 








JSB 


* + l 




MEDJ 




REGN 


ADD 








RSI3 


2842 


02C2 








ADD 






TEST 




SREG 


ADD 








NF2 


2844 


02C3 








ADD 








UBB 


SPIB 


ADD 




SPIB 




UNC 


2846 


02C4 




RG 




JSB 


UNP2 




NZRO 


RREG 




ADD 






DATA 




2848 


02C5 




SPOA 




INC 




SPOA 




OBOO 




ADDL 










2850 


02C6 




UBA 


UBB 


SUB 






NZRO 






ADD 










2352 


02C7 




0B20 




ADDL 




SPOA 






RD 


JSBI 


UNPl 


RD 




NZWO 


2854 


02C8 








ADD 






NZRO 






ADD 






POPR 


NF2 


2856 
































2857 


02C9 








ADD 






RSB 


FECO 


BKX5 


ADDL 




RG 






2859 
































2860 


02CA 






XRl 


ADD 












ADD 
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SETUP THE MSG POINTER; «0F MSG 

STARTING MEMORY ADDRESS: SET BANK:«0 

GO UNPACK THE MSG & WRITE TO WCS : MEM ADDR 

RETURN; SET BKX3:«0 

WAIT FOR 1st PPOLL 

SET FILEMASK FOR DISC 

ISSUE READ STATUS COMMAND 

READ 4 STATUS BYTES 

ISSUE WAIT 

ISSUE SEEK COMMAND 

ISSUE WAIT 

ISSUE READ COMMAND 

READ 256 BYTES TO ADDR 0358 (FOR DUMP) 

ISSUE WAIT 

DONE - INTERRUPT HALT 

SEEK COMMAND; READ COMMAND 

STATUS COMMAND; STATUS BUFFERS 

ADJUST RAR 

« OF WCSs : STARTING OF WCS OPTION 

WCS POINTER: WCS ADDR INHIBIT WCS PARITY 

RAR:-YREGA (WCS ADDR); STARTING OF WCS 

DEC « OF WCS; INC THE WCS POINTER 

V8US:-WCS ADDR WHEN THIS LINE IS IN RANK 1 

RESET CLK; SKIP IF FROM COLD LOAD 

IF F2 THEN ADD WCS DATA TO CKSUM, SKIP 

LOOPBACK IF NOT FINISHED; WRITE TO MEMORY 

Inc the msg pointer; UBB := addr of MPL area 

Skip if new address not start of MPL area 

Skip over MPL area; Do again if not done 

Slow down RSB; Pop rtn adr, skip if from 

cold load 
RETURN; RG :■ precomputed WCS checksum - 

MPL area checksum 
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Magn 


RECORD 


C S. 


NO 


ADDR 


LABL RREG 


2862 




••••««••• 


2863 




» 


2864 




* 


2865 




• 


2866 




« 


2867 




* 


2868 




* 


2869 






2870 




• 


2871 


02CB 


MTCP CLDT 


2873 






2874 


02CC 


FFF4 


2876 






2877 


02CD 


0313 


2879 


02CE 




2881 


02CF 


0070 


2883 


02DO 




2885 


02D1 


OOFO 


2887 






2888 


02D2 




2890 


02D3 





Magnetic Tape I/O Program Build Module 

• •{«•*•*••• AllJ A •»•«••*«••• *••••«««*. .•• 



ALU A •••»•••«••• ............. ALU B .■•••••••»•••« 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 



MAGNETIC TAPE I/O PROGRAM BUILD MODULE 

This module will build the Mag Tape I/O program to 
read the bootstrap I/O program. 



ADDL LBL SPOA 

ADDL RD 

ADDL 

JSB UNPK U 

ADDL 

ADD UBA ADD CCPX 

ADDL ADD R0A3 

ADD 

JSB DMPl U 
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0001 XR8 


SUB 




JSL 


UBA 

UBA 


ADD 
ADD 
ADD 
ADD 
ADD 


UBA 


ADD 
ADD 



COMMENT 



SETUP THE MSQ POINTER 

SKIP NEXT LINE IF ID VALID 

NUMBER OF MSG 

GO TO CPTO 

MEM STARTING ADDR; SET BANK:-0 

GO UNPACK THE MSQ, STARTING MEM ADDR 

MASK TO SET FLUSH BIT IN CPX2 

SET THE BIT 

MASK TO CLEAR FLUSH BIT IN CPX2 

DO A READ TO START FLUSHING 

CLEAR THE BIT 

RETURN, BKX3:-0 



(2635) 
(2635) 
(2635) 



(SRF6) 
(SRF6) 
(SRF6) 
(SRF6) 
(SRF6) 
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RECORD 

NO 

2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2913 
2914 
2916 
2918 
2920 
2921 
2922 
2924 
2926 
2928 
2930 
2931 
2933 
2935 
2937 
2939 
2941 



C.S 
ADDR 



02D8 
02D9 
02DA 
02DB 

02DC 
02DD 
02DE 
02DF 
02E0 



WCS & LUT Checksum Routine 

........... ALU A ..»«.» 

LAIBL RREG SREG TUNC SFNC STOR SPSK 



..*.....«.*.. ALU B ••••«•••••««•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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CKSM: Calculates WCS and LUT checksums and compares them 

against the values IML has read from the disc or tape. 
A system halt occurs if an error is found. CKSM is 
executed upon cold-load or power-on. after the system 
microprogram has been loaded by IML 

The following data has been left for us by IML: 

BKX3 = number of WCS locations 
BKX5 ■= WCS checksum (+ %123456) 
BKX6 = LUT checksum (+ %123456) 

Entered with BNKD = 



02D4 CKSM 

02D5 
02D6 
02D7 



LICK 
LCKl 







ADD 




SPOA 


SF2 


A72E 




ADDL 




SPIB 




RG 


SPIB 


ADD 
JSB 
JSZS 


UNPK 
WCCE 




MEDJ 
NZRO 


0020 
A72E 


BKX3 


ADD 

SUBL 

ADDL 




BNKP 

RD 

SPIB 


PSHR 


UBB 


SPIB 
SPIB 
UBB 


ADD 
ADD 
ADD 
ADD 


now 
LSL 


io LUT chec 
RC 
X 

WRD 
DATA 


ksum 
0300 

RC 


BKX6 

RC 

SPIB 


ADDL 
ADD 
ADD 
ADD 


LSL 


SPIB 
RG 


RONP 


X 

UBA 

UBA 


RC 

LUTO 
LUTl 
RG 


ADD 
INC 
ADD 
ADD 
JSZS 


LTCE 


RC 
X 


NZRO 


1000 
RREG 


OPB 
RC 


ADD 

ADD 

ADDL 

JSBS 

ADD 


LCKl 







Starting WCS adr (SPOA) := 0, set F2 for 

«UNPK, SPIB :- %123456 
; BNKP := (for SLTCK), Push return address 
Med jump; RD := -(« WCS Iocs) + '20 (« MPL) 
Upon rtn RG = eitp cksm, SPIB = act cksm, 

Syshalt if <>: SPIB := %123456 



LUT adr (RC) := 
X :- %123456; RG 
Write adr = %1400 



; SPIB -.' %1400 
:» exp LUT cksm 
; UBB ;- LUT adr & lsl(2) 
UBA :- LUT adr & lsl(4), write to %1400; 

Read LUT adr into NIR (write goes first) 
Wait for read 

Inc LUT adr; Fr«eze if NIR is not valid 
Add LUTO to ckstn; UBB :' last LUT adr + 1 
Add LUTl to cksm; Loop if LUT adr <> 11000 
SYSHLT if expected cksum <> calculated cksum 
pop return adr; slow down following RSB 
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RECORD 

NO 



C S. 
ADDR 



Module Map Routine 
....«.«...* ALU A ••«..•••«•« 
LABL RREQ SREG FUNC SFNC STOR SPSK 



...........*. ALU B •••«•.«•<••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2961 
2962 
2964 
2966 
2968 
2969 
2971 
2972 
2974 
2976 
2978 
2980 
2981 



02E2 
02E3 
02E4 

02E5 

02E6 
02E7 
02E8 
02E9 

a2EA 



MMAP -- Initialize the MODULE MAP (see »LTOP). 

Entered from «CLOE or IPON with a bit set in RB 
for every lOA that exists on the CSB. i.e., bit 1 
set tor lOAl. bit2 for I0A2 , etc 

If module exists then its module! is stored into the 
module map (hWAP) and a message is sent to that lOA 
to enable its CSRQ and IRQ masks, else a -1 is stored 
at this module's position in MMAP. 

RB should be set up by the DCU on LOAD, PON. 



MMAP 0008 ADDL 

0020 ADDL 
MAPI ADD 

CAD 

SP4A ADO 

SP4A ADD 
MAP2 0008 SP4A ADDL 
ADD 
D180 ADDL 

ADD 



SP4A 

RF 

REGN 

REGN 

XR9 
SP4A 



1000 




ADDL 




SP3B 






OODO 
RB 


RB 


ADDL 

ADO 

JSB 


MAP2 


CTR 

BKX5 

RB 


SRF 


POS 


5400 




ADDL 




RQ 






RF 


CTRS 
SP4A 


JSL 
INC 
JSBS 
ADD 


lOMS 
MAPI 


CTR 


CRF 
POPR 


UNC 

NZRO 
NZRO 



SP4A :• starting module 

SP3B :• 11000 (write 
RF :» max modulet: CTR 
, BKX5 :• 0, set liFLAG 
STORE -1 INTO KWAP FOR 
.RB.>RB'"2, JUMP IF MODU 
If module exists then s 
module map; RG ;• ena 
XR9 : ' module » ; Go ena 
Inc module «; Inc REGN* 
; Do next module if las 
SPOA :« param ilsrj 1) ( 
Pop return adr, slow 
XR12-4000 CONST;RET TO 



IMBI reg 0) 

:= REGnI for XRA80 

THIS MODULE 
LE DOES NOT EXIST 
tore module* in 
ble masks command 
ble CSRO A IRQ masks 
, clear RFLAG 
t one not max (2324) 
for »PON) ; 
down RSB (2324) 
PON OR CLDE (2324) 
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BFD Boots 


rap Module 
















RECORD 


c s 




* * * * 




« ALU A «•«••• 


* * * * * 


* * * * 


* * *' * 


*••* ALU B 


* * * * 


* * * * 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


29!i4 




..*. 


.««.. 




..•» 




>...*. 




.>>,. 


*.... 


«... 






2985 




























2086 






BFD Cold 


.cad Boot St rap 


Module 














2987 




























2988 




AAA* 


* * * * * 


* * * * 


* * * * 


********* 


****** 




* * *< * 


* * * * * 


* * * * 


* * * * 


k * * * * 


2989 




























2990 


02EB 


CBFD 


0600 


0000 


0200 


0000 








CON 








2992 


02EC 




0503 


0000 


0000 


003C 








CON 








2994 


02ED 




FFF6 


003C 


0405 


0009 








CON 








2996 


02EE 




0009 


8000 


033F 


0200 








CON 








2998 


02EF 




0000 


0502 


0000 


0000 








CON 








3000 


02F0 




0030 


FFEA 


0405 


OOOD 








CON 








3002 


02F1 




OOOD 


COOO 


0343 


0200 








CON 








3004 


02F2 




0000 


030E 


0100 


0000 








CON 








3006 


02F3 




0000 


0358 


0200 


0000 








CON 








3008 


02F4 




0503 


0000 


0000 


OOIC 








CON 








3010 


02F5 




OOIC 


OOIC 


0180 


0000 








CON 








3012 


02F6 




3E00 


0000 


0000 


0008 








CON 








3014 


02F7 




7411 


0000 


0000 


0003 








CON 








3016 


02F8 




1800 


0001 


0000 


OOOD 








CON 








3018 


02F9 


SBFD 


0405 


0001 


0000 


COOO 








CON 








3020 


02FA 




034A 


0200 


0000 


030E 








CON 








3022 


02FB 




0014 


0000 


0400 


0367 








CON 








3024 . 


02FC 




0180 


0003 


0000 


0000 








CON 








3026 


02FD 


CLCT 




XR15 


JSB 


DMPl 


EVEN 


0334 




ADDL 




BKX7 




3028 


02FE 






XRl 


ADD 




WRX3 


0E4a 




ADDL 




BKX7 




3030 


02FF 






XR7 


ADD 




DATA 




BKX7 


ADD 






WRX3 


3032 


0300 








ADD 








BKX7 


ADD 






DATA 


3034 


0301 








ADD 










JSL 


DMPl 
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SEND OUT DEVICE IDENTIFY; WAIT <2511> 
ISSUE DSJ 
;SET MASK 

ISSUE STATUS MASK; WAIT 
ISSUE DSJ 
; SEND WRITE 

WRITE LENGTH/DISC ADDRESS; WAIT 
ISSUE DATA READ 
READ IN CHANNEL PROGRAM; WAIT 
ISSUE DSJ 

, INT/HALT (NORMAL! 
FILE MASK CMD 

MASK OFF INFORM. ERRORS ; SECTOR ADDRESS CMD 
LENGTH COMMAND; READ STATUS COMMAND (2330) 
SEND STATUS REQUEST CMD 
WAIT 

READ STATUS 
INT/HALT (ABNORMAL) 

BRANCH BACK IF DUMP; SET ADDRESS TO %1464 
WRITE TO SECTOR ADDRESS OF CP; UBB ;= %7100 
WRITE LOAD SECTOR ADDRESS; SET WRITE 
LOOP BACK 
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RECORD 

NO 

3036 
3037 
3038 
303:1 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3072 
3074 
3075 
3077 
3078 
3080 
3082 
3084 



C S 

ADDR 



Logical-to-Physical 1MB Translation Routine 

«***••..*«« aLu a ••••••«•••• ....»..»».«•* ALU B •«•<•••*•«•••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



LTOP - Logical-to-Physical 1MB translation. 

Enter with RG ( 7 : 2 ) - logical 1MB*; 

Exits with XRA9.(10:3) = physical IDA module* 

Bits 7,8 of the 9-bit DRT« used in the I/O 
specify which one of four possible IMBs 
contain the given CDEVt . The IMBs are numbered 
thru 3, but the lOAs are addressed 1 thru 4 
This routine will translate the logical 1MB* to 
a physical IOA» in XRA9 , ready for use with the 
BUSC command If the module does not exist then 
the Non-Responding Module (NRM) trap is taken. 

The translation is accomplished by using the 
logical 1MB* as an index into a MODULE MAPPING 
table that is kept in XRA80-83. This table is 
set at initialization time to contain the physical 
module *s for those lOAs that exist and a -1 for 
those modules which don't exist 
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Phys ic al 
IDA* 

1 
2 
3 
4 



Table 

Cent ent s 



0302 
0303 


LTOP 0180 RG 
L2PF UBA UBA 


ANDL 
ADD LRZ 


0304 




ADO 


0305 
0306 
0307 


REGN 
UBA 


ADD 
ADD 
ADD 



Ext ended 
Register* 

XRA80 
XRA81 
XRA82 
XRA83 



ADD 
ADDL 



UBA UBB ADD 

ADD 
ADD 

UBA JSZ 



F4B 
NEG 



Mask out all but logical 1MB «; XR8 := 
UBA := .logical IMB* ; UBB .= XRA80 REGN* 

(ent ry f rom FLSH) 
; CTR :■■' index into module map, set RFLAG to 

read from set 1 
; Clear RFLAG for store into XRA9 set 
UBA :« physical mod*; Skip if from «FLSH 
XRA9 .« physical mod*; If mod* < then take 
Non-Responding Module trap, else RSB 
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RECORD 

NO 

3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3108 
3109 
3111 
3112 
3114 
3116 
3117 
3119 
3121 
3123 
3124 
3125 
3126 
3127 
3129 
3131 
3132 
3134 
3135 
3137 
3138 
3140 
3141 
3143 



C S 
ADDR 



SET MASK Inst ruction 

..*.>,...<,.. ALU A •«••••*«•«• 
LABL RREG SREG FUNC SFNC STOR SPSK 



*»»««,..».•..« ALU B ««*«**••»«•».» 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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0308 

0309 

030A 
030B 

030C 
030D 
030E 



030F 
0310 

0311 

0312 

0313 

0314 
0315 



Multiple-IMB SET MASK Instruction ( SMSK ) 

This insruction will take 4 words from the TOS and send 
them to IDA'S 1 thru 4 ( 1MB ' s 0-3) along with the set 
mask 1MB command, and also write them to absolute 
locations OlA - OlD (hex). For any lOAs not present, 
its mask is NOT sent and its word in mask locations is 
ZEROED. 

This algorithm utlizes the MODULE MAP in XRA80-83, set 1 
to determine the existance of each lOA. ( See »LTOP ) 

Entered from »SCLK with SR=1, BKX3=0, priv mode checked 



Adjust TOS so SR is >»4; 



SMSK 0C02 
0003 
0090 

XRO 
SR XRO 

* inner loop : 

SMKl SPOA 



ADDL 
ADDL 



ADDL 

JSZ IRON 



go BUSY. 








OODO 


ADDL 




SPIB 


UBA 


REPN 




XRl BUSC 04 


OPB 
ISGI UBA 


ADD 
ADD 


SWAB 


DCTR CTRO 
SP3B SRG2 



INC SPOA 
JSZS PULM ZERO 
JSZ PSHM SR7 



JSZ PUL2 
OOIA ADDL SP2B 
SPIB ADD CTR 



UBA 

REGN ADD 

ADD 

SP2B ADD 



if lOA exists send mask and write to memory 
else write to memory. 

CAD 

JSZ DIM2 



UBB 



ADD 
JSB 



NEG 




XRl 


ADD 
ADD 


LI.Z 


BKX5 
RH 


SRF 
CRF 


HBF2 






ADD 






ICTI 


CCA 




SP2B 


INC 




SP2B 




WRX3 


RA 


RA 


XSUB 






POP 


DATA 
SFl 




UBB 


JSL 
ADD 


lOMS 


RG 





UBA :« GO BUSY command; SPIB :» REGNIt for 

module map (XRA80) 
XRA0:= SR ADJUST-1 

;SEND CMD TO GO BUSY ,XRB1:=BUSY CMD 
UBA:=SMSK CMD ( SWAPPED) ;WAIT HERE TO GO BUSY 
HANDLE ANY PENDING MSGI ; SKIP IF SR>2, 
SP3B:=9000 (SMSK COMMAND) 

SPOA: =4 (LOOPCOUNT) ;PULL 2 IF SR WAS 1 OR 2 
PULL 1 IF SR=3; SP2B : =ABS ADR FOR MASKS 
Empty RG if SR • 7; CTR :- module map REGN» 



DEC LPCNT;RFLAG:=1 TO READ MODULE MAP 

IF LPCNT<0 THEN ALL DONE, EXIT THRU ttDIM2; 

RFLG:=0 TO STORE INTO XRA9,SET0,RH =GOUNBSY 
XR9: 'PHYSICAL MOD# , IF NXM THEN F2=l 
;INC INDEX INTO MODULE MAP 
Set CCE for successful completion; SP2B := 

mem adr at which to store next mask 
YRGA:«ABS MEM ADR FOR THIS lOAS MASK 
IF NXM THEN UBB:=0 ELSE UBB : =MASK 
WRITE OR MASK ;RG:=MASK, SEND IF lOA EXISTS 
Loop back and do next lOA, set Fl for ttDIM2 
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RECORD 


C S 


NO 


ADDR 


3U6 




3147 




3148 




3149 




3150 




3151 




3152 




3153 




3154 




3155 




3156 




3157 




3158 




3159 




3160 


0316 


3162 


0317 


3164 


0318 


3166 


0319 


3168 


031A 



READ MASK INSTRUCTION 10/ 2/86 9:26 AM 

........... rtLu A .......«>.. ............. /^LU B •««*••••••••<• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

Multiple-IMB READ MASK Instruction 1 RMSK ) 

• Pushs absolute locations !01A thru lOlD onto TOS . * 

Empties TOS to 3, reads lOlA-OlD into RE.RF.RG.RH and 
" does 4 EPSHs. (TOS adjusted to 3 because we will lose • 

• RD when the pushes are actually done | * 

• Entered from tRCLK with SR <- 6. BKX3 - 0. * 

RMSK 0019 ADDL SP4^ 0004 ADDL SP3B SP4A:-1ST MASK LOG -1; SP3B : -LOOPCOUNTER 

SR UBB JSZS ET03 PCS UBS ADD CTR IF SR-4>«0 THEN EMPTY TOS TO 3;CTR:=RE REGN» 

SP4A INC SP4A R0B3 SP3B JSZ NEXT ZERO READ MASK, SP4A:»NEXT MASK ADR; NEXT IF DONE 

ADD SP3B CAD SP3B EPSH ;DEC LOOPCOUNT , EPSH STACK 

JSB •-2 UNC OPB ADD REGN ICTR LOOP BACK; STORE MASK TO TOS; INC CTR 
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RECORD 

NO 

3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3189 
3191 
3192 
3193 
3194 
3196 
3198 
3200 
32ni 
3203 
3204 
3206 
3208 



031B 
031C 



0310 
fiSlE 
031F 



03 2 2 
0323 



HALT AND PAUSE INSTRUCTIONS 
LABL RREG SREG FUNG SFNC STOR SPSK 



............. ftLU B •«««•••••**••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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HALT AND PAUSE INSTRUCTIONS 

This module will perform a HALT or PAUSE of the 
CPU until an interrupt has occurred 

1) IF PAUS THEN SET PAUSE BIT IN CPX2 . 

2) IF HALT THEN SET RUN BIT OFF IN CPX2 

3) EMPTY TOS REGISTERS TO MEMORY 

4) WAIT FOR INTERRUPT TO OCCUR. 



SLUT INSTR=HALT:0 Oil 000 Oil 11, ENTRY=HALT 
>+3 



STOP 
HALT OEOO 



JSB 
ADDL 



SLUT INSTR>PAUS:0 Oil 000 000 01 
PAUS STA 



JSZ 
JSZ 
JSZ 



TRP6 
PSHA 

TIME 



ADD 
JSZ 
JSZ 



TIME 
IRH 



UNC 


OEOO 


ADDL 
ADD 


01, ENTRY'PAUS 




POS 

SRNZ 

UNC 


6000 
00A4 


ADDL 

ADD 

ADDL 




RH 


REPC 


TEST 

UNC 

UNC 


00A3 

UBB 


ADD 

ADDL 

ADD 



RH 
SP2B 



Skip priv test; UBB := clear RUNFF 
RH := clear RUNFF mask; Skip 



Trap if non-priv; RH := set PAUSEFF mask 

Empty TOS if SR <> zero 

JSB to measurement code; SP2B := normal 

execution accumulator code 
; Set PAUSEFF or clear RUNFF, repeat next 

line until an interrupt occurs 
Resume when an interrupt occurs 
JSB to measurement code; SP2B = PAUSE code 
Service interrupt; Clear PAUSEFF 
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RECORD 

NO 

3211 
3212 
3Z13 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3228 
3229 
3231 
3232 
3234 
3235 



C S. 
ADDR 



Run Mode Interrupt Handler 

........... ALU A •.•••••««»• ............. Ai_U B .**.*•*••••««» 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



Run Mode Interrupt Module 

This module will handle the following interrupts 
if they occur while in run mode: 
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CPX1(4) 
CPX1(8) 
CPXl(lI) 



Run/Halt Switch Interrupt 
DCU Command Interrupt 
Memory Breakpoint Interrupt 



Entered with SPAA = CPXl Acsldl 



0324 RMIT 1000 STA ANDL 

0325 0020 SP4A ANDL 

0326 0800 ADDL 

0327 JSB STOP 



0100 SP4A ANDL 

UBB JSL DCMD 
UBA JSL BKPT 
UBA ADD 



NZRO 
NZRO 



Isolate right stackop bit, 

UBB := DCU interrupt flag 
UBA ;= memory breakpoint interrupt- 

Process DCU interrupt if present 
UBA := mask to clear R/HSWINT; Handle 

memory breakpoint interrupt if present 
Halt; Clear interrupt bit in CPXl 
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RECORD 

NO 

3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3256 
3256 
3257 
3258 
3260 
3262 
3263 
3265 
3266 
3267 
3269 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3287 
3289 
3290 
3292 
3293 
3294 
3296 



C S. 
ADDR 



0328 
0329 



032B 
032C 



032D 
032E 



0330 
0331 



LOAD Inst ruct Ion 

..*.»..«*»» ALU f^ •.*.*.*..«. 

1.ABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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In the following memory reference instructions, prior to 
setting the target fetcti flip flop, (STFF), REAOs using bank 
reaister BNKD in ALUA are switched to use BNKS for Q or S 
relative addressing. 



DB, and S relative 



<iLUT 
LUT 
iiLUT 
itLUT 
itLUT 
itLUT 
ItLUT 
!!LUT 

I.WS 
LWD 



INSTR=LOAD(DB+) 
INSTR=LOAD(DB+) 
INSTR= LOAD(0+) 
LOAD(0+) 
LOAD(O-) 
LOAD(Q-) 
LOAD(S-) 



INSTR= 
INSrR = 
INSTR= 
INSTR= 



INSTR= LOAD(S-) 



100 001 Oxx XX , 

100 101 Oxx XX, 

100 001 lOx XX, 

100 101 lOx XX, 

100 001 110 XX, 

100 101 110 XX, 

100 001 111 XX, 

100 101 111 XX, 



DSPL=8 
DSPL=8 
DSPL=7 
DSPL=7 
DSPL=6 
DSPL=6 
DSPL=6 
DSPL=6 



ENTRY=LWD 
X, ENTRY=LWD 
ENTRY=LWD 
X, ENTRY=LWD 
F2, ENTRY=LWD 
~" X, ENTRY=LWD 
ENTRY=LWS 
X, ENTRY=LWS 



F2, 
F2, 
F2, 



SR 



UBA ADD 



UBA DSPL ADSB 



JSB LPSH SP3B 



032A LWDl UBA SM CAD 



EPSH UBB UBA BNDE 



OPA ADD 
REGM ADD 



CCA 
CCA 



RH 
RH 



DL 
DL 



BNDE 
BNDE 



NEXT 
NEXT 



UBA:-SR + (SM + XC) ; 

RH:=UBA;»(BASE + XC ) +/- DSPL, READ 

SP3B;=UBB:=S, JSZ IF SR=6 

; BOUNDS CHECK S>=ADDR, CTR : =S-ADDR , 
SKIP NEXT IF ADDR>SM AND S>=ADDR AND 
NOT (FSS AND {DB REL ADDR OR TFF ) ) 

RH:=OPERAND, CCA; BOUNDS CHECK ADDR, NEXT 

RH:=WORD IN TOS , CCA; BOUNDS CHECK, NEXT 



LOAD; Indirect DB, Q, and S relative 



!!LUT INSTR = LOAD(DB+) :0 100 Oil OXX XX ,DSPL = 8 ,DB , INDR , ENTRY = LWID 
itLUT INSTR = LOAD(DB+) :0 100 111 OXX XX ,DSPL = 8 ,DB , X , INDR , ENTRY = LWID 
itLUT INSTR = LOAD(Q+) :0 100 Oil lOX XX ,DSPL = 7 ,Q, INDR , ENTRY = LWID 
ItLUT INSTR = LOAD(0+) :0 100 111 lOX XX ,DSPL = 7 ,0, X , INDR , ENTRY = LWID 
itLUT INSTR = LOAD(0-1 :0 100 Oil 110 XX ,DSPL = 6 ,Q , INDR , F2 , ENTRY = LWID 
itLUT INSTR = LOAD(0-i :0 100 111 110 XX .DSPL^B ,Q , X , INDR ,F2 , ENTRY = LWID 
itLUT INSTR = LOAD(S-) :0 100 Oil 111 XX ,DSPL = 6 , SM. INDR ,F2 , ENTRY = LWIS 
itLUT INSTR = LOAD(S-) :0 100 ill 111 XX ,DSPL = 6 , SM, X , INDR , F2 , ENTRY = LWIS 



LWIS SR SM ADD 
LWID UBA DSPL ADSB 



XC DB ADD 
UBA REGM ADD 



SR SM 

UBB UBA BNDE 



ADD 

JSB LPSH SP3B Sft7 



BNDE 

JSB LWDl 



UBA:"SR + SM; 

RH:=UBA:=BASE +/- DSPL, READ; 
SP3B:=UBB:«(SR + SM) , JSZ IF SR=6 
; BOUNDS CHECK S>=ADDR, CTR:=IF ADDR>SM AND 
S>=ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPERAND 
UBA:=XC + DB; BOUNDS CHECK ADDR>=DL. STFF 
RH:=UBA:=TARGET ADDR, READ; UBA:=S, JSB 
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RECORD 

NO 

3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3310 
3311 
3313 
3314 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3328 
3330 
3331 
3333 



C S. 
ADDR 



0335 
0336 



LOAD Inst ruct ion 
LABL RREG SREG FUNC SFNC STOR SPSK 



LOAD, P relative 



• .<•«•«.•«••* ALU B ••*. *<,<,*<,*<•.. 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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JLUT INSTR-LOAD(P+) :0 100 000 OXX XX . DSPL- 8 , P , ENTR Y»LWP 

JLUT INSTR=LOAD(P+) 100 100 OXX XX ,DSPL=8 . X , P , ENTRY-LWP 

SLUT INSTR»LOAD{P-) 100 000 IXX XX . DSPL=8 . P . F2 , ENTRY«LWP 

JLUT INSTR=LOAD(P-) .0 100 100 IXX XX ,DSPL'8 , X , F2 , P , ENTRY>LWP 



0332 LWP UBA DSPL ADSB 

0333 LWPl UBA PB BNDE 

0334 LWP2 OPA ADD 



RH 



ROP 

EPSH PL 
CCA 



JSZ PSHM 
UBA BNDE 
ADD 



RH:«UBA:-(P + XC) +/- DSPL, READ; 

JSZ IF SR«6 

BOUNDS CHECK ADDR >■ PB , EPSH; 

BOUNDS CHECK PL >- ADDR 

RH: -OPERAND, CCA; NEXT 



LOAD: Indirect P relative 



SLUT INSTR=LOAD(P+) 

SLUT INSTR=LOAD(P+) 

SLUT INSTR=LOAD(P-) 

SLUT INSTR-LOAD(P-) 

LWIP UBA DSPL ADSB 
XC UBA ADD 



100 010 OXX XX,DSPL»8,INDR,P,ENTRY=LWIP 
100 110 OXX XX,DSPL'8.X,INDR,P,ENTRY=LWIP 
100 010 IXX XX,DSPL«8,INDR,F2,P,ENTRY=LWIP 
100 110 IXX XX.DSPL-8,X, INDR ,F2,P,ENTRY-LWIP 



RH 



UBA OPA JSB LWPl 



ROP 
ROP 



UBA 
PL 



JSZ PSHM 
BNDE 



RH:«UBA:-P +/- DSPL, READ; JSZ IF SR=6 
UBA:=XC + INDIRECT CELL ADDR; 
BOUNDS CHECK INDIRECT CELL ADDR >- PB 
READ XC + CELL ADDR + CELL CONTENTS, JSB; 
BOUNDS CHECK PL >= INDIRECT CELL ADDR 
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RECORD 


C.S 


NO 


ADDR 


3335 




3336 




3337 




3338 




3339 




3340 




3341 




3342 




3343 




3344 




3345 




3346 




3347 




3348 


0338 


3350 


0339 


3352 




3353 


033A 


3355 




3356 




3357 




3358 


033B 


3360 


033C 


3362 




3363 




3364 




3365 




3366 




3367 




3368 




3369 




3370 




3371 




3372 




3373 




3374 




3375 




3376 


033D 


3378 


033E 


3380 




3381 


033F 


3383 




3384 




3385 


0340 


3387 


0341 



LOAD X INSTRUCTION 

....*.»«.** ALU A ..•<,«<,**•<,. 

LABL RREG SREG FUNC SFNC STOR SPSK 



LDX; DB, Q, and S relative 



t****»*A**t», ALU B .•.><,*.*,..*>,•», 
RREG SREG FUNC SFNC STOR SPEC SHIP 



10/ 2/86 9:26 AM 



JLUT INSTR=LDX(DB+) :1 Oil 001 OXX XX ,DSPL=8 .DB , ENTRY-LXD 
SLUT INSTR=LDX(DB+) :1 Oil 101 OXX XX ,DSPL=8 ,DB , X , ENTRY=LXD 



3LUT INSTR=LOX(Q+) 
JLUT INSTR=LDX(0+) 
$:LUT 1NSTR»LDX(Q-) 
JLUT INSTR-LDX(O-) 
JLUT INSTR=LDX(S-) 
SLUT INSTR=LDX(S-) 

LXS SR UBA ADD 
LXD UBA DSPL ADSB 

LXDl UBA SM JSBC 



REGN ADD 
ADD 



Oil 001 lOX XX,DSPL=7.0,ENTRY=LXD 



,Q,X,ENTRY=LXD 
,Q,F2,ENTRY=LXD 



Oil 101 lOX XX,DSPL=7, 

1 Oil 001 110 XX, DSPL' 

1 Oil 101 110 XX,DSPL = 6,C),F2;X,ENTRY = LXD 

1 Oil 001 111 XX,DSPL=6 ,SM,F2 ,ENTRY=LXS 

1 Oil 101 111 XX,DSPL=6,SM,F2,X,ENTRY=LXS 



ADD 
ROD SR SM ADD 

MEDJ UBB UBA BNDE 



BNDE 
ADD 



SP3B 

CTR TICB 



LDX; Indirect DB , 0, and S relative 



!|;LUT INSTR = L0X{DB+) :1 Oil Oil OXX XX ,DSPL = 8 ,DB , INDR , ENTRY = LXID 
$LUT INSTR=LDX{DB+) :1 Oil 111 OXX XX ,DSPL=8 ,DB , X , INDR , ENTRY-LXID 



$lut instr=ldx(0+) 
j;lut instr = ldx(q+! 
s;lut instr = ldx(q-) 

aiLUT INSTR = LDX(Q-) 
J:LUT INSTR = LDX(S-) 

aauT instr=ldx(S-) 



1 Oil oil lOX XX,DSPL=7.Q,INDR,ENTRY«LXID 

:1 oil 111 lOX XX,DSPL=7.0,X,INDR,ENTRY«LXID 

:1 oil Oil 110 XX,DSPL=6,Q,INDR,F2,ENTRY=LXID 

1 Oil 111 110 XX,DSPL=6,Q,X,INDR,F2,ENTRY=LXID 

.1 Oil Oil 111 XX.DSPL=6,SM,INDR,F2 ,ENTRY=LXIS 

1 on HI 111 XX,DSPL=6,SM,X,INDR,F2,ENTRY=LXIS 



LXIS SR SM ADD 
LXID UBA DSPL ADSB 



XC DB ADD 
UBA REGN ADD 



SR SM 


ADD 
ADD 




SP3B 


UBB UBA 


BNDE 




CTR TICB 


RH DL 
SP3B 


BNDE 
JSB 


LXDl 


STFF 



UBA:-=SR + (SM + XC) ; 

RH;=UBA:=(BASE + XC ) +/- DSPL, READ 

SP3B: =UBB:=S 

MEDIUM JSB TO WAIT ONE CLOCK; 

BOUNDS CHECK S>=ADDR, CTR:=IF ADDR>SM AND 
S>=ADDR AND NOT (FSS AND (DB REL ADDR OR 
TFF)) THEN (S-ADDR) ELSE CODE FOR OPERAND 

X: -OPERAND, CCA; BOUNDS CHECK ADDR 

; NEXT AFTER WAITING ONE CLOCK 



UBA:»SR + SM; 

RH; "UBA: -BASE +/- DSPL. READ; 

SP3B:=UBB:-(SR + SM) 

; BOUNDS CHECK S>-ADDR, CTR: -IF ADDR>SM AND 
S>=ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPERAND 

UBA:-XC + DB; BOUNDS CHECK ADDR>=DL. STFF 

RH: -UBA -TARGET ADDR, READ; U8A:=S, JSB 
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RECORD 

NO 

3390 
3391 
3392 
3193 
3394 
3395 
3396 
3397 
3398 
3399 
3401 
3403 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3418 
3420 
3421 
3423 



C S 

AODR 



LOAD X Instruction 

•*•*«*•«**• ALU A •*«•««»•••« 
LABL RREG SREG FUNC SFNC STOR SPSK 



..**...**««•• ALU B ••••*»•••••••* 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9.26 AM 



LDX; P relative 



SLUT INSTR-LDX(P+) 
SLUT INSTR»LDX(P+) 
SLUT INSTR=LDX(P-| 
SLUT INSTR-LDX(P-) 



:1 Oil ODD OXX XX , DSPL«8 . P , ENTR Y=LXP 
1 Oil 100 OXX XX,DSPL>8 ,X,P,ENTRY=LXP 
1 Oil 000 IXX XX,DSPL=8,P,F2,ENTRY=LXP 
1 Oil 100 IXX XX,DSPL-8,X,F2,P,ENTRY=LXP 



0342 LXP UBA 

0343 LXPl UBA 
0344 



DSPL ADSB 
PB BNOE 
OPA ADD 



RH 



ROP 



ADD 

BNDE 

JSZ NEXT 



LDX; Indirect P relative 



SLUT INSTR»LDX(P+) 
SLUT INSTR=LDX|P+) 
SLUT INSTR'LDX(P-) 
SLUT INSTR»LDX(P-) 



1 Oil 010 OXX XX,DSPL-8,INDR,P,ENTRY-LXIP 
:1 Oil 110 OXX XX.DSPL-8,X,INDR,P,ENTRY«LXIP 
:1 Oil 010 IXX XX,DSPL«8,INDR,F2,P,ENTRY=LXIP 

1 Oil 110 IXX XX,DSPL-8,X,INDR,F2,P,ENTRY-LXIP 



0345 LXIP UBA DSPL ADSB RH ROP 

0346 XC UBA ADD 



UBA OPA JSB LXPl ROP 



ADD 
UBA PB BNDE 



RH =UBA:=(P + XC) +/- DSPL. READ; 
BOUNDS CHECK ADDR > = PB ; CHECK PL 
X 'OPERAND, CCA; 
JSB TO WAIT ONE CLOCK FOR NEXT 



RH:-UBA:-P +/- DSPL, READ; 

UBA:-XC + INDIRECT CELL ADDR; 

BOUNDS CHECK INDIRECT CELL ADDR >» PB 

READ XC + CELL ADDR + CELL CONTENTS, JSB; 

BOUNDS CHECK PL >= INDIRECT CELL ADDR 
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RECORD 

NO 

3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3440 
3442 
3443 
3445 
3446 
3448 
3449 
3451 
345? 
34'j4 
3 45=, 
345e. 

345f; 

34-,0 
3460 
34',! 
3 4i> j 
3 4f,5 
3456 
346 7 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3481 
3483 
3484 
3486 
3487 
3488 
34'JO 
34'<2 



C S. 
ADDR 



0348 
0349 

034A 

034B 

034C 

034D 

034E 



n:;4F 
0350 



0351 
0352 



0354 
0355 



LOAD DOUBLE INSTRUCTIONS 

• *•.«. ..«<,. ^LU A **•«.••«*»«• 
LABL RREG SREG FUNC SFNC STOR SPSK 



LDD: DB , Q, and S relative 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



SLUT INSTR=LDD(DB+) ; 1 101 001 OXX XX ,DSPL=8 ,DB , ENTRV=LDD 
$LUT INSTR = LDD(DB+) :1 101 101 OXX XX ,DSPL = 8 ,DB . XSL . ENTRY'LDD 



SLUT INSTR=LDD(0+) 
SLUT INSTR»LDD(0+) 
SLUT INSTR=LDD(0-) 
SLUT INSTR=LDD(0-) 
SLUT INSTR"LDD(S-) 
SLUT INSTR=LDD(S 



101 001 lOX XX,DSPL=7 ,Q,ENTRY=LDD 

101 101 lOX XX,DSPL=7 ,O.XSL,ENTRY=LDD 

101 001 110 XX,DSPL=6 ,0.F2 ,ENTRY-LDD 

101 101 110 XX,DSPL = 6,C),F2,XSL,ENTRY = LDD 

101 001 111 XX,DSPL=6,SM,F2 ,ENTRY=LDS 

101 101 111 XX,DSPL=6,SM,F2,XSL,ENTRY=LDS 



LDS 
LDD 



SR USA ADD 

UBA DSPL ADSB 

U8A INC 

OPA ADD 

SPOA DL BNDG 

RG SM CAD 

RREG SM SUB 



REGN ADD 
ADD 



RH ROD 
SPOA ROBD 
RH CCA 



SR 



ADD 
JSB 



CCA 
NEXT 



SM 

UBA ADD 

UBA SM CAD 

OPB ADD 

SP3B RG BNDE 

SP3B SREG BNDG 



ADD 
REGN ADD 



LDPH SP3B SRG5 
RG EPSH 

EPSH CRRY 
RG DCC NEXT 
CTR TICB 



LDD, Indirect DB , Q, and S relative 



SLUT INSTR=LDD(DB+) : 1 101 Oil OXX XX , DSPL=8 .DB , INDR , ENTRY-LDID 
SLUT INSTR=LDD(DB+) : 1 101 111 OXX XX , DSPL=8 , DB , XSL , INDR , ENTRY>LDID 



SLUT INSTR=LDD(Ot) 
SLUT INSTR = LDD(C)+) 
SLUT INSTR=LDD(0-) 
SLUT IN5TR=:LDD(0-) 
SLUT INSTR=LDD(S-) 
SLUT INSTR'LDD(S-) 

LDIS SR SM ADD 
LDID UBA DSPL ADSB 



DB ADD 
REGN ADD 



101 Oil lOX XX,DSPL=7 ,0,INDR,ENTRY=LDID 

101 111 lOX XX,DSPL=7 ,0,XSL,INDR ,ENTRY=LDID 

101 Oil 110 XX.DSPL=6,0,INDR,F2,ENTRY=LDID 

101 HI 110 XX,DSPL=6,0,XSL,INDR.F2,ENTRY=LDID 

101 Oil 111 XX,DSPL=6,SM,INDR,F2,ENTRY=LDIS 



1 101 111 111 XX,DSPL-=6,SM,XSL,INDR.F2,ENTRY = LDIS 



SR SM 

U6B UBA BNDE 



ADD 

JSB LDPH SP3B 



CTR TICB 



BNDE 

JSB L.DD1 



UBA:=SR + (SM + XC) ; 

RH:=UBA:=(BASE + XC ) +/- DSPL, READ; 

SP3B;=UBB:=S, JSZ IF SR>4 

SP0A:=ADDR OF NEXT WORD, READ INTO OPB; 

RG:=:ADDR OF FIRST WORD, EPSH 

RH:=FIRST WORD, CCA; SKIP NEXT IF ADDR OF 

SECOND WORD > SM, EPSH 
BOUNDS CHECK ADDR OF SECOND WORD > DL ; 
RG:=SECOND WORD, DCC, NEXT 
; BOUNDS CHECK S>=ADDR, CTR:=IF ADDR>SM AND 

S>=ADDR AND NOT (FSS AND (DB REL ADDR OR 

TFF)) THEN (S-ADDR) ELSE CODE FOR OPERAND 
; BOUNDS CHECK S>ADDR, CTR;=IF ADDR>=SM AND 

S>ADDR AND NOT (FSS AND (DB REL ADDR OR 

TFF)) THEN (S-ADDR-1) 

ELSE CODE FOR OPERAND 
RH:=FIRST WORD, CCA, 
NEXT; RG:=SECOND WORD, DCC 



UBA;-SR + SM; 

RH:=UBA:=BASE +/- DSPL, READ; 

SP3B:=UBB;=S, JSZ IF SR>4 

; BOUNDS CHECK S>=ADDR, CTR =IF ADDR>SM AND 
S>=ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPERAND 

UBA:=XC + DB; BOUNDS CHECK ADDR >= DL, STFF 

RH =UBA =(XC+D(n + INDIRECT CELL, READ; 

UBB =S, JSB 
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RECORD 

NO 

3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3503 
3505 
3506 
3508 
3509 
3511 



C S. 
ADDR 



0356 
0357 



LOAD DOUBLE P-rel Instructions 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



LDPP and LDPN 



SLUT INSTR-LDPPO Oil 
SLUT INSTR»LDPN:0 Oil 



100 OXX XX, DSPL-8,P, ENTRY-LDP 
100 IXX XX. DSPL«8. P. F2, ENTRY-LDP 



LDP UBA 
LDPl UBA 



DSPL ADSB 
PB BNDE 



ROP 
EPSH 



JSZ 

INC 



DCC NEXT 



COMMENT 



RH:-UBA:-P +/- DSPL, READ; JSZ IF SR>5 

BOUNDS CHECK ADDR >• PB , EPSH; 

RH:-UBB: -SECOND WORD ADDR, READ 

RH: -FIRST WORD, CCA, 

BOUNDS CHECK PL >- SECOND ADDR, EPSH 

BOUNDS CHECK SECOND ADDR > PB ; 

RQ; -SECOND WORD, DCC, NEXT 
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RECORD 

NO 

3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
■■.'.?f, 
3 , ■ i', 
35 !f) 
3531 
3533 
3534 
3535 
3537 
3538 
3540 
3541 
3543 
3545 
3547 
3548 
3550 
3551 
3552 
3554 
3555 
3556 
3557 

355 8 
3560 
3561 
3562 
3563 
3565 
3566 

356 8 
35 70 
35 7 2 
35 7 4 
35 75 
35// 
35/8 



C S 
ADDR 



035A 
035B 



035D 

035E 

035F 
0360 
0361 



0366 
0367 
0368 
0369 

036A 



LOAD BYTE INSTRUCTION 
LABL RREG SREG FUNC SFNC STOR SPSK 



LDB; OB. (3, and S relative 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



SLUT INSTR=LDB(DB+) :1 101 000 OXX XX ,DSPL=8 ,DB , ENTRY-LBD 
SLUT INSTR = LDB(DB+) :1 101 100 OXX XX ,DSPL = 8 .DB , XSR , ENTRY = LBD 
SLUT INSTR = LDB(0+) '" "' " " ' ^ 

SLUT INSTR = LDB(Q-<-) 
SLUT INSTR=LDBtO-) 
SLUT INSTR=LDB(0-) 
SLUT INSTR=LDB(S-| 
SLUT INSTR=LDB(S-) 

LBS 



101 000 lOX XX,0SPL=7,0,ENTRY=LB0 

101 100 lOX XX,DSPL=7 ,Q,XSR,ENTRY=LBO 

101 000 110 XX,DSPL=6,0.F2.ENTRY=LB0 

101 100 110 XX,DSPL=6.0.F2.XSR,ENTRY-LBQ 

101 000 111 XX,DSPL=6,SM,F2,ENTRY'LBS 

101 100 111 XX,DSPL=6,SM,F2,XSR ,ENTRY=LBS 



SR 
UBA 


UBA 
DSPL 


ADD 
ADSB 


RH 


ROBS 


SR 


SM 


ADD 
JSB 


LBPH 


SP3B 




SR7 


UBA 


SM 


CAD 






UBB 


UBA 


SUB 




CTR 


TICB 


CRRY 


RH 


DL 


JSBS 


LB32 


NCRY 






JSB 


LB32 






UNC 


XC 




ADD 




ODD 




REGN 


ADD 


LRZ 




EPSH 




UBA 


DSPL 


ADD 
ADD 
ADSB 


RH 


NEXT 
NEXT 
ROBD 


SR 


UBB 

REGN 

SM 


ADD 
ADD 
JSB 


RRZ 
LBPH 


RH 
RH 
SP3B 


CCB 
CCB 


SR7 




DB 


ADD 


SPOA 




UBA 


DL 


SUB 






TICB 


NCRY 



RH SM JSBC LBDl 



SP3B RH SUB 



CTR TICB CRRY 



JSBS LB32 



0365 LBDl XC 



LBDL 
LRDR 
LB32 



ADD 

ADD 

ADD 

ADD 

UBB ADD 

UBA SM CAD 



ODD REGN ADD LRZ 

NEXT UBB ADD 
NEXT REGN ADD RRZ 

8000 RH ADDL 
ROBD UBB DL BNDE 

SP3B UBA BNDE 



CCB 
CCB 



TICB 
TICB RSB 



UBA:=SR + (SM + XC) ; 

RH =UBA:={BASE + XC) +/- DSPL. READ INTO B. 

SP3B:=UBB:»SR + SM, JSB IF SR = 7 

; CTR:=IF ADDR>SM AND S>=ADDR THEN 

(S-ADDR) ELSE CODE FOR OPERAND, 

SKIP IF S >- ADDR 
JSB IF NOT (ADDR >• DL) ; 
JSB IF NOT (S >• ADDR) 
SKIP NEXT IF RIGHT BYTE; 
UBB =LEFT BYTE, EPSH 

NEXT IF LEFT BYTE; NEW (S):>LEFT BYTE. CCB 
NEXT; NEW (S):=RIGHT BYTE, CCB 
RH :=U8A:»(BASE + XCJ +/- DSPL, READ INTO B; 
SP3B:=UBB:»S, JSB IF SR = 7 
SP0A;=DB; 
SKIP IF NOT (ADDR >• DL), TICB CAUSES CTR 

TO GET %17 (CODE FOR OPERAND) 
JSB IF SPLIT BANKS; 
CTR:«IF ADDR>SM AND S>«ADDR AND 

NOT (FSS AND (DB REL ADDR OR TFF ) ) THEN 

(S-ADDR) ELSL" CODE FOR OPERAND, 

SKIP IF S >» ADDR 
; JSB IF NOT (DL <= ADDR <= S) AND NOT FSS 

AND (DB >- DL) AND (Z > ■= DB ) 

(JSB IF NOT (DL <■ ADDR <= S) AND NOT 

SPLIT STACK) 
SKIP NEXT IF RIGHT BYTE; 
UBB -LEFT BYTE, EPSH 

NEXT IF LEFT BYTE; NEW (S):=LEFT BYTE, CCB 
NEXT; NEW (S) "RIGHT BYTE, CCB 
; UBB:=32K + ADDR 
RH:=ADDR, READ; BOUNDS CHECK ADDR >= DL 

TICB TO SLOW DOWN RSB (ALWAYS FALSE) 
, BOUNDS CHECK S>=ADDR, CTR: -IF ADDR>SM AND 

S>=ADDR AND NOT (FSS AND DB REL ADDR) THEN 

(S-ADDR) ELSE CODE FOR NOP. MEDIUM RSB 
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RECORD 

NO 

3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3595 
3597 
3518 
3600 
3fi01 
3602 
3604 
3605 
3607 
3608 
3609 
3611 
3612 
3614 
3615 
3616 
3618 
3619 
3621 
3622 
3623 
3625 
3627 
3629 
3631 
3632 
3634 
3635 



C.S. 
ADOR 



036B 
036C 



036E 
036F 

0370 
0371 

0372 
0373 



0374 
0375 
0376 
0377 

0378 



LOAD BYTE INDIRECT INSTRUCTION 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9; 26 AM 



kftlkftftAAft' 



LDB ; Indirect DB , Q, and S relative 



SLUT INSTR-LDB(DB+) :1 101 010 OXX XX .DSPL-8 ,DB , INDR , ENTRY-LBID 
SLUT INSTR«LDB(DB+) :1 101 110 OXX XX^DSPL-B ,DB , X , INDR . ENTRY»LBID 
SLUT INSTR-LDBiO+) :1 101 010 lOX XX ,DSPL=7 ,0, INDR , ENTRY-LBID 
SLUT INSTR«LDB(Q+) :1 101 110 lOX XX ,DSPL»7 ,0. X . INDR , ENTRY=LBID 
SLUT INSTR-LDB(O-) :1 101 010 110 XX ,0SPL-6 ,0. INDR ,F2 , ENTRY-LBID 
SLUT INSTR-LDB(0-):1 101 110 110 XX .DSPL-6 ,0, X . INDR , F2 , ENTRY=LBID 
SLUT INSTR«LDB(S-) :1 101 010 111 XX , DSPL-6 . SM, INDR , F2 , ENTRY-LBIS 
SLUT INSTR-LDB(S-) :1 101 110 111 XX , DSPL-6 , SM, X , INDR , F2 , ENTRY=LBIS 



LB IS SR SM ADD 
LBID UBA DSPL ADSB 



DB ADD 
XC REGN ADD LSR 

XC REGN CSR 

UBB SM JSBC LBIl 



ROD SR SM 

UBB UBA BNDE 

NFSS Z DB SUB 

CFl UBA DL SUB 

HBF2 UBA DB ADD 

NFl SP3B UBB SUB 



ADD 

JSB LPSH SP3B 



CTR TICB 

STFF NCRY 
CTFl 

RQ ROD 

CTR TICB CRRY 



RG 
LBIl RH 



JSBS LI32 
BNDE 



NCRY 
F2 



JSB LI32 
REQN ADD LRZ 



ADD 

ADD 

ADD 

UBB ADD 

UBA SM CAD 



NEXT UBB ADD RH CCB 

NEXT REGN ADD RRZ RH CCB 

8000 RG ADDL 

RG ROBD UBB DL BNDE 



SP3B UBA BNDE 



CTR TICB RSB 



UBA:-SR + SM, 

RH: -UBA: -(BASE ♦ XC ) +/- DSPL, READ; 

SP3B:-UBB:-SR + SM, JSB IF SR-7 

; BOUNDS CHECK S>-ADDR, CTR: -IF ADDR>SM AND 

S>-ADDR AND NOT (FSS AND DB REL ADDR | 

THEN (S-ADDR) ELSE CODE FOR OPERAND 
UBA:=DB, SKIP IF NOT SPLIT BANKS; 
STFF, SKIP IF NOT (Z >- DB ) 
UBA:-(XC + INDIRECT CELL) & LSR(l); 
F1:-N0T SPLIT BANKS AND (Z >- DB ) AND 

(DB >• DL) 
SET F2 IF EFFECTIVE BYTE ADDRESS IS ODD; 
RG; -ABSOLUTE WORD ADDR, READ 
JSB IF SPLIT STACK; 
CTR: -IF ADDR>SM AND S>-ADDR AND NOT SPLIT 

BANKS THEN (S-ADDR) ELSE CODE FOR OPERAND 
JSB IF NOT (ADDR >- DL) ; 
JSB IF NOT (S >- ADDR) 
BOUNDS CHECK INDIRECT CELL >= DL, 

SKIP IF RIGHT BYTE, 
UBB: -LEFT BYTE. EPSH 
NEXT; NEW (S):-LEFT BYTE, CCB 
NEXT: NEW (S): -RIGHT BYTE. CCB 
; UBB: ■32K + ADDR 
R6:-ADDR, READ; BOUNDS CHECK ADDR >= DL, 

TICB TO SLOW DOWN RSB (ALWAYS FALSE) 
; BOUNDS CHECK S>-ADDR, CTR ; = IF ADDR>SM AND 

S>-ADDR AND NOT (FSS AND DB REL ADDR) THEN 

(S-ADDR) ELSE CODE FOR NOP, MEDIUM RSB 
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RECORD 


C S . 


NO 


ADDR 


3637 




3638 




3639 




3640 




3641 




3642 




3643 




3644 




3645 




3646 




3647 




3648 


0379 


3650 


037A 


3652 




3653 


037B 


3655 




3656 




3657 




3658 




3659 




3660 


037C 


3662 » 




3663 




3664 




3665 




3666 




3667 




3668 




3669 




3670 


037D 


3672 


037E 


3674 




3675 




3676 




3677 




3678 




3679 




3680 




3681 




3682 




3683 




3684 




3685 




3686 




3687 




3688 


037F 


3690 


0380 


3692 




'<693 


0381 


3695 




3696 




3697 


0382 


3F)99 




3700 


0383 


3702 





LOAD RELATIVE ADDRESS INSTRUCTION 

..........* ;^i_u f^ ........... ......•...••• /^Lu B •••••••••«•*■<* 

LABL RREG SREG FUNG SKNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKilP 



10/ 2/86 9:26 AM 



LRA ; and S relat tve 



$l.UT INSTR = LRA(0+) 
SLUT INSTR=LRA(Q+) 
SLUT INSTR=LRA(Q-) 
SLUT INSTR = LRA((J-) 
SLUT .INSTR = LRA(S-) 
SLUT INSTR«LRA(S-) 

LAS SR UBA ADD 
LAO UBA DSPL ADSB 



1 001 lOX XX,DSPL=7,0,ENTRY=LA0 
1 101 lOX XX,DSPL=7 ,0,X,ENTRY=LAQ 
110 XX,D3PL=6.Q.F2,ENTRY=LA0 

110 XX,DSPL=6,Q,F2 ,X,ENTRY=LAO 

111 XX,DSPL=6 ,SM,F2,ENTRY=LAS 
111 XX,DSPL=6,SM,F2,X,ENTRY=LAS 



001 
101 
001 
101 



ADD 
JSZ 



NZRO UBA DB 



UBA:=SR + (SM ♦ XC) ; 
RH:=UBA:=(BASE + XC) +/- DSF 
JSB I- SR = 7 

JSB for BNDV if split banks, 
New (S) := effective addr 



DB, push 



TEMP: 



DON'T DO BOUNDS CHECK UNTIL 
SOFTWARE IS FIXED - 12/11/81 



LRA; DB relative 



SLUT INSTR.LRA(DB+) 
SLUT INSTR»LRAiDB+) 



DSPL ADD 
ADD 



111 001 OXX XX,DSPL=8,DB,ENTRY=LAD 
111 101 OXX XX,DSPL«8,DB,X,ENTRY=LAD 



JSZ 
JSZ 



PSHM 
NEXT 



SR7 
UNC 



RH:.XC + DSPL; JSB IF SR » 7 
EPSH; NEXT 



LRA; Indirect DB. 0, and S relative 



SLUT INSTR.LRA(DB+) 
SLUT INSTR-LRA(DB+) 
SLUT INSTR=LRA(Q+) 
SLUT INSTR=LRA(0+) 
SLUT INSTR.LRA(O-) 
SLUT INSTR«LRA(0-) 
SLUT INSTR»LRA(S-) 
SLUT INSTR-LRA{S-) 

LAIS SR SM ADD 
LAID UBA DSPL ADSB 



XC OPA ADD 
XC REGN ADD 



1 111 Oil OXX XX,DSPL«8,0B,INDR,ENTRY=LAID 
1 111 111 OXX XX,DSPL-8,DB,X,INDR,ENTRY.LAID 
11 on lOX XX,DSPL=7,0,INDR,ENTRY=LAID 
11 111 lOX XX,DSPL»7,Q,X.INDR,ENTRY=LAID 
11 oil 110 XX,DSPL=6,0,INDR,F2,ENTRY=LAID 
11 111 110 XX,DSPL=6,Q,X,INDR,F2,ENTRY=LAID 
11 oil 111 XX,DSPL-6,SM,INDR,F2,ENTRY=LAIS 
11 111 111 XX,DSPL=6,SM,X,INDR,F2,ENTRY=LAIS 



RH 
RH 



SR 


SM 


ADD 
JSB 


LPSH SP3B 


UBB 


UBA 


BNDE 


CTR 


RH 


DL 


BNDE 




RH 


DL 


BNDE 





SR7 
TICB 

NEXT 
NEXT 



UBA:»SR + SM; 

RH: -UBA: -BASE +/- DSPL^ READ; 

SP3B;=UBB:«SR + SM, JSZ IF SR = 7 

; BOUNDS CHECK S>«ADDR, CTR;=S-ADDR 
SKIP NEXT IF ADDR>»SM AND S>=ADDR AND 
NOT (FSS AND (DB REL ADDR OR TFF )) 

RH:»XC + INDIRECT CELL; 

BOUNDS CHECK ADDR >- DL, NEXT 

RH:=XC + INDIRECT CELL; 

BOUNDS CHECK ADDR > = DL , NEXT 
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RECORD 

NO 

3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3719 
3721 
3722 
3724 
3725 
3726 
3727 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3745 
3747 
3748 
3750 
3751 
3752 
3754 



C S 
ADDR 



0384 
0385 



0388 
0389 



038B 
038C 



STORE INSTRUCTION 
......«<•.. ALU A ••••«•«•••• 

LABL RREG SREG FUNC SFNC STOR SPSK 



STOR; DB. Q, and S relative 



..•••• •><<•.. f^n) B .............. 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9 26 AM 



SLUT INSTR«STOR(DB+) 101 001 OXX XX . SR«1 ,DSPL-8 ,DB , ENTRY-SWD 
SLUT INSTR.STOR(DB+) 101 101 OXX XX , SR-1 ,DSPL«8 ,DB , X .ENTRY. SWD 



SLUT INSTR«STOR(0+) 

SLUT INSTR.STOR(0+) 

SLUT INSTR.STOR(O-) 

SLUT INSTR.STOR(O-) 

SLUT INSTR.STOR(S-) 

SLUT INSTR-STOR(S-) 

SWS SR UBA ADD 

SWD UBA DSPL ADSB 



101 001 lOX XX.SR-1,DSPL»7,0,ENTRY.SWD 

101 101 lOX XX.SR=1,DSPL»7,0,X,ENTRY.SWD 

101 001 110 XX,SR=l.DSPL-8.Q,Fi,ENTRY=SWD 

101 101 110 XX.SR-1,DSPL-6,0,F2,X,ENTRY=SWD 

101 001 111 XX.SR=1,DSPL-6,SM,F2,ENTRY=SWS 

101 101 111 XX,SR-1,DSPL>6,SM,F2.X,ENTRY=SWS 



03 86 SWDl UBA SM CAD 



ADD 
RH WRD SR SM ADD 

EPOP UBB UBA BNDE 
REQN DATA RH DL BNDE 



SP3B 

CTR TICB 



STOR; Indirect DB, Q. and S relative 



SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 



STOR(DB+) .0101 0110 XXXX , SR'l . DSPL-8 , DB , INDR , ENTRY=SWID 
STOR(DB+) 0101 1110 XXXX,SR«1.DSPL-8,DB,X,INDR,ENTRY-SWID 



STOR(Q+ 

STOR(0+j 

STOR(O-) 

ST0R1Q-) 

STOR(S-) 

STOR(S-) 



0101 0111 0XXX.SR=1,DSPL=7 
0101 nil 0XXX.SR«1.DSPL»7 
0101 0111 lOXX.SR-l.DSPL'B 
0101 nil 10XX.SR-l,DSPL-6 
0101 0111 UXX.SR-l.DSPL' 



O.INDI^.ENT(iY = SWID 

O.X.INDR.ENTRY=SWID 

0,INDR,F2,ENTRY=SWID 

0,X,INDR,F2.ENTRY-SWID 

SM,INDR,F2,ENTRY«SWIS 



01011 11 lllXX.SR-l ,DSPL-6.SM,X,INDR,F2,ENTRY.SWIS 



SWIS SR SM ADD 
SWID UBA DSPL ADSB 



UBA SM CAD 



XC DB ADD 
UBA REQN ADD 



SR SM 


ADO 
ADD 




SP3B 


UBB UBA 


BNDE 




CTR TICB 


RH DL 
SP3B 


BNDE 
JSB 


SWDl 


STFF 



UBA:-SR ♦ ISM + XCI ; 

RH. -UBA. -(BASE + XC ) +/- SR-1, DSPL, READ 

SP3B:-UBB -SR + SM 

; BOUNDS CHECK S>-ADDR, CTR. -IF ADDR>SM AND 

S>-ADDR AND NOT ((FSS AND 

(DB OR P REL ADDR)) OR TFF) THEN (S-ADDR) 



ELSE %(8)17 
WRITE (S); BOUNDS CHECK ADDR 



'= DL, NEXT 



UBA:-SR + SM; 

RH: -UBA -BASE +/- DSPL. READ; 

SP3B:-UBB:-SR + SM 

: BOUNDS CHECK S>-ADDR, CTR -IF ADDR>SM AND 

S>-ADDR AND NOT (FSS AND (DB OR P REL ADDR)) 

THEN (S-ADDR) ELSE %(8)17 

UBA:-XC + DB; BOUNDS CHECK ADDR >= DL, STFF 

RH:-UBA:=TARGET ADDR, WRITE; UBB.-S, JSB 
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RECORD 

NO 

3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3772 
3774 
3776 
3777 
3778 
3780 
3782 
3783 
3784 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3802 
3804 
3806 
3807 
3808 
3810 
3812 



C S. 
ADDR 



038D 
038E 
038F 



0390 
0391 



0393 
0394 
0395 



0396 
0397 



STORE DOUBLE INSTRUCTION 

..».....«„. ALU A .«•••.«•«.. 
LABL RREQ SREG FUNC SFNC STOR SPSK 



............. ALU B ««..««««•«««•. 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



STD; DB, 0, and S relative 



JLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 



NSTR = STDliDB + 

nstr=stdi;db+ 

NSTR = STDi;0+) 
NSTR = STDi:0+) 
NSTR = STDllO- I 
NSTR«STD(Q-) 
NSTR-STDl[S- ) 
NSTR=STD(S-) 



1 110 001 OXX XX,SR=2,DSPL=8,DB,ENTRY=SDD 
1 110 101 OXX XX,SR=2,DSPL-8 ,DB,XSL,ENTRY=SDD 
1 110 001 lOX XX,SR=2,DSPL=7 ,0,ENTRY=SDD 
1 110 101 lOX XX,SR=2 .DSPL=7 ,O.XSL,ENTRY=SDD 
1 110 001 110 XX,SR=2 .DSPL=6 ,0,F2,ENTRY=SDD 
1 110 101 110 XX,SR=2,DSPL=6,0,F2,XSL,ENTRY=SDD 
1 110 001 Ul XX,SR=2 .DSPL=6,SM,F2.ENTRY.SDS 
1 110 101 111 XX,SR=2.DSPL=6,SM,F2,XSL,ENTRY=SDS 



SDS SR UBA ADD 
SDD UBA DSPL ADSB 
SDDl UBA SM CAD 



WRD 
EPOP 



SR 
UBB 



ADD 
SM ADD 
UBA BNDE 



SP3B 

CTR TICB 



RB 
SM 



ADD 
SUB 



REGN DATA RH DL 
EPOP SP3B RH 



BNDE 
BNDQ 



STD; Indirect DB , Q, and S relative 



SLUT instr-stdi;db+ 
SLUT instr«stdi:db+ 
SLUT instr«stdi:o+) 

SLUT INSTR«STDi;0+) 
SLUT INSTR«STDi:Q-) 
SLUT INSTR = STDI'C)-) 
SLUT INSTR»STDi:S-) 
SLUT INSTR«STDi;S-) 



,1110 0110 XXXX,SR=2,DSPL'8,DB,INDR,ENTRY"SDID 
:1110 1110 XXXX,SR=2,DSPL«8,DB,XSL,INDR,ENTRY»SDIO 
UIO 0111 0XXX,SR=2 ,DSPL=7 .O.INDR ,ENTRY=SDID 
1110 1111 0XXX,SR«2,DSPL-7,Q,XSL,INDR,ENTRY=SDID 
1110 0111 10XX,SR>=2,DSPL'=6,0,INDR,F2,ENTRY«SDID 
1110111110XX,SR = 2,DSPL = 6,(},XSL,INDR,F2,ENTRY.SDID 
1110 0111 11XX,SR=2,DSPL=6,SM,INDR,F2,ENTRY»SDIS 
1110111111XX,SR»2,DSPL-6,SM,XSL,INDR,F2.ENTRY»SDIS 



SDIS SR 
SO ID UBA 
UBA 



SM ADD 
DSPL ADSB 
SM CAD 



XC DB ADD 
UBA REGN ADD 



SR SM 
UBB UBA 


ADD 
ADD 
BNDE 




SP3B 

CTR TICB 


RH DL 
SP3B 


BNDE 
JSB 


SDDl 


STFF 



UBA:=SR + (SM + XC ) ; 

RH:=UBA:=(BASE + XC ) +/- DSPL, SEND ADDR 
EPOP, BOUNDS CHECK S>=ADDR, CTR.=IF ADDR>SM 
AND S>=ADDR AND NOT (FSS AND (DB REL ADDR 
OR TFF)( THEN (S-ADDR) ELSE CODE FOR NOP 
WRITE (S-1); BOUNDS CHECK ADDR>=DL 
EPOP; BOUNDS CHECK ADDR>S, CTR:=IF ADDR>=SM 
AND S>ADDR AND NOT (FSS AND (DB REL ADDR 
OR TFF)) THEN (S-ADDR-1) ELSE CODE FOR NOP 
WRITE (S); NEXT 



UBA:»SR + SM; 

RH:-UBA:"BASE */- DSPL, READ; SP3B:»UBB:-S 

; BOUNDS CHECK ADDR>S, CTR: -IF ADDR>=SM AND 

S>ADDR AND NOT (FSS AND DB REL ADDR) THEN 

(S-ADDR) ELSE CODE FOR NOP 
UBA:-XC + DB; BOUNDS CHECK ADDR >« DL, STFF 
RH:=UBA:=XC + DB + INDIRECT CELL, SEND ADDR; 
UBB:«S, JSB 
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RECORD 


C S 


NO 


ADDR 


3814 




3815 




3816 




3817 




3818 




3819 




3820 




3821 




3822 




3823 




3824 




3825 


0398 


3827 


0399 


3829 




3830 


039A 


3832 


039B 


3834 




3835 




3836 


039C 


3838 




3839 


039D 


3841 




3842 




3843 


039E 


3 8 45 


039F 


3847 




3848 


03A0 



STORE BYTE Instruction 

*•...*.*«.* ALU A «••••«•••«• 
LABL RREG SREG FUNC SFNC STOR SPSK 



Q and S relative 



......*...... ALU B 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



SLUT INSTR.STB(0+) 
SLUT INSTR = STB(CI+) 
SLUT INSTR.STB(Q-) 
SLUT INSTR=STB(0-) 
SLUT INSTR«STB(S-) 
SLUT INSTR=STB(S-) 

SBS SR UBA ADD 
SBO UBA DSPL ADSB 



i 110 000 lOX XX,SR-1,DSPL=7,0,ENTRY«SB0 

1 110 100 lOX XX,SR«1,DSPL-7,0,XSR,ENTRY-SBQ 

1 110 000 110 XX,SR>l,DSPL=6,0,F2.ENTRY-SBO 

1 110 100 110 XX,SR=1.DSPL=6,0.F2,XSR,ENTRY=SB0 

1 110 000 111 XX.SR»1 ,DSPL=6.SM,F2.ENTRY=SBS 

1 110 100 111 XX,SR'1,DSPL»6,SM,F2,XSR,ENTRY'SBS 



xc 

RH 


SM 


GSR 
CAD 






HBF2 
EPOP 


RH 


DL 


JSBS 


SB32 




NCRY 




RA 


ADD 


RRZ 




NF2 


UBA 


UBB 
RA 


lOR 
ADD 


RLZ 


REGN 


DATA 


UBA 


UBB 


lOR 




REGN 


DATA 



8000 UBA 
SP3B RH 



ADD 
ADD 



ADDL 
SUB 



SPIB 

CTR TICB 



RH JSBS SB32 
REGN ADD LLZ 



SPIB ADD 
REGN ADD 



NCRY 
NF2 

NEXT 

NEXT 



UBA:«SR + (SM + XC) ; 

RH:=UBA. '(BASE + XC ) +/- DSPL, READ; 

SP3B:=UBB;-S + SM 

F2:=XC(15); SP1B:-ADDR + 32K (0118) 

EPOP, CTR. 'IF ADDR>SM AND S>=ADDR AND 

NOT (FSS AND (DB REL ADDR OR TFF)) THEN 

(S-ADDR) ELSE CODE FOR OPERAND 
JSB IF NOT (ADDR >= DL) ; 
JSB IF NOT (S >' ADDR) 

UBA =BYTE IN IS), SKIP IF NOT RIGHT BYTE; 
UBB. (0;8)=LEFT BYTE OF WORD AT STORE ADDR, 

SKIP IF NOT RIGHT BYTE 
MERGE BYTES, WRITE; UBB:-ADDR + 32K, NEXT 
UBA. (0:8) :-BYTE IN (S) ; 

UBB 'RIGHT BYTE OF WORD AT MEMORY LOCATION 
MERGE BYTES, WRITE; NEXT 
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RECORD 

NO 

3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3860 
3861 
3863 
3865 
38fi6 
3867 
3869 
3>-. 7C 
3 f, ■ 1 
3 f •■ - 
3 8 7! 
3375 
3876 
3 877 
3878 
3880 
3881 
38S2 
3884 
3886 
3887 
3889 
3891 
3892 
3893 
3895 
3896 
3897 
3898 



C S. 
ADDR 



03A2 
03A3 



03A7 
03A8 



03A9 
03AA 



STORE BYTE Inst ruction 

........... ALU A *«.«,««.«.» ............. ftLy B ..».,.,.*,,,,,, 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• STB: DB relative " 

$l.UT INSTR = STB(DB+) :1 110 000 OXX XX , SR = 1 ,DSPL = 8 ,DB , ENTRY = SBD 
SLUT INSTR = STB(DB+) .1 110 100 OXX XX , SR = 1 ,DSPL = 8 ,DB , XSR , ENTRY = SBD 

SEID USA DSPL ADSB I 

XC GSR 
DB ADD 

RH SM JSBC SBDR 



10/ 2/86 9:26 AM 



ROBD 


SR 


SM 


ADD 


SP3B 


HBF2 
EPOP 


8000 
RH 


UBA 
DL 


ADDL 
SUB 


SPIB 

TICB NCRY 


FSS 


SP3B 


RH 


SUB 


CTR TICB CRRY 



SPOA DL SUB 



03A6 SEIDR 



RA ADD RRZ 



DB JSBS SB32 



REGN ADD LLZ 



UBA UBB lOR REGN DATA SPIB ADD 
SBDL RA ADD RLZ REGN ADO RRZ 



UBA UBB lOR 
SB32 SPIB ADD 



REGN DATA ADD 

ROBD UBB DL BNDE 



TICB 

NF!! 
NEXT 



NEXT 
TICB 



UBA SM JSBC SBDL 



NF2 SP3B UBA BNDE 



CTR TICB RSE) 



RH:=UBA:=(BASE + XC ) +/- DSPL, READ; 

SP3B:=UBB:'S + SM 

F2:=XC(15); SPIB ; =ADDR + 32K (0118) 

SPOA:«DB, EPOP; 

SKIP IF NOT (ADDR >- DL), TICB CAUSES CTR 

TO GET %17 (CODE FOR OPERAND) 
JSB IF SPLIT BANKS; 
CTR:=IF ADDR>SM AND S>=ADDR AND 

NOT (FSS AND (DB REL ADDR OR TFF)) THEN 

(S-ADDR) ELSE CODE FOR OPERAND, 

SKIP IF S >= ADDR 
; JSB IF NOT (DL <= ADDR <= S) AND NOT FSS 

AND (DB >- DL) AND (Z > ■= DB ) 

(JSB IF ((DL > ADDR) OR (ADDR > S)) AND 

SPLIT STACK) 
UBA:=BYTE IN (S), SKIP IF NOT RIGHT BYTE; 
UBB. (0:8)=LEFT BYTE OF WORD AT STORE ADDR, 

SKIP IF NOT RIGHT BYTE 
MERGE BYTES, WRITE; UBB : =ADDR + 32K, NEXT 
UBA. (0:8) :=BYTE IN (S) ; 

UBB:=RIGHT BYTE OF WORD AT MEMORY LOCATION 
MERGE BYTES, WRITE; NEXT 
READ ADDR + 32K ; 
BOUNDS CHECK (ADDR + 32K) >= DL, TICB SLOWS 

DOWN RSB (WILL ALWAYS BE FALSE) 
JSB for storing into left byte it not F2; 

Bounds check S >= addr, CTR := it addr > 

SM and S >» addr and not (FSS and DB-rel 

addr) then (S-addr) else code tor NOP, 

medium RSB 
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RECORD 

NO 

3900 
3901 
3902 
3903 
3T04 
3005 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3916 
3917 
3918 
3920 
3921 
3922 
3924 
3925 
3927 
392R 
392T 
3931 
3932 
3934 
393b 
3936 
3938 
3939 
3941 
3942 
3943 
3945 
3946 
3943 
3949 
3951 
3952 
3954 
3956 
3957 
3959 
39C0 



C S 
ADDR 



STORE BYTE Instruction 
««.«....... ALU A •••*«••«••• 

LABL RREG SREG FUNC SFNC STOR SPSK 



.....>>«.*... ALU B ••**••••«»•••* 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



03AC 
03AD 



03AF 
OjBO 



03B3 
03B4 

03B5 

0386 

03B7 

03B8 
0389 



Indirect, DB , and S relative 



SLUT INSTR«STB(DB+) 

SLUT INSTR.STB(DB+) 

SLUT INSTR.STB1Q+) 

SLUT INSTR=STB(0+) 

SLUT INSTR.STB(O-) 

SLUT INSTR=STB(0-) 

SLUT INSTR-STB(S-) 

SLUT INSTR»STB(S-) 



1110 0100 XXXX,SR-1 .DSPL'i 
1110 1100 XXXX,SR=1 .DSPL'i 
1110 0101 0XXX,SR=1 ,DSPL-7 
1110 1101 0XXX,SR=1,DSPL"7 
1110 0101 10XX,SR = l.DSPL=i6 
1110 1101 10XX,SR=1,DSPL=6, 
1110 0101 11XX,SR-1,DSPL=6, 
1110 1101 llXX.SR.l ,DSPL=6, 



SBIS SR 
SBID UBA 



SM ADD 
DSPL ADSB 





DB 


ADD 




xc 


REGN 


ADD 


LSR 


xc 


REGN 


GSR 




UBB 


SM 


JSBC 


SBIl 


RH 


DL 


JSBS 


SI32 




RA 


ADD 


RLZ 


SPOA 


DL 


BNDE 






RA 


ADD 


RRZ 


SPOA 


DL 


BNDE 




UBB 


DL 


ADD 
BNDE 




UBB 


SM 


CAD 





ROD SR SM 

UBB UBA BNDE 

NFSS Z DB SUB 

CFl UBA DL SUB 

HBF2 UBA DB ADD 

NFl SP3B UBB SUB 



.DB.INDR, ENTRY. SBID 
,DB,X.INDR.ENTRY«SBID 
O.INDR,ENTRY=SBID 
0,X,INDR.ENTRY=SBID 
O.INDR,F2,ENTRY=SBID 
O.X, IN0R,F2,ENTRY=SBID 
SM.INDR.F2,ENTRY=SBIS 
SM,X,INDR,F2, ENTRY- SBIS 

ADD 
ADD 



SP3B 

CTR TICB 

STFF NCRY 
CTFl 

RH ROD 

CTR TICB CRRY 



NCRY 
F2 



JSB SI32 
REGN ADD RRZ 



UNC 
EPOP F2 



NEXT UBA UBB lOR REGN DATA 

REGN ADD LLZ 
NEXT UBA UBB lOR REGN DATA 



8000 RH ADDL 
UBB ADD 



SP3B UBB BNDE 



RH ROD TICB 
CTR TICB RSB 



UBA .SR + SM; 

SPOA :=UBA;= (BASE + XC ) +/- DSPL, READ; 

SP3B:=UBB:-SR + SM 

; BOUNDS CHECK S>=ADDR, CTR:='IF ADDR>SM AND 

S>=ADDR AND NOT (FSS AND DB REL ADDR) 

THEN IS-ADDR) ELSE CODE FOR OPERAND 
UBA;-D8, SKIP IF NOT SPLIT BANKS; 
STFF, SKIP IF NOT (Z >= DB ) 
UBA;'(XC + INDIRECT CELL) i LSR ( 1 ) ; 
F1:«N0T SPLIT BANKS AND (Z >» DB ) AND 

(DB >» DL) 
SET F2 IF EFFECTIVE BYTE ADDR IS ODD; 
RH:«ABSOLUTE WORD ADDR, READ 
JSB IF SPLIT STACK; 
CTR .= IF ADDR>SM AND S>-ADDR AND NOT SPLIT 

BANKS THEN (S-ADDR) ELSE CODE FOR OPERAND 
JSB IF NOT (ADDR >= DL ) ; 
JSB IF NOT (S >• ADDR) 
UBA. (0;«) : 'BYTE OUT OF (S); 
UBB -RIGHT BYTE OF WORD AT MEMORY LOCATION, 

SKIP IF NOT STORING INTO LEFT BYTE 
BOUNDS CHECK INDIRECT CELL > =■ DL. NEXT; 
MERGE BYTES. WRITE 
U8A:=BYTE OUT OF (S) ; 

UBB: -LEFT BYTE OF WORD AT MEMORY LOCATION 
BOUNDS CHECK INDIRECT CELL>=DL, NEXT; 
MERGE BYTES, WRITE 
; UBB:=32K + ADDR 
BOUNDS CHECK ADDR >- DL; RH:»AODR, READ, 

TICB TO SLOW DOWN RSB (ALWAYS FALSE) 
; BOUNDS CHECK S>=ADOR, CTR -IF ADDR>SM AND 

S>=ADOR AND NOT (FSS AND DB REL ADR) THEN 

(S-ADOR) ELSE CODE FOR NOP, MEDIUM RSB 
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lABZ and DABZ INSTRUCTIONS 






RECORD 


C S. 




»...»....». /i,Lu A •••«•• 


A A A A A 


AAAAAA.AAAAAA ft HJ Q AA..AAAAA 


A A A A A 


NO 


ADDR 


LABL 


RREG SREG FUNC SFNC STOR 


SPSK 


RREG SREG FUNC SFNC STOR SPEC 


SKIP 


3962 




««*«i 


..««**•.><,•>...«.««<*»<,•• 


AAAAAA, 




AAAA 


3963 






The followin<3 instructions access the 5 bits, 11 through 15 


A 


3964 






t rom CIR to r t he value o 


f DSPL 


F2 is initialized to the 


A 


3965 






value of bit 10 in the instruci 


lion. Instructions lABZ and 


A 


3966 






DABZ require an SR pread 


just o1 


F one . 


A 


3967 




* * * « ] 


ft****|l|A*A*AllAA*A*AAAAA*** 


A A A A A A 1 




AAAA 


3968 














3969 




»»»*, 


■ AAAAAAAAAAAAAAAAAAAAAAAA 




tAAAAAAAAAAAAAAAAIlAAAAAAAAAAAA: 


AAAA 


3970 






lABZ instruction, (Increment A 


, branch if zero) - lABZ is 


A 


3971 






the ent ry point for t he i 


direct 


case, and lABI is the entry 


A 


3972 






point for the indirect case 




A 


3973 




A * * * 1 


hAAAAAAAAAAAAAAAAAAAAAAAA) 


A A A A A A « 


kAAAAAAAAAAAAAAAAAAAAAAAAAAAAA) 


AAAA 


3974 














3975 




SLUT 


INSTR=IABZ:0 001 000 111 


OX.SR^ 


=1,DSPL=5,P,ENTRY=IABZ 




3976 




SLUT 


INSTR=IABZ;0 001 100 111 


0X,SR= 


=1 ,DSPL=5 , P , INDR , LNTRY=IABI 




3977 




SLUT 


INSTR=IABZ;0 001 000 111 


IX.SR: 


=1,DSPL=5,P,F2,ENTRY=IABZ 




3978 




SLUT 


INSTR=IABZ:0 001 100 111 


lX,SRi 


■1,DSPL«5,P INDR,F2,ENTRY=IABI 




3979 














3980 


03BB 


lABZ 


RA ,JSBI lABC 


NZRO 


P ADD CF2 




3982 


03BC 




UBB DSPL ADSB 


RONP 


JSB DABl 


UNC 


3984 


03BD 


lABC 


RA INC RA 


ceo 


JSZ NEXT 


UNC 


3986 


03BE 


lABI 


UBA DSPL ADSB RH 


ROP 


RA INC CF2 


ZERO 


3988 


03BF 




UBA PB SUB 


CTFl 


JSBI lABC SPIB 


UNC 


3990 


03C0 


lAIl 


RH OP A ADD 


RONP 


PL RH UBNE 




3992 


03C1 




UBA PB IJBNE 


Fl 


PL UBA UBNE 


NFl 


3994 


03C2 




JSZ BNDV 


UNC 


SREG JSB DABC P 


UNC 


3996 


03C3 




RA SPIB ADSB RA 


CCO 


JSZ NEXT 


UNC 


3998 














3999 




A A A * 1 


kAAAA*AAAAA:AAAAAAA*)kAA*AAi 


•l * A A A A < 


IiAAAAAAAAAAAAAAAAKeAAAAAAAAAAAAi 


h A A A 


4000 






DABZ Instruction, (Decrement A 


, branch if zero) - DABZ is 




4001 






the entry point for the i 


direct 


case, and DABI is the entry 




4002 






point for the indirect case. 






4003 




* A * * 1 


«AAAA*AA*A*!llAA*A*AA**AA*Ai 




tAAAAAAAAAAAAAAAAAAAAAAAAAAAAA] 


K A A A 


4004 














4005 




SLUT 


INSTR.:DABZ:0 001 010 111 


OX.SR- 


= 1,DSPL = 5,P,ENTRY--^DABZ 




4006 




SLUT 


INSTR=DABZ;0 001 110 111 


OX,SR= 


=1 .DSPL =5 , P , INDR , ENTRY=DABI 




4007 




SLUT 


INSTR=DABZ;0 001 010 111 


1X,SR= 


=1,DSPL=5,P,F2,ENTRY=DABZ 




4008 




SLUT 


INSTR=DABZ:0 001 110 111 


1X,SR= 


= 1 ,DSPL = 5 , P,F2 , INDR , ENTRY-DABI 




4009 














4010 


03C4 


DABZ 


RA .JSBC DABC 


NZRO 


P ADD SF2 




4012 


03C5 




UBB DSPL ADSB 


RONP 


ADD 




4014 


03C6 


DABl 


UBA PB UBNE 


F2 


PL UBA UBNE 




4016 


03C7 




ADD 


RSB 


SREG ADD P 




4018 


03C8 


DABC 


RA CAD RA 


CCO 


JSZ NEXT 


UNC 


4020 


03C9 


DABI 


UBA DSPL ADSB RH 


ROP 


RA CAD SF2 


ZERO 


4022 


03CA 




UBA PB JSBS lAIl 


CTFl 


JSBI DABC SPIB 


UNC 
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JSB IF (S)+1<>0; UBB:=P BEFORE INCREMENTING 
UBA: "TARGET P, READ INTO NIR; JSB 
(S) :=(S) + 1, CCO; NEXT 

RH:=INDIRECT ADDR, READ; SKIP IF (S)+i=0 
F1:=0 IF BNDV; JSB IF NOT BRANCH, SPIB =1 
UBA:=TARGET P, READ INTO NIR; BOUNDS CHECK 
BOUNDS CHECK TARGET P, SKIP IF NOT BN8V ; 
BNDV IF NOT Fl; P:=TARGET P, JSB 
(S) : = (S) +/- 1, CCO; NEXT 



JSB IF (S)-1<>0; UBB:-P BEFORE INCREMENTING 

UBA: 'TARGET P, READ INTO NIR 

SKIP IF FROM lABZ; BOUNDS CHECK TARGET P 

RSB IF lABZ; P:=TARGET P AFTER BOUNDS CHECK 

(S) : =(S)-1, CCO; NEXT 

RH:=INDIRECT ADDR. READ; SKIP IF (S)-1=0 

F1:=0 IF BNDV; JSB IF NOT BRANCH, SP1B:=1 
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RECORD 

NO 

4025 
4026 
4027 
4028 
4029 
4030 
403; 
4032 
4033 
4034 
4035 
4036 
4038 
4040 
4042 
4044 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4060 
4062 
4064 
4066 
4068 
4070 
4072 
4074 
4076 
4078 



C S 

ADDR 



03CB 
03CC 
03CD 
03CE 
03CF 



03D0 
G3D1 
03D2 
03D3 
03D4 
03D5 
03D6 
03D7 
03D8 
03D9 
03DA 



IXBZ and DXBZ INSTRUCTIONS 

........... ALU fi^ ,........,» 

LABL RREG SREG FUNC SFNC STOR SPSK 



............. ftLu B ••.••«••«••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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* IXBZ instruction, (Increment X, brancti if zero) - IXBZ is 

* the entry point tor ttie direct case, and IXBI is tfie entry 

* point tor the indirect case 

SLUT INSTR-IXBZO 001 001 010 OX , 0SPL«5 , P , ENTRY^IXSZ 

SLUT INSTR=IXBZ:0 001 101 010 OX , DSPL=5 , P , INDR , ENTR Y=IXBI 

SLUT INSTR=IXBZ:0 001 001 010 IX . DSPL =5 , P , F2 , ENTRY^IXBZ 

SLUT INSTR=IXB2.0 001 101 010 IX , 0SPL=5 , P , F2 , INDR , ENTRY=IXBI 



IXBZ X 



IXBC 
IXBI 



JSBI IXBC 
DSPL ADSB 

INC 

JSBI 
DSPL ADSB 



NZRO 
RONP 

X CCO 
IXBC NZRO 

SPOA ROP 



ADD 


CF2 




JSB DXBl 




UNC 


JSZ NEXT 




UNC 


ADD 






JSBI DXIl 


SPIB 


UNC 



* DXBZ instruction, (Decrement X, branch if zero) - DXBZ is 

* the entry point for the direct case, and DXBI is the entry 

* point for the indirect case 

SLUT INSTR=DXBZ:0 001 001 Oil OX , DSPL-5 , P , ENTRY-DXBZ 

SLUT INSTR=DXBZ;0 001 101 Oil OX , DSPL=5 , P , INDR , ENTRY'DXBI 

SLUT INSTR'DXBZO 001 001 Oil IX ,0SPL='5 , P . F2 . ENTRY-DXBZ 

SLUT INSTR=DXBZ;0 001 101 Oil IX , DSPL=5 , P . F2 , INDR , ENTRY^DXBI 



DXBZ X 

UB6 
DXBl UBA 



DXBC X 
DXBI X 

UBB 
DXIl UBA 



JSBC DXBC 
DSPL ADSB 
PB UBNE 
ADD 
CAD 

JSBC DXBC 
DSPL ADSB 
PB UBNE 
SPOA OPA ADD 
UBA PB UBNE 
X SPIB ADD 



NZRO 
RONP 
F2 
RSB 

X CCO 
NZRO 

SPOA ROP 

RONP 



P ADD 

ADD 
UBA UBNE 
SREG ADD 

JSZ 
P ADD 

CAD 
UBA UBNE 

ADD 
UBA UBNE 
SREG JSZ 



JSB IF X+1 <> 0; UBB:-P BEFORE INCREMENTING 
UBA: -TARGET P, READ, JSB 

X:«X+1, CCO; JSB TO WAIT ONE CLOCK FOR NEXT 
JSB IF X+1 <> 0; UBB:-P BEFORE INCREMENTING 
SPOA:=INDIRECT ADDR, READ; SP1B:=1, JSB 



JSB IF X-1 <> 0; U8B:>P BEFORE INCREMENTING 

UBA:=TARGET P, READ 

SKIP IF NOT FROM lABZ, BOUNDS CHECK TARGET P 

RSB IF FROM lABZ ; P: -TARGET P 

X:«X-1. CCO; JSB TO WAIT ONE CLOCK FOR NEXT 

JSB IF X-1 <> 0; UBB:-P BEFORE INCREMENTING 

SPOA: -INDIRECT ADDR, READ; SP1B:=-1 

BOUNDS CHECK INDIRECT CELL ADDRESS 

UBA:=TARGET P, READ INTO NIR 

BOUNDS CHECK TARGET P 

X:'X +/- 1, CCO; P: -TARGET P, JSB 
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RECORD 

NO 

4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4091 
4093 
4095 
4097 
4099 
4101 
4103 
4105 
4107 



C.S. 
ADDR 



03DB 
03DC 
03DD 
03DE 
03DF 
03E0 
03E1 
03E2 
03E3 
03E4 



PUSH TOS ROUTINES FOR LOAD INSTRUCTIONS 

• .«*...*••. ALU A •«.*•*•••«•« ..».«»«*»..*. ALU B »•«•««•«.•...•• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 

LOAD instructions use special TOS push routines because * 

1. STOV is handled differently ( «ST02 ) • 

2. Must re-read memory in case reference was (S-6) and • 
TOS registers were full * 
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LPSH 
LDPH 

LBPH 



SM INC 
QDWN ADD 
RH ADD 
SM INC 
QDWN ADD 
QDWN ADD 
RH ADD 
SM INC 
QDWN ADD 
RH ADD 



WRS 




SM 


INC 




SM 


DCSR 




DATA 


Z 


SREG 


JSZC 


ST02 






NEG 


ROD 


SP3B 




ADD 








RSB 


WRS 






ADD 






DCSR 




DATA 




UBA 


INC 




SM 


DCSR 




DATA 


Z 


SREG 


JSZC 


ST02 






NEG 


ROD 


SP3B 




ADD 








RSB 


WRS 




SM 


INC 




SM 


DCSR 




DATA 


Z 


SREG 


JSZC 


ST02 






NEG 


ROBD 


SP3B 




ADD 








RSB 



Write at (SM + 1) ; SM :» SM + ] 
WRITE QDWN; STOV IF NEW SM > Z 
UBA:.ADOR, REREAD; UBB:-S, RSB 
WRITE AT (SM + 1) ; DCSR 
WRITE QDWN; STOV IF NEW SM > Z 
WRITE QDWN; STOV IF NEW SM > Z 
UBA:=ADDR, REREAD; UBB:=S, RSB 
WRITE AT (SM + 1): SM:=SM + 1. 
WRITE QDWN; STOV IF NEW SM > Z 
UBA:=ADDR, REREAD; UBB:=S, RSB 



DCSR 
WITHIN 32K 



WITHIN 32K 
WITHIN 32K 



DCSR 

& WITHIN 32K 
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RECORD 
NO 

4110 
4111 
4112 
4113 
4U4 
4115 
4116 
41 18 
4119 
4i;i 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4130 
4132 



Clock Instructions 10/ 2/86 9:26 AM 

C.s ........... ALU A •.•».*.»«.» ............. ALU B »•«•....»•«.•« 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

• Set Process Clock (SCLK) instruction * 

SLUT INSTR-SCLK/SMSKO Oil 000 001 OOx xxx, SR « 1 . ENTRY»SCLK 

03E5 SCLK CIR JSB SMSK EVEN JSZ TRP6 BKX3 NPRV Trap if not privileged else jump if SMSK 

inst ruction; BKX5 : = 
03E6 JSZ NEXT UNC RA ADD XR20 EPOP Jump for NEXT; Process clock = (S), pop 1 

• Read Process Clock (RCLK) instruction • 



SLUT INSTR.RCLK/RMSK.O Oil 000 001 Olx xxx, ENTRY-RCLK 



03E7 RCLK 

03E8 

a3E9 



ADD 
CIR JSB RMSK 
JSZ NEXT 



EVEN 
UNC 



JSZ PSHM BKX3 SR7 ; Empty RG if SR « 7, BKX3 .» 
ADD Jump if RMSK instruction 

XR20 ADD RH EPSH Jump for NEXT; New (S) := process elk. push 
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RECORD C.S .»..»*»..., ALU A ••»*••••«.•• «*..*.**....» ALU B «••••••*••••** 

NO ADDR LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

4135 •• ••••*<,••«*•<,••••••*••**••,•,<.*. .*<,**><*<,<,i,*»>. <,<.«••<, I, «<,*<,•*.**•<,•*««,.. 

4136 • Store B into X (STBX) Instruction • 

4137 **».««*.*»»..*.•..«.*..».«*»»»*.*..**•««*.*.««»«*»*(,.**«««*»»«.»«.«*« 

4138 ' 

4139 SLUT INSTR=STBK:0 000 010 110 xxx xxx, ENTRY=STBX, SR=2 

4140 • 

4141 03EA STBX RB ADD X CCA JSZ NEXT UNO X :• (S-1), set CCA; Jump for NEXT 

4143 

4144 *«**•««««*»«»«»*.*«..»»»»»»»»«.**»•««*»»«.»****»*«(,«,«*...*.«»...««««« 

4145 • Add A to X (ADAX) Instruction • 

4146 »«.»..*•*««...«......»*.«.*««..«.*.«...»..*«»«...«*.*..».»,...«.«»«.. 

4147 * 

4148 SLUT INSTR'ADAXiO 000 Oil 110 xxx xxx, ENTRY^ADAX, SR»1 

4149 • 

4150 03EB ADAX X RA ADD X CCO JSL DEL UNC X := X + (S), set CCO : 

4152 Jump to delete (S) and for NEXT 

4153 .»*..».***.«,.*.....«..........».,..•.*<,...«,...«........,,.........,« 

4154 « Add X to A (ADXA) Instruction • 

4ic,5 *>«..,.<.«><.<.•«•.•<,<,.*••«>,<,•*•<,••««<,>,*•«*«<,*•. «,.»«**<«i,«. •«.**. *..•..« 

4i':.6 • 

41S7 SLUT INSTR = ADXA:0 000 Oil 111 xxx xxx, ENTRY>=ADXA, SR = 1 

415E * 

4159 03EC ADXA X RA ADD RA CCO JSZ NEXT UNC (S) :« X + (S), set CCO; Jump for NEXT 

41B I • 

41 62 .«»..* ««■..«**«»».«..*«*«»»«..****«*.«.««»«««».*..»«»»«».»«««•*« 

4163 • Load X info B (LDXB) Instruction • 

4164 *»*»»**«***»«»****»*»***«********(,«****»******«****«*»******««******* 

4165 • 

4166 SLUT INSTR=LDXB:0 000 100 010 xxx xxx, ENTRY=LDXB, SR-2 

4167 * 

4168 03ED LDXB X ADD RB CCA JSZ NEXT UNC (S-1) :• X, set CCA; Jump for NEXT 

4170 * 

4171 •»•*«»»*•««•«**«»*.•««*»•.»«*•*•»**..*«*«.««.»*..»«*»**»•.*«»***..**. 

4172 • Store A into X (STAX) Instruction » 

4173 ••••<•«•*<.•*•<<•. I «<.««*«••••• «<,.«««>.i.i.**««<<i,«,«>t»,*«<<*»**<*«*. •<,•«««>,>,. «** 

4174 • 

4175 SLUT INSTR=STAX:0 000 100 Oil xxx xxx, ENTRY=STAX, SR»1 

4176 • 

4177 03EE STAX RA ADD X CCA JSL DEL UNC X r« (S), set CCA; 

4179 Jump to delete (S) and for NEXT 

4180 • 

4181 «.•»«**.««««*«*«..•«««.**••».««**•.».«»»•«.«**.«»«.<,•«*«*.«.•«*.««.«* 

4182 • Load X into A (LDXA) Instruction * 

4183 **»*«***».»*»*««*••..**..•»•.*»*««»»..».*«««,»*«.»**•**..*.»*«***»*«*, 

4184 • 

4185 SLUT INSTR=LDXA:0 000 100 100 xxx xxx, ENTRY=LDXA 
4186 

4187 03EF LOXA X ADD RH CCA JSZ PSHM SR7 New (S) :• X, set CCA; Empty RG if SR = 

4189 03F0 ADD EPSH JSZ NEXT UNC Push; Jump for NEXT 
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RECORD C.S. ........... ALU A «•««**•«•«« «..*.«..*«».« alU B «••••*•»••».«• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

4192 ....«.................«..............»....*«.....».«....».«..*..«.... 

4193 * Add B to X (ADBX) Instruction » 

4194 .........................».........«..»...........,,.«»,**........... 

4195 * 

4196 SLUT INSTR«ADBX 000 111 110 xxx xxx, ENTRY-ADBX, SR«2 

4197 • 

4198 03F1 ADBX X RB ADD X CCO JSZ NEXT UNO X : ' (X) + (S-1), set CCO; Jump tor NEXT 

4200 • 

4201 «.......,...*»»......*.«.......»............»•.......»»..«*»....«.... 

4202 • Add X to B (ADXB) Instruction ' 

4203 ................»..............................*«.«««»»..**.***»....* 

4204 * 

4205 SLUT INSTR-ADXBO 000 111 111 xxx xxx, ENTRY-ADXB, SR-2 

4206 * 

4207 03F2 ADXB X RB ADD RB CCO JSZ NEXT UNC (S-1) :« X + (S-1), set CCO; Jump for NEXT 
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RECORD C.S. .(,.««.»*.,•« ALU ^ ««>«**>.•••• •*•*•*,<.*•«<,*« ^lU B ••••«*•••** i»«» 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

4210 «»•««*«*•».»».:••«««•*•«««»«•••««•».»»«««*«*««,,*«..««.««««*«*••«*«*.,«« 

4211 > ZROX (Zero X) Instruction • 

4212 »..*««»«».»*«*«.«.*«*«••«««««•*•«*.*«»««(.««*«(,«•«««•»«*«*««»»«*««*•*» 

4213 » 

4214 itLUT INSTR = ZROX:0 000 000 Oil XXX xxx, ENTRY = ZROX, SR=0 

4215 

4216 03F3 ZROX ADD X JSZ NEXT UNC X := 0, JSB tor NEXT 

4218 • 

4213 «.,.»...**«•«<,•(,«.*«*.«»•.•»•..»««.*•.*»•«*««(,**....«.«*.*«.«**«•«.. I,* 

4220 * ZERO (Push zero) Instruction • 

4;: 21 ...»***.«**»..,....*..•.•»«•«..*..**«**«»**<,«.«.*..«*«..««*»****••««*. 

4222 • 

4223 SI.UT INSTR-ZERO.O 000 000 110 xxx xxx, ENTRY = ZERO, SR = 

4224 • 

4225 03F4 ZERO ADD JSZ PSHM SR7 ; JSB to push 1 TOS if SR = 7 
4227 03F5 ZERl ADD RH EPSH JSZ NEXT UNC New (S) :■ 0, push; JSB for NEXT 

4229 * 

4230 »»».*«»»..*•««,•»•«*•.«•»»»«»».....«*•».«•««.•«.•«..««««»•««*««»«««*«» 

4231 • DZRO (Push double zero) Instruction * 

4233 * 

4234 tLUT INSTR=0ZRO:0 000 000 111 xxx xxx, ENTRY=DZRO, SR=0 

4235 • 

4236 03F6 DZRO JSZ PSHM SRG5 JSZ PSM2 SR7 JSB to push 2 TOS if SR = 7 else push 1 TOS 

4238 if SR = 6 

4239 03F7 JSB ZERl UNC ADD RG EPSH Jump to finish; New (S) := 0, push 1 once 

4241 • 

4242 «»».«•«».«»»« II •«»««»*«...«..•««««»•«««««». ««*<,«•.««•««»«. •*•»*«•«.««» 

4243 • Zero B (ZROB) Instruction • 

4244 .*.•*««.««.».» »••«««««««««««..*«»»»•«««»««««. ««».«*«««••«*»»«»«*«*»»• 

4245 • 

4246 JLUT INSTR»ZROB:0 000 100 001 xxx xxx, ENTRY=ZROB, SR-2 

4247 • 

4248 03F8 ZROB ADD RB JSZ NEXT UNC (S-1) ;= 0; Jump to NEXT 
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RECORD C.S. ........... ALU A «•••«•••«•• ......««.»».. ALU 8 •••«••»••••**• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

4251 «...«.....»..»...«......».«.*»•..«».»*»...*..«»«..«•.•.•««»«•.•..»»** 

4252 * OR - Loqical OR instruction • 

4253 ......».....<......•«.».....».«»...............«».»..».•..»....•«..•. 

4254 « 

4255 SLUT INSTR«OR:0 000 110 101 xxx xxx, ENTRY'OR , SR«2 

4256 • 

4257 03F9 OR RB RA lOR RB CCA JSL DEL UNC (S-1) :• (S-1) lOR (S), CCA; 

4259 Jump to delete (S) and for NEXT 

4260 ••* 

4261 .**...»»...».................«.......,..............•...»**»».».»..*« 

4262 * XOR - Loqical Exclusive OR instruction * 

4264 * 

4265 SLUT INSTR=XOR:0 000 110 110 xxx xxx, ENTRY-XOR, SR-2 

4267 03FA XOR RB RA XOR RB CCA JSL DEL UNC (S-1) :■ (S-1) XOR (S), CCA; 

4269 Jump to delete (S) and for NEXT 

4270 ................. 

4271 ....«»...»..»«•.».•».*»«.«.».»«..........»»....».......»..«....»...». 

4272 * AND - Logical AND instruction • 

4273 ««....«......i... .....»•».....«.......».«.«««»*«. .»»»».«».«..»»»»**•* 

4274 • 

4275 SLUT INSTR"AND:0 000 110 111 xxx xxx, ENTRY-AND, SR-2 

4276 • 

4277 03FB AND RB RA AND RB CCA JSL DEL UNC (S-1) :• (S-1) AND (S), CCA, 

4279 Jump to delete (S) and for NEXT 

4280 * 

42 81 ««»»«•»..•»*»•«..*•«»««.»»»«*••*«.«*••*.««•.«.«•»•..«•.....«»«•»••»»* 

4282 * NOT - One's Complement instruction « 

4284 • 

4285 SLUT INSTR«NOT:0 000 110 100 xxx xxx, ENTRY-NOT, SR-1 

4286 « 

4287 03FC NOT RA CAD RA CCA JSZ NEXT UNC (S) :- NOT (S); Jump for NEXT 

4289 03FD ADD ADD NOP to keep system happy (2555) 

4291 03FE ADD ADD NOP to keep system happy (2555) 
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RECORD 

NO 

4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4313 
4314 
4315 
4317 
4318 
4320 
4322 
4324 
4326 
4327 
4329 
4330 
4332 
4333 
4335 
4337 
43 3 8 
4340 
4342 
4343 
4345 
4346 
4 -MR 
4349 
43M 
4:'>2 



MOVE BYTES Inst ruction 
........... ALU A .»«.«..,.•. 

LABL RREG SREG FUNC SFNC STOR SPSK 



..•,......«.. ALU B •*••««*•••«••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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0400 

0401 
0402 
0403 
0404 

0405 

0406 

0407 
0408 



0408 
0400 
040D 
040E 



MVBP is tlie entry point for the MVB , (Move Bytes), instruc- 
tion with P relative source addressing MVBD is the entry 
point for DB relative addressing. There are four general 
cases and two special cases in which a move may fall. For 
the general cases, the move may be in the forward direction, 
increasing addresses), or in the reverse direction, (decreas- 
ing addresses) The move may also be aligned, (the source 
and target pointers are both even or both odd), or skewed, 
(the source and target are not both even or odd). The two 
special cases are where the source and target are overlapped 
by one such that the first byte of the source is propogated 
t n roughout , 



$l.UT INSTR=MVB(PB+) 
SLUT INSTR=MVB(DB+) 



%0400 
MVBP 



010 000 000 10,P,SR=3,ENTRY=MV8P 
010 000 000 11 ,DB,SR=3,ENTRY=MVBD 



JSL D03G 



RA 
RA 

UBA 

UBA 

UBA 

RH 



RA 
RA 



RB 
PB 

UBB 

PB 

PB 



CAD 

INC 

ADD LSR 

ADD 

ADD 

UBNE 

UBNE 

JSZ ET03 

CAD 
INC 

SP2B JSBS DBCC 

RA SUB 

RA ADD 

JSB MBSR 



SP4A 
SP4A 

RH 


POS 
SF3A 

ROP 


0001 
UBB 

PL 

PL 


DB 
BNKP 
RB 
SP4A 

UBA 

UBA 


ADD 
ADD 
ANDL 
ASR 

UBNE 

UBNE 




SP3B 

BKX4 
SP2B 




NFSS 




RA 


JSB 
JSB 


MVBl 
D03G 




SP4A 
SP4A 


POS 
SF3A 




DB 
8NKD 


ADD 
JSB 


DBBC 


SP3B 
BKX4 




HBF2 




RH 


ADD 




SP3B 


RH 


F3A 


RB 


RC 


XOR 






RH 


UNC 
UNC 


SP3B 




JSBI 
ADD 


MVBA 


XRO 



UNC 
ZERO 



JSB TO EMPTY TOS TO 3 IF NOT SPLIT BANKS; 
JSB FOR STACK DECREMENT IF BYTE COUNT = 
SP4A:=BYTE COUNT - 1 IF > 0; SP3B:=DB 
SP4A:=BYTE COUNT + 1, SF3A, BKX4-BNKP 
UBA;=WORD PTR ; SP2B : «UBB : =SOURCE PTR(15) 
RH:>UBA;=ABS SOURCE WORD ADDR , READ; 
UBB: 'ADJUSTED WORD COUNT, SF4B FOR PB REL 
UBA: -ENDING SOURCE WORD ADDR; 
BOUNDS CHECK PL >- STARTING WORD ADDR 
BOUNDS CHECK ENDING WORD ADDR >« PB: 
BOUNDS CHECK PL >« ENDING WORD ADDR 
BOUNDS CHECK STARTING WORD ADDR > - PB ; JSB 
JSB TO EMPTY TOS TO 3 IF NOT SPLIT BANKS; 
JSB FOR STACK DECREMENT IF BYTE COUNT = 
SP4A:=<BYTE C0UNT>-1 IF >0; SP3B:=DB 
SP4A:=<BYTE C0UNT>+1, SF3A FOR REVERSE MOVE; 
BKX4: -SOURCE BANK, JSB TO FORM SOURCE ADDR 
F2: -SOURCE PTR(15), CHECK TARGET ADDR; 
SP3B: -STARTING SOURCE WORD ADDRESS 
RH;--(WORD COUNT) IF REVERSE MOVE; 
FSB: -SOURCE AND TARGET ADDRESSES SKEWED 
RH:-(WORD COUNT) IF FORWARD MOVE; ALIGNED 
XR0:=1, JSB IF ALIGNED MOVE 
JSB IF REVERSE SKEWED MOVE, READ SOURCE WORD 
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MOVE 


BYTES Ins 


t ruction 












RECORD 


C.S. 




A* * A 


A A A A A 


'* ALU A ••*••• 


A A AAA 


AAAAAAAAA**** f^H} Q 


*A** 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC STOR 


SPSK 


RREG 


SREG FUNC 


SFNC 


STOR 


4355 




SNOWARN 


















4356 




A « * A 


K « A * ft 


ft ft ft ft ft 






A ft Ik ft * ft 


ft ft ft ft A 


kftAAftftAAA* 


A ft A A 


ft A A A A 


4357 




• 


move 


bytes skewed forwar 


d 










4358 




* A « « 


k * * ft * 


ft ft ft ft ft 




Aftftftftftftftft* 




ft ft ft ft ft 


hAAAAAAftftA 


k A A ft A 


ft ft A A A 


4359 




» 




















4360 


040F 


MBSF 




OPA 


ADD 


LLZ XRO 




RH 


ADD 


LSR 


RH 


4362 
























4363 


0410 






OPA 


ADD 


RLZ SP4A 




RH 


CAD 


LSR 


RH 


4365 
























4366 


0411 






OPA 


ADD 


LRZ 






JSB 


BBFC 


SP2B 


4368 
























4369 


0412 




UBA 


XRO 


lOR 


XRO 


DATA 




INC 




SP2B 


4371 


0413 


BBFC 


RC 


RB 


JSBC 


MBBF 


ZERO 


SP3B 


INC 




SP3B 


4373 
























4374 


0414 


BSFO 






JSB 


BAF4 


TEST 


RH 


XRO JSBS 


BSF2 


RH 


4376 


0415 






OPA 


ADD 


RLZ SP4A 






OPB ADD 


LRZ 




4378 
























4379 


0416 




UBB 


SP4A 


lOR 




DATA 


0002 


SP2B ADDL 




SP2B 


4381 


0417 








JSB 


BSFO 


UNC 


SP3B 


INC 




SP3B 


4383 


0418 


BSF2 




SPIB 


ADD 




ROD 


RA 


SP2B JSBS 


BAF4 


RA 


4385 
























4386 


0419 


BSF3 






JSB 


BAF3 


UNC 


RA 


SP2B CAD 




RA 


4388 
























4389 




• * * A 


A A* A 


A A A A A 


HA * A A 




A A AAA* 


A A ft A A 




4390 






move 


bytes blanking buff 


tr forward 








4391 




A A A A 


t A A A A 


A A AAA 


k * A A A 


ftftftftlikftftftftAftftftikik 


AAftA«AAA««***Alli 




4392 
























4393 


041A 


MBBF 




SP4A 


ADD 


SWAB 


NF2 


RH 


ADD 




CTR 


4395 
























4396 


041B 




UBA 


SP4A 


lOR 


XRO 






ADD 






4398 
























4399 


041C 


BBFO 






JSB 


BAF4 


TEST 




SP2B REPC 






4401 
























4402 
4404 
4405 
4407 
4408 


041D 






XRO 


ADD 




DATA 


UBB 


XRO INC 




SP2B 


041E 






SP2B 


ADD 


LSR 




RA 


SP2B JSBS 


6AF4 


RA 


041F 




RH 


UBA 


SUB 


RRZ 


NZRO 


RA 


ADD 




RA 


4410 
























4411 


0420 






SPIB 


JSB 


BBFl 


ROD 




UBA ADD 




CTR 


4413 
























4414 


0421 








JSB 


BBFO 


UNC 




ADD 






4416 


0422 


BBFl 




XRO 


ADD 


LLZ SP4A 






JSB 


BAF3 


RA 



I* A** A A* ft ft 

SPEC SKIP 



F2 

UNC 

UNC 



ZERO 



NF4B 

RSB 

DCTR CTRO 

DCTR CTRO 

ZERO 
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XRO; -LEFT TARGET BYTE; 

RH:«WORD COUNT. SKIP IF ODD SOURCE PTR 
SP4A. (0:8): -RIGHT SOURCE BYTE; 
RH:-WORD COUNT IF EVEN SOURCE PTR 
UBA. (8:8): -LEFT SOURCE BYTE; 
SP2B:-0 AND JSB IF ODD SOURCE PTR 
XRO:-FIRST WORD. WRITE; SP2B:-1 
JSB IF SOURCE AND TARGET PTRS OVERLAP BY ONE 
SP3B:-SP3B+1, READ SOURCE WORD 
JSB IF INTERRUPT: JSB IF (WORD COUNT - 1)<0 
SP4A.(0:8):-RIGHt SOURCE BYTE; 
UBB. (8: 81: -LEFT SOURCE BYTE 
WRITE TARGET WORD; SP2B : «SP2B+2 
JSB BACK; SP3B: -SP3B+1 . READ SOURCE WORD 
READ LASt TARGET BYTE- 
IS) :-(S) - tBYTES MOVtD. JSB IF 
JSB UNC; (S):-(S) + tBYtES MOVED + 1 



UBA 
CTR 
XRO 



SKIP IF EVEN SOURCE 



-RIGHT SOURCE BYTE, 

-(WORD COUNT). (8:8 

•RIGHT SOURCE BYTE IN BOTH BYTES, JSB; 
RSB IF SOURCE WAS PB RELATIVE 
JSB IF INTERRUPT: 

UBB:-SP2B, REPC IF WORD COUNT > 
WRITE DUPLICATED SOURCE BYTE; 
SP2B:-UBB:-SP2B+2. CTR:.CTR-1, CTR-0? 
UBA -NUMBER OF WOI^DS MOVED: 

tBYTES MOVED, J^B IF 
iMAINING WORD COUNT ) . ( 8 : 8 ) , 
TBUSA <> 0; RESTORE RA 
JSB & READ LAST TARGET WORD IF WORD COUNT-0; 
CTR: -(WORD COUNT ) . ( 8 : 8 ) , SKIP IF <> 
JSB BACK: CTR:-XFF IF (WORD COUNT) . ( 8 : 8 ) -0 
SP4A. (0:8) : -SOURCE BYTE; RA:-0, JSB 



UDn : "nunc 

UBA;-[RE^ 
SKIP IF 1 
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RECORD 

NO 

4419 
4420 
4421 
4422 
4423 
4425 
4426 
4428 
4429 
4431 
4432 
4434 
4436 
4437 
4439 
4441 
4442 
4444 
4446 
4448 
4449 
4451 
4452 
4453 
4454 
4455 
4456 
4458 
4459 
4461 
4462 
4464 
4465 
4467 
4468 
4470 
4471 
4473 
4474 
4476 
4477 
4479 
4481 
4483 
4484 
4486 



C.S. 
ADDR 



0423 

0424 

0425 

0426 
0427 

0428 
0429 

042A 
042B 
042C 



042E 

042F 

0430 

0431 

0432 

0433 

0434 

0435 
0436 
0437 



MOVE 
RREQ 



BYTES Instructlc 

••••«• ALU A ••' 
SREQ FUNC SFNC S 



RREQ SREG FUNC SFNC STOR 



10/ 2/86 9:26 AM 



SPEC SKIP COMMENT 



move bytes skewed reverse 



BGRC 
BSRO 



UBA 
RB 



BSR2 
BSR3 



! byte 

OPA 

OPA 

OPA 

XRO 
RC 

OPA 

SP4A 

SPIB 



ktt1fkk1t*m 



ADD RRZ 

ADD LRZ 

ADD RLZ 

lOR 

JSBC MBBR 

JSB BAR4 

ADD LRZ 

lOR 

JSB BSRO 

ADD 



XRO 
SP4A 



DATO 
ZERO 



DATD 

UNC 

ROD 



RH 
RH 



SP3B 
RH 



ADD LSR RH 
CAD LSR RH 
JSB BBRC SP2B 



NF2 
UNC 
UNC 



INC 
CAD 



SP2B 
SP38 



XRO JSBS BSR2 RH 
OPB ADD RLZ 



0002 SP2B ADDL SP2B 
SP3B CAD SP3B 
RA SP2B JSB BAR4 RA 

RA SP2B INC RA 



llftlkAftAftAAf 



blanking 



buffe 



llAAftftAftA*ftAll 



SP4A ADD SWAB 
SP4A lOR 

JSB BAR4 
XRO ADD 
SP2B ADD 
UBA SUB 
SPIB JSB 



DATD UBB XRO INC 



DCTR CTRO 
SP2B DCTR CTRO 



LSR 
RRZ 
BBRl 



SP2B JSB BAR4 RA 



BEtRl 
MV'BA RH 



XRO 
OPA 



JSB 
ADD 
ADD 



BBRO 

RRZ 

LSR 



UNC 
SP4A 
SP4A NF3A 



ADD 
JSB 
ADD 



BARS RA 



XRO: -LEFT TARGET BYTE; 

RH:.WORD COUNT, SKIP IF EVEN SOURCE PTR 

SP4A. (0:8) : -RIGHT SOURCE BYTE; 

RH:«WORD COUNT IF ODD SOURCE PTR 

UBA. (8:81: -LEFT SOURCE BYTE- 

SP2B:.0 AND JSB IF EVEN SOURCE PTR 

XRO: -FIRST WORD, WRITE; SP2B:-1 

JSB IF SOURCE AND TARGET PTRS OVERLAP BY ONE 

SP3B:«SP3B-1, READ SOURCE WORD 

JSB IF INTERliUPT; JSB IF (WORD COUNT - 1)<0 

SP4A. (0:8) : -RIGHT SOURCE BYTE; 

UBB (8:81: -LEFT SOURCE BYTE 

WRITE TARGEV WORD: SP2B:-SP2B+2 

JSB BACK: SP3B : -SP3B-1 , READ SOURCE WORD 

READ LAST TARGET BYTE; 

(S):-(S) + «BYTES MOVED, JSB IF 

JSB; RA:-RA + «BYTES MOVED + 1 



UBA: -LEFT SOURCE BYTE, SKIP IF ODD SOURCE; 

CTR:-(WORD COUNT) . (8:81 

XRO: -LEFT SOURCE BYTE IN BOTH BYTES; 

JSB IF SOURCE WAS PB RELATIVE > 

JSB IF INTERRUPT; 

UBB:-SP2B, REPC IF WORD COUNT > 

WRITE DUPLICATED SOURCE BYTE; 

SP2B:-UBB:»SP2B+2. CTR:-STR-1, CTR-0? 

UBA: -NUMBER OF WOliDS MOVED; 

(S1:«(S1 - tBYTES MOVED, JSB IF 

UBA: -(REMAINING WORD COUNT! . (8 : 8) , 

SKIP IF TBUSA <> 0; RESTORE RA 

JSB & READ LAST TARGET WORD IF WORD COUNT-0; 

CTR;-(WORD COUNTJ . ( 8 : 8) , SKIP IF <> 

JSB BACK; CTR : -XFF IF (WORD COUNT ) . ( 8 : 8 ) -0 

SP4A.(8:ij:-SOURCE BYTE; RA:=0, JSB 

SP4A:-W0RD COUNT, SKIP IF NOT REVERSE MOVE 

READ SOURCE WORD INTO OPA AND OPB 

UBA: -TARGET WORD; SP2B:-0 
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RECORD 

NO 

4488 
4489 
4490 
4491 
4492 
4494 
4495 
4497 
4499 
4501 
4503 
4505 
4507 
4508 
4510 
4511 
4513 
4514 
4516 
4517 
4519 
4520 
4522 
4524 
4525 
4526 
4527 
4528 
4529 
4531 
4532 
4534 
4-,3R 
4538 
454C 
454^? 
434-1 
4545 
4547 
4548 
4550 
4551 
4553 
4554 



C.S 
ADDR 



0440 

0441 

0442 

0443 

0444 
0445 



044D 

044E 

044F 

0450 

0451 
0452 



MOVE BYTES Instruction 
........... ALU A ••»««**.... 

LABL RREG SREG FUNC SFNC STOR SPSK 



............. ALU B ••••••••**••«• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



move bytes aligned forward 



0439 MBAF 



043A 
043B 
043C 
043D 
043E 
043F 



BAFl 
BAF2 



UBA 


ADD 


LLZ 


OPA 


ADD 


RRZ 


SP4A 


I OR 






JSB 


BAF4 


OPA 


ADD 






JSB 


BAFO 


SPIB 


ADD 





SP4A JSB BAFO RH 



NF2 



DATA 

TEST 

DATA 

UNC 

ROD 



OPA ADD LLZ SP4A 

OPA ADD RRZ 

SP4A JSB D03Q DATA 
RA ADD NZRO 



RH 



CAD LSR RH 

JSBI BAFl SP2B 

RH XRO JSBS BAF2 RH 

0002 SP2B ADDL SP2B 

SP3B INC SP3B RAB4 

RA SP2B JSBS BAF4 RA ZERO 



UNC 
NEG 



JSB D03Q 
JSZ IRDN 



UNC 
UNC 



RA 

RB 

RC 

RB 

RC 
RA 



SP2B CAD 

SP2B INC 

SP2B INC 

SP2B ADD 

SP2B ADD 
SP2B SUB 



RA 

RB 

RC 

RB 

RC 
RA 



move bytes aligned reverse 



0446 MBAR 



0447 
0448 
0449 
044A 
0448 
C44C 



BAR! 

BAR2 



UBA 


ADD 


RRZ 


SP4A 






SP4A 


JSB 


BARO 


RH 




F2 


OPA 
SP4A 

OPA 

SPIB 


ADD 
I OR 
JSB 
ADD 
JSB 
ADD 


LLZ 

BAR4 

BARO 




DATD 

TEST 

DATD 

UNC 

ROD 


RH 

RH 

0002 
SP3B 
RA 


XRO 
SP2B 

SP2B 


CAD 

JSBI 

JSBS 

ADDL 

CAD 

JSB 


LSR 

BARl 

BAR2 

BAR4 


RH 

SP2B 

RH 

SP2B 

SP3B 

RA 


RAB4 


UNC 
NEG 

ZER( 


OPA 


ADD 


RRZ 


SP4A 




RA 


SP2B 


INC 




RA 






OPA 


ADD 


LLZ 






RB 


SP2B 


CAD 




RB 






SP4A 


JSB 


D03Q 




DATD 


RC 


SP2B 


CAD 




RC 






RA 


ADD 






NZRO 


RB 


SP2B 


SUB 




RB 








JSB 
JSZ 


D03G 
IRDN 




UNC 
UNC 


RC 
RA 


SP2B 
SP2B 


SUB 
ADD 




RC 
RA 


CF4B 
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SPAA-LEFT TARGET BYTE; 

JSB IF SOURCE PTR EVEN, RH:»WORD COUNT 

UBA: "RIGHT SOURCE BYTE; RH:-WORD COUNT - 1 

WRITE FIRST WORD; SP2B:-1, JSB TO READ 

JSB IF INTERRUPT; JSB IF (WORD COUNT - 1)<0 

WRITE TARGET WORD; SP2B:-SP2B+2 

JSB BACK^ SP3B;-SP3B+1, READ SOURCE WORD 

READ LASt TARGET BYTE; 

(S):-(S) - tBYTES MOVED, JSB IF 

SP4A:.LEFT SOURCE BYTE; 

RA:«RA - tBYTES MOVED - 1 

UBA: -RIGHT TARGET BYTE; 

RA-RB + tBYTES MOVED + 1 

WRITE LAST WORD, JSB FOR STACK DECREMENT; 

RC:-RC + tBYTES MOVED + 1 

SKIP IF NOT FINISHED; 

•BYTES MOVED 

JSB FOR INTERRUPT 



(S-1);.(S-11 + 
JSB TO FINISH; 



2) :-(S-2) + #BYTES MOVED 



(S):-(S) - iBYTES MOVED, CF4B 



SP4A:»RIQHT TARGET BYTE, 

JSB IF SOURCE PTR ODD, RH:-WORD COUNT 

UBA-LEFT SOURCE BYTE; RH:-WORD COUNT - 1 

WRITE FIRST TARGET WORD; SP2B:»1, JSB 

JSB IF INTERRUPT; JSB IF (WORD COUNT - 1)<0 

WRITE TARGET WORD; SP2B:-SP2B+2 

JSB BACK; SP3B:-SP3B-1, READ SOURCE WORD 

READ LAST TARGET WORD; 

(S):=(S) + »BYTES MOVED, JSB IF 

SP4A: -RIGHT SOURCE BYTE; 

RA:-RA + «BYTES MOVED + 1 

UBA: -LEFT TARGET BYTE 

RB:-RB - tBYTES MOVED - 1 

WRITE LAST WORD, JSB FOR STACK DECREMENT, 

RC:-RC - iBYTES MOVED - 1 

SKIP IF NOT FINISHED; 

(S-1):-(S-1) - tBYTES MOVED 

JSB TO FINISH; (S-2):-(S-2) - tBYTES MOVED 

JSB FOR INTERRUPT; 

(S):«(S) + tBYTES MOVED. CF4B 



NO 

4563 
4564 
4565 
4566 
4568 
4569 
4571 
4573 
4574 
4576 
4577 
4579 
4580 
4582 
4583 
4585 
4586 
4588 
4589 
4591 
4593 
4594 
4596 
4598 
4599 
4601 
4602 
4604 
4605 
4607 
4608 
4610 
4611 
4613 
4615 
4617 
4619 
4621 
4623 
4625 
4627 
4629 
4631 
4633 
4635 
4637 
4639 
4641 
4642 
4644 
4646 
4648 
4650 
4652 
4654 
4656 



COMPARE BVTES INSTRUCTION 
C S. ........... ALU A <»••«•«•<■«• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



............. ftLU B ««««»«..««.«'.• 

RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 
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SLUT 
$I.UT 



0453 CMBP 



0454 
0455 



0456 
0457 



045B 
045C 



045D 
045E 



0462 

0463 
0464 
0465 
0466 
0467 
0468 
0469 
046A 
046B 
0460 
046D 
046E 
046F 
0470 
0471 

0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 



1NSTR=CMPB(PB+) :0 010 000 010 
INSTR=CMPB(DB+) :0 010 000 010 



10,P.SR=3 ,E 
11 ,DB,SR = 3. 



NTRY-CMBP 
ENTRY=CMBD 



USA 
UBB 
UBB 



RA 
RA 



JSZ ET03 

CAD 
INC 

ADD 

ADD 

ADD 



RH 

RB 

PB 

SP4A UBNE 

PB UBNE 



SP4A POS 
SP4A SF3A 

SPOA ROBD 

SP4A 

RH ROP 



0460 CMBl 



CUSF 
ClJFl 



SPOA 
RH 



CUAF 
CAFl 



RH 
RA 



OPA 
OPA 



OPA 
OPA 
OPA 



RH 
SPOA 



CI3SR 
CISRl 



C:3R2 

CI3AR 



SPOA 
RH 



OPA 
OPA 



UBA 
OPA 



JSB 
JSZ 

CAD 
INC 

ADD 

ADD 

JSB 

ADD 

JSB 
ADD 
INC 
JSB 
ADD 
INC 
JSB 
ADD 
ADD 
ADD 
JSB 
INC 
INC 
JSB 
ADD 

JSB 
ADD 
CAD 
JSB 
ADD 
CAD 
JSB 
ADD 



CMBl 
ET03 



CSF2 
LRZ 

CMBl 
RRZ 

CSFl 

RRZ 

LRZ 

RRZ 

CMBl 



UNC 
NFSS 

SP4A POS 
SP4A SF3A 

SPOA ROBD 

XRO NF3A 

UNC 

NF2 

UNC 

SPOA ROBD 
TEST 



CMBl 
LRZ 



R0X4 
UNC 



RH 

SP4A 

SP4A 

TEST 
RH R0X4 
SPOA ROBD 
UNC 
F2 



CSR2 
RRZ 



UNC 



CSRl 
LRZ 



SPOA ROBD 
TEST 



R0X4 
UNC 



JSB CMBO 



DB 
BNKP 

0001 RB 

UBB SP4A 

PL PB 

UBA SPIB 

PL UBB 



ADD SP3B 
JSB DBCC BKX4 



UBB 
RA 



UBB 
RA 



UBB 

RA 



UBB 
RA 



UBB 
RA 



RA 



DB 
BNKD 



ANDL 

ASR 

SUB 

ADD 

UBNE 

INC 
JSB 

ADD 
JSB 



JSBI DBBC XRO 



RB 
SP2B 



OPB 
UBB UBA 
RA XRO 
OPB 
UBA 
XRO 

OPB 

UBA 

XRO 

OPB 

SP4A 

XRO 



OPB 
UBA 
XRO 
OPB 
UBA 
XRO 



ADD 

ADD 

JSBS 

JSBS 

ADD 

JSBS 

JSBS 

JSB 

ADD 

JSBS 

JSBS 

ADD 

JSBS 

JSBS 

JSB 

ADD 

ADD 

JSBS 

JSB 

ADD 

JSBS 

JSB 

JSB 



ZERO 
UNC 



SP2B 
SPIB 



SP3B 
DBCC BKX4 



RRZ 

CMBN SPIB 

CMBE RA 

LRZ 

CMBN SPIB 

CMBE RA 

CAF2 

LRZ 

CMBN SPIB 

CMBE RA 

RRZ 

CMBN SPIB 

CMBE RA 

CBAR 



LRZ 

CMBN SPIB 

CMBE RA 

RRZ 

CMBN SPIB 

CMBE RA 

CAR2 



UNC 
UNC 



FSB 
UNC 



NZRO 
ZERO 

NZRO 
ZERO 
F2 

NZRO 
ZERO 

NZRO 
ZERO 
UNC 



NZRO 
ZERO 

NZRO 
ZERO 
NFS 



JSB TO EMPTY TOS TO 3 IF NOT SPLIT BANKS; 

JSB IF BYTE COUNT = 

SP4A:'=BYTE COUNT - 1 IF >0; SP3B:=DB 

SP4A:=BYTE COUNT + 1, SF3A: 

BKX4:-BNKP, JSB TO FORM TARGET ADDR 

SP0A:=TARGET WORD ADDR, READ, 

UBB :-SP2B: "SOURCE POINTER (15) 

SP4A: -UBA: ^SOURCE WORD POINTER; 

UBB: -SPIB: -ADJUSTED WORD COUNT 

RH: -UBA: -ABSOLUTE SOURCE ADDR, READ; 

UBB:-3L - PB 

BOUNDS CHECK WORD POINTER >= (PL - PB ) ; 

UBB: -ENDING WORD ADDR 

BOUNDS CHECK ENDING ADDR > - PB ; 

BOUNDS CHECK PL >• ENDING WORD ADDR 

JSB; XRO-l 

JSB TO EMPTY TOS TO 3 IF NOT SPLIT BANKS; 

JSB IF BYTE COUNT - 

SP4A 

SP4A 

BKX4 

SPOA 

XRO 



<eYTE C0UNT>-1 IF >0; SP3B:-DB 
■<8YTE C0UNT)+1, SF3A; 
•SOURCE BANK, JSB TO FORM TARGET ADDR 
»ABS TARGET WORD ADDR, READ INTO OPB 
1 , JSB TO CHECK SOURCE ADDR 
SAVE BYTE COUNT IN XRO; 
F5: -SOURCE AND TARGET POINTERS SKEWED 
JSB IF REVERSE COMPARISON; 
F2: -SOURCE PTR(15), SKIP IF NOT ALIGNED 
SKIP IF EVEN SOURCE PTR AND JSB NOT TAKEN 
JSB IF ALIGNED COMPARISON 
JSB IF ODD SOURCE PTR; 
UBA: -SOURCE BYTE; UBB: -TARGET BYTE 
READ NEXT TARGET WORD; COMPARE 4 SAVE SPIB 
INTERRUPT?. DEC <BYTE COUNT > , JSB IF 
UBA: -SOURCE BYTE; UBB: -TARGET BYTE 
READ NEXT SOURCE WORD; COMPARE & SAVE SPIB 
LOOP BACK; DEC <BYTE COUNT), JSB IF 
SP4A: -SOURCE BYTE; JSB IF ODD SOURCE PTR 
UBA: -SOURCE BYTE; UBB: -TARGET BYTE 
SP4A; -SOURCE BYTE: COMPARE & SAVE IN SPIB 
INTERRUPT?; DEC <BYTE COUNT > , JSB IF 
READ NEXT SOURCE WORD; UBB -TARGET BYTE 
READ NEXT TARGET WORD; COMPARE A SAVE SPIB 
LOOP BACK; DEC <BYTE COUNT), JSB IF 
SKIP IF ODD SOURCE PTR AND JSB NOT TAKEN 
JSB IF ALIGNED COMPARISON 
JSB IF EVEN SOURCE PTR; 
UBA: -SOURCE BYTE; UBB -TARGET BYTE 
READ NEXT SOURCE WORD; COMPARE & SAVE SPIB 
INTERRUPT?, INC <BYTE COUNT), JSB IF 
UBA: -SOURCE BYTE; UBB: -TARGET BYTE 
READ NEXT TARGET WORD; COMPARE & SAVE SPIB 
LOOP BACK; INC <BYTE COUNT), JSB IF 
SP4A: -SOURCE BYTE; JSB IF EVEN SOURCE PTR 
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RECORD 

NO 

4658 
4660 
4662 
4664 
4666 
4668 
4670 
4672 
4674 
4675 
4677 
4678 
4680 
4682 
4683 
4685 
4687 
4689 
4690 



CC»«IPARE BYTES INSTRUCTION 
C.S. .«.».....«. ALU A ••••««••••• 

ADDR LABL RREQ SREG FUNC SFNC STOR SPSK 

047A CARl OPA ADD RRZ 
047B OPA ADD LRZ SP4A 

047C JSB CMBI TEST 

047D CAR2 RH CAD RH R0X4 
047E SPOA CAD SPOA ROBD 
047F JSB CARl UNC 

0480 CMBE RB XRO ADD RB 

0481 RC XRO ADD RC 

0482 CMBN RA XRO SUB 



0483 
0484 

0485 
0486 
0487 



• ••«*••«•••(• ALU B '****<>**K***** 
RREG SREG FUNC SFNC STOR SPEC SKIP 



NZRO 
ZERO 



RB 
RC 

CMBI RA 
RB 
RC 



UBA SUB 
SREQ SUB 

XRO SUB 
UBA SUB 
SREQ SUB 



RB 
RC 



RB 
RC 





OPB 


ADD 


RRZ 




UBB 


UBA 


JSBS 


CMBN 


SPIB 


RA 


XRO 


JSB 


CMBE 


RA 




OPB 


ADD 


LRZ 




UBB 


SP4A 


JSBS 


CMBN 


SPIB 


RA 


XRO 
SPIB 


JSB 
ADD 
JSB 

ADD 

ADD 
JSB 

ADD 
ADD 

JSL 


CMBE 
D03S 

DOSS 
IRDN 


RA 



NZRO 
ZERO 



0488 CMBO 



UNC 
UNC 
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COMMENT 

UBA: -SOURCE BYTE; UBB: -TARGET BYTE 

SP4A: -SOURCE BYTE; COMPARE & SAVE IN SPIB 

INTERRUPT?, INC <BYTE COUNT), JSB IF 

READ NEXT SOURCE WORD; UBB: -TARGET BYTE 

READ NEXT TARGET WORD; COMPARE & SAVE SPIB 

LOOP BACK: INC <BYTE COUNT > , JSB IF 

SOURCE PTR: -SOURCE PTR + BYTE COUNT; SET CCE 

TARGET PTR: -TARGET PTR + BYTE COUNT ; TR 

JSB TO STACK DECREMENT 

UBA: -MINUS NUMBER OF BYTES COMPARED 

SET CONDITION CODES ON SPIB 

SOURCE PTR: -SOURCE PTR +/- «BYTES COMPARED 

TARGET PTR: -TARGET PTR +/- »BYTES COMPARED 

JSB FOR STACK DECREMENT 

UBA: -NUMBER OF BYTES COMPARED 

SOURCE PTR:.SOURCE PTR +/- «BYTES COMPARED 

TARGET PTR: -TARGET PTR +/- »BYTES COMPARED 

JSB TO INTERRUPT 

CCA ON 0; JSB STACK DECREMENT 
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RECORD 


c.s. 


NO 


ADDR 


4693 




4694 




4695 




4696 




4697 




4698 




4699 




4700 




4701 




4702 




4703 




4704 


0489 


4706 




4707 


048A 


4709 




4710 




47U 


048B 


4713 




4714 


048C 


4716 




4717 


048D 


4719 




4720 


048E 


4722 


048F 


4724 




4725 




4726 


0490 


4728 




4729 




4730 


0491 


4732 


0492 


4734 




4735 




4736 




4737 




4738 




4739 




4740 




4741 




4742 




4743 




4744 




4745 


0493 


4747 




4748 


0494 


4750 




4751 




4752 


0495 


4754 




4755 


0496 


4757 




4758 


0497 


4760 




4761 


0438 


4763 


0499 


4765 





BOUNDS CHECKING ROUTINES for MVB and CMPB 

.•«.*.«*.•• ALU A «•••••.*«*« «**«..«**«•*« ALU B •••*••••*••*•" 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNG SFNC STOR SPEC SKIP 

* DBBC checks the DB relative starting byte address and the * 

* ending address for the source pointer in byte moves. The * 
« absolute starting word address is returned in RH. Bit 15 * 

* of the source byte pointer is returned in SP2B. Upon entry, * 

* SP4A should contain the byte count minus 1 if positive and • 

* plus one if negative. Addresses are checked against SM, and • 

* if SM is exceeded, routine GSMC is entered for further • 

* checking. Entered with SP3B = DB * 
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RB 
SM 



ADD LSR 
ADD 



RH 



UBA DB SUB 

RH UBA CAD 

RB ADD 



NFSS SP3B DL SUB 

CFl Z DB SUB 

NFl 0001 RB ANDL 

CTFl UBB SP4A ASR 

FIHB UBB DB ADD 



CFl NCRV 
CTFl 



UBA DB 
UBB SM 



ADD RH 
JSBC GSMC 



R0X4 
CRRY 



UBA UBB ADD 
UBB DL BNDE 



RH SM JSBC GSMC 



ADD 
ADD 



CRRY RH DL BNDE 



ADD 
ADD 



TICEI 
RSB 



DBCC 

endi 

abso 

endi 

the 

byte 

Addr 

rout 



S? 



hecks the DB relative starting byte address and the 
address for the target pointer in byte moves. The 

te starting word address is returned in RH, and the 
address in SPIB. A read is initiated into OPA for 

arting address. Upon entry, SP4A should contain the 

ount minus 1 if positive and plus one it negative. 

ses are checked against SM, and if SM is exceeded, 

e GSMC is entered for futher checking. 



RC 
SM 



ADD LSR RH 
ADD 



NFSS SP3B DL SUB 
CFl Z DB SUB 



CFl NCRV 
CTFl 



UBA DB SUB 

RH UBA CAD 

RC ADD 



UBA DB 
UBB SM 



ADD RH 
JSBC GSMC 



NFl 

CTFl 

FIHB 

ROD 
CRRY 



0001 RC ANDL 

UBB SP4A ASR 

UBB DB ADD 

UBA UBB ADD 

UBB DL BNDE 



RH: -SOURCE WORD PTR , SKIP IF NOT SPLIT BNKS; 
SKIP IF NOT (DB >« DL) , CFl 
UBA:«SM, OVERRIDE CLEAR Fl IF SPLIT BANKS; 
SET Fl IF NOT SPLIT STACK (SPLIT STACK IF 

FSS OR (Z < DB) OR (DB < DL)) 
UBA:-SM - DB, SKIP IF SPLIT STACK; 
SP2B:«UBB: -SOURCE PTR (15) 
Fl: -(SOURCE PTR > ( SM - DB ) ) ; 
UBB: -ADJUSTED WORD COUNT 
UBA: -WORD PTR + 32K IF NOT SPLIT STACK; 
UBB: -WORD COUNT + DB 

RH:=ABS START ADDR; SP1B:-ABS ENDING ADDR 
JSB IF ENDING ADDR > SM; 
BOUNDS CHECK ENDING ADDR >= DL, 

PSHR AFTER RSB AND BEFORE POSSIBLE JSB 
JSB IF STARTING ADDR > SM; 

BOUNDS CHECK STARTING ADDR >« DL (1002) 
MOVED RSB DOWN TO AVOID S KILL XXXX (1002) 
(1002) 
(1002) 



RH: -TARGET WORD PTR, SKIP IF NOT SPLIT BNKS; 
SKIP IF NOT (DB >- DL) , CFl 
UBA:=SM, OVERRIDE CLEAR Fl IF SPLIT BANKS; 
SET Fl IF NOT SPLIT STACK (SPLIT STACK IF 

FSS OR (Z < DB) OR (DB < DL) ) 
UBA:-SM - DB, SKIP IF SPLIT STACK; 
UBB: -TARGET PTR (15) 
Fl "(TARGET PTR > (SM - DB)); 
UBB: -ADJUSTED WORD COUNT 
UBA: -WORD PTR + 32K IF NOT SPLIT STACK; 
UBB: -WORD COUNT + DB 

RH:=ABS STARTING ADDR; SP1B:=ABS ENDING ADDR 
JSB IF ENDING ADDR > SM , 
BOUNDS CHECK ENDING ADDR >= DL 
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RECORD 


C S. 


NO 


ADDR 


4766 




4767 


049A 


4769 




4770 




4771 


049B 


4773 




4774 


049C 


4776 




4777 




4778 




4779 




4780 




4781 




4782 




4783 




4784 




4785 




4786 


049D 


4788 




4789 


049E 


4791 




4792 


049F 


4794 




4795 




4796 


04A0 


4798 





BOUNDS CHECKING ROUTINES for MVB and CMPB 

........... ALU A ..»••««.... ............. ALU B .«*•*••*««**•• 

LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



SM JSBC GSMC 

ADD 
ADD 



ADO 
ADD 



POPR TICB 
RSB 



This routine jumps to BNDV if not priviledged or if not split 
stack and the starting and ending addresses "span" (SM + 1) 
In other words, the move would go through its parameters. 
The problem with this occurs in the event an interrupt is 
seviced immediately after moving the bytes at SM After 
returning from the interrupt, then effective byte address 
would be mapped into the DL to DB area 





JSB FSSR 


FSS 


Z 


RH SUB 


STA 


JSZ BNDV 


POS 


Z 


SPIB SUB 


DL 


BNDE 






JSZ 



POPR CRRY 
NCRY 
UNC 
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COMMENT 

PSHR AFTER RSB AND BEFORE POSSIBLE JSB 
JSB IF STARTING ADDR > SM, 
BOUNDS CHECK STARTING ADDR >• DL 

PUT RSB BACK (ORIGINALLY 2511) (1002) 

RESTORE WHERE TO RETURN (1002) 

TICB SLOWS RSB TO RANK2 SO POPR TAKES (1002) 

AND RETURN WITH OUT S TRASH (1002) 



JSB IF SPLIT BANKS; 
POPR, SKIP IF Z >» STARTING ADDR 
JSB FOR BNDV IF NOT PRIVILEDGED; 
SKIP IF NOT (Z >' ENDING ADDR) 
BOUNDS CHECK STARTING ADDR >= DL, 
JSB FOR BNDV IF NOT ((STARTING ADDR > 

AND (ENDING ADDR > Z)); DROPPED RSB 
RSB IF SPLIT BANKS TO LINE AFTER CALL 

TO DBHC OR DBCC 



Z) 
(2527) 
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Move 


Bytes Whi] 


le Inst rue t ion 


















RECORD 


C S 




A A A A 1 


• Ai A A 


•• ALU A • 




A A A A 1 


k A A A A 1 


A A A * 


ALU B 


AAAA 


AAAAA) 


tAAAA 




NO 


AODR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


COMMENT 


4800 




• •*•. 




tAAAA 


AAAAA* 


,A**A 


AAAAAAAAAAA 


AAAAA. 


I.AAAA, 


• AAAA 


AAAAA, 


tAAAA 




■ AAA 




4801 






A new t ra 


p («MWOL) 


is implemen 


ted in this ins 


t ruct: 


ion . 


The 






4802 






t rap 


occurs if 


the 


source byte 


poini 


t e r eve r e 


quals 


the 








4803 






star' 


t ing 


value 


of the target pi 


ointer, except 


whe re 


the 


two 






4804 






are ' 


Ihe same tc 


1 beg 


in wit h I 


n the 


even' 


I ot 


this ' 


t rap , 


the 






4805 






last 


word 


point 


:ed a 


t by the va 


lue in S-1 


is not moved 








4806 




* * * * 1 


« A * m * ) 


K A * A A 


A A A A A # 


1 * * * A 


AAAAAAAAAAA 


A A A A A 1 


* A * A A 1 


AAAAA 


A A A * A ) 




* A A A A « 


k A A A 




4807 
































4808 




JLUT 


INSTR.MVBW:0 010 000 010 Oxx xxx, DB , SR^ 


■2, ENTRY=MVBW 








4809 




* 




























4810 


04A1 


MVBW 




DB 


ADD 




NFSS 


z 


DB 


SUB 








NCRY 


UBA :• DB 


4812 






























Skip it 


4813 


04A2 




SR 


SM 


ADD 




CFl 


UBA 


DL 


SUB 






CTFl 




UBA :• S, 


4815 






























set Fl : 


4816 


04A3 




UBA 


DB 


SUB 




RH NFl 




RA 


ADD 


l'.;r 








RH ;. UBA 


4818 






























; UBB := 1 


4819 


04A4 




UBB 


UBA 


SUB 




CTFl 




RB 


ADD 


LSR 






NFl 


If not sp: 


4821 






























UBB : " 


4822 


04A5 






RA 


ADD 


LSR 


FIHB 


UBB 


RH 


SUB 






CTFl 




UBA -.' SOI 


4824 






























If not ! 


4825 


04A6 






RB 


ADD 


LSR 


SPOA FIHB 


UBA 


DB 


ADD 




SPIB 


ROD 




SPOA :■ ti 


4827 






























SPIB := 


4828 


04A7 








JSZ 


ET02 


NFSS 


UBB 


DL 


BNDE 










Empty TOS 
Bounds 1 


4830 






























4831 


04A8 




SPOA 


DB 


ADD 




SP4A ROD 


RA 


RB 


XOR 






LBF5 




SP4A := al 


4833 






























Set F5 


4834 


04A9 




0004 


CIR 


ANDL 






UBA 


DL 


BNDE 










UBA := upi 


4836 






























Bounds 1 


4837 


04AA 






OPA 


ADD 


LRZ 


RH 


UBA 




CAD 






CTFl 


FSB 


RH -.' let 


4839 






























Fl :• ui 


4840 


04AB 






SM 


INC 




SPOA 






JSB 


MBWA 






UNC 


SPOA :■= SI 
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, skip if not split banks 

DB > Z 

cir Fl if split 
in ALUB) ; Set Fl 

;=■ S - 1 - DB, 
source word poin 
lit stack Fl 
t arget wrd pt r , 



urce word ptr + 
split stack Fl 



arget word pt r + 

absolute source 

to 2 if not spl 
check source add 
bsolute target a 
if move is skewe 
shift bit ; 

check target address >> DL 
t target byte, 

shift bit . skip 



banks , (ove r rides 

if not split stack 
skip if split stack 
ter 

swptr > S - 2: 
skip if split stack 
32K in necessary; 
- twpt r > S - 2 

32K if necessary; 

address , read 
it banks ; 
ress >= DL 
ddress , read ; 
d 



if skewed move 
+ 1; Jump if aligned move 
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RECORD 

NO 

4843 
4844 
4845 
4846 
4847 
4849 
4850 
4852 
4853 
4855 
4856 
4858 
4859 
4861 
4862 
4864 
4865 
4867 
4868 
4870 
4871 
4873 
4874 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4884 
4885 
4887 
4888 
4890 
4891 
4893 
4894 
4896 
4897 
4BS9 
4900 
4902 
4903 
4905 
4906 
4908 
4909 
4911 



Move Bytes While Instruction 

C.S. ....*.....* ALU A ••*•••••«•« .».....*..... ALU B ••••*••*•••*•• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• skewed case * 



04AC MBWS RA JSB MWSE EVEN 
04A0 FFFF SP4A ADDL SP4A 

04AE MWSO JSB MBWI TEST 

04AF SP4A INC SP4A NFl 

04B0 



04B2 
04B3 
04B4 
04BS 
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RA 




JSB 


USHT 




UNO 


SPOA 


SPIB 


JSBC 


WBCl 




NCRY 


RH 




ADD 


RLZ 


XRO 


NFl 






JSB 


USHT 




UNC 


SPOA 


SP4A 


JSBS 


WBC4 




NCRY 


RH 


XRO 


JSB 


MWSO 




DATA 



RA 


ADD 




SP2B 






OPB 


ADD 


RRZ 


RH 


CCB 




SPIB 


INC 




SPIB 


ROD 




RA 


JSZC 


t*/OL 






ZERO 


RA 


JSBI 


MBWX 


RA 




NWIL 


OPB 


ADD 


LRZ 


RH 






UBB 


ADD 






CCB 




RA 


JSZC 


MWOL 






ZERO 


RA 


JSBI 


MBWX 


RA 




NWIL 


OPB 


ADD 


RRZ 


RH 


CCB 





* aligned case 

04B6 MBWA RA JSB MADE ODD 

04B7 FFFF SP4A ADDL SP4A 

04B8 Mi/AE SPOA SPIB JSBC WBCl NCRY 

04B9 SP4A INC SP4A NFl 

04BA JSB USHT UNC 

04BB JSB MBWI TEST 

04BC MWAO RH ADD RLZ XRO NFl 

04BD RA JSBC USHT UNC 

04BE SPOA SP4A JSBS WBC4 NCRY 

04BF RH XRO JSB MWAE DATA 



* 

RA ADD SP2B 

OPB ADD LRZ RH 

UBB ADD CCB 

RA JSZC MWOL 

RA JSBI MBWX RA 

OPB ADD RRZ RH CCB 

SPIB INC SPIB ROD 

RA JSZC MWOL 

RA JSBI MBWX RA 

OPB ADD LRZ RH 



ZERO 
NWIL 



ZERO 
NWIL 



Jump if source pointer is e 

SP2B :' source pointer 
SP4A :> absolute target add 

RH :• right source byte, 
Jump if interrupt ; 

SpIB :• addr of next sour 
SP4A :• addr of next target 

not upshift; Jump if movi 
Jump if 'while' not satisfi 

upshift: Increment source 
Jsb if src addr > SM + 1 (c 

byte; RH :- UBB :• left s 
XRAO. (0:8) :• old rt src by 

upshift: Set CCB on new 1 
Jump if overlapped move els 

jsb if upshift 
Jump if 'while' not satisfi 

t ar addr > SM -t- 1 , inc 
Write tar<|et word, loop bac 

RH :• right source byte. 



set CCB 

ce word, read 
word, skip if 
q into source 
d , else jsb if 
address pointer 

heck before left 

ource byte 

te, skip if not 

eft source byte 



ed , else jsb if 
c addr pt r 
k : 
set CCB 



Jump if source pointer Is odd; 

SP2B :■ source pointer 
Decrement target address; 

RH :> UBB :- left source byte 
Jump if src addr > SM + l (check before left 

byte); Set CCB on left source byte 
Increment target word addr, skip if not 

upshift; Jump if overlapped move 
Jump if 'while' not satisfied else jsb if 

upshift; Increment source pointer 
Jump if interrupt pending: 

RH :« UBB :- right source byte, set CCB 
XRAO. (0:8) ;• right source byte, skip if not 

upshift; Increment source addr ptr, read 
UBA :• (S) in case TEST; Jump if overlapped 

else jsb if upshift 
Jump if 'while' not satisfied else jsb if 

next tar addr > SM + 1 ; Inc source address 
Write target word, loop back; 

RH :- UBB : ' left source byte 
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RECORD 

NO 

4913 
4914 
4915 
4916 
4917 
4919 
4921 
4922 
4924 
4925 
4927 
4928 
4930 
4931 
4933 
4934 
4935 
4937 
4938 
4940 
4941 
4943 
4944 
4946 
4947 
4949 
4950 
4952 
4953 
4955 
4956 
4968 



C.S. 
ADDR 



04C0 
04C1 

04C2 

04C3 

04C4 

04C5 



Move Bytes While Instruction 
I.ABL RREG SREG FUNC SFNC STOR SPSK 



• «•*«<,•••*••. ALU B .*«••• A**... ,.* 
RREG SREG FUNC SFNC STOR SPEC SKIP 



common routines 



MBWX RA 



SP2B CAD 
SP4A ADD 



RA CAD 
SPOA SP4A BNDG 
USB XRO JSB D03S 
MAGE JSB MWAO 



UBA 


ADD 

ADD RB LBF5 


SM 


JSBI D03S SP3B NF5B 


OPB 


ADD RRZ 



04C6 MBWI UBA SP2B SUB 
04C7 RB UBA ADD 

04C8 USHT FFDF RH ANDL 
04C9 ADD 

04CA \IBCl CAD 

04CB UBB SPIB JSZS BNDV 



04CC V/BC4 
04CD UBB 



CAD 
SPIB JSZS BNDV 





DATA 


SP3B 


SPIB 


BNDE 








UNC 




OPB 
UBA 


ADD 
ADD 


RRZ 


RH 
RA 


RB 




0040 


RH 


JSZ 
ANDL 


IRDN 






RSB 




UBA 


ADD 




RH 


SPOA 


FSS 

CRRY 


Z 


RH 


JSZ 
ADD 


BNDV 




SPOA 


FSS 
CRRY 


Z 




JSZ 
ADD 


BNDV 





UNC 

zt:RO 

NPRV 
RSB 
NPRV 
RSB 
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UBA :« number of bytes moved 

Read last target word; Inc target pt r by 

* of bytes moved, set F5 if odd 
Dec source ptr; SP3B :=> SM + 1, jump to 

stack decrement if target pointer is even 
Bounds violation if last tar addr > SM + 1 ; 

UBB :- right target byte 
Write last byte, jump for stack decrement; 

Bounds violation if last s re addr > SM + 1 
Enter here for aligned/odd case to skip 1st 

test for interrupts; 

RH : = right source byte, set CCB 
UBA :• number of bytes moved; 

(S) :• updated (S) 
Inc target ptr by (t of bytes moved; 

Enter interrupt handler after FAKENEXT 
UBA :° upshifted character; 

Skip if not alpha, i.e., <° %100 
Return ; 

RH ;« upshifted character if alpha 
SPOA :» -1 as new limit, skip if split banks 

UBB ;= Z, bounds violation If non-priv 
Bounds viol'n if Z >■ s re addr 4 not split 

banks (and addr > SM) ; UBB ;= RH, return 
SPOA :• -1 as new limit, skip if split banks 

UBB ;■ Z, bounds violation if non-priv 
Bounds viol'n if Z >» tar addr & not split 

banks (and addr > SM) ; Return 
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RECORD 


C S. 


NO 


ADDR 


4960 




4961 




4962 




4963 




4964 




4965 




4966 




4967 




4968 




4969 




4970 




4371 




4972 




4973 




4974 


04CE 


4976 




4977 


04CF 


4979 




4980 




4981 


04D0 


4983 




4984 


04D1 


4986 




498 I 




49 3 8 


04D2 


4390 




4991 


0403 


4993 




4994 


04D4 


4996 




4997 


04D5 


4999 




5000 


04D6 


5002 




5003 


04D7 


5005 




5006 




5007 


04D8 


5009 


04D9 


5011 




5012 


04DA 


5014 




5015 


04DB 


5017 




5018 


04DC 


5020 


04DD 


5022 




5023 


04DE 



Scan While Instruction 

........... ALU A »**•••**••• ............. ALU B .............. 

LA8L RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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DB 


ADD 




SM 


ADD 




RB 


ADD 


LSR 




JSZ 


ET02 



NFSS Z DB SUB 

CFl UBA DL SUB 

NFl UBA DB CAD 

NFSS UBA UB6 SUB 



RB ADD LSR FIHB 
RA ADD LRZ XRO FSS 

UBS SM JSBC SWUB CRRY 
RB JSB SCWl ODD 
OPA ADD LRZ SPAA 

UBA SP2B JSBS SCW2 NZRO 



TEST 
SP4A 



OPA 


JSZ 
ADD 


IRDN 
RRZ 


RB 


JSBI 


SCWO 


XRQ 


ADO 






ADD 
JSB 


D03G 



UNC 
RSB 





RA 


ADD 


RRZ 


SP2B 






UBA 


DB 


ADD 




SP3B 


ROAD 




UBB 


DL 
SM 


BNDE 
INC 




RH 








UBA 


ADD 




RB 




NF2 


SP3B 


RH 


JSBS 


SBCK 






CRRY 


RB 
SP38 




INC 
INC 




RB 
SP3B 


ROAD 




UBA 


SP2B 
SPAA 


JSBS 
ADD 


SCWZ 




CC8 


NZRO 


UBA 


SPAA 


XOR 
ADD 






SCRY 
CCRY 


ZERO 



UBA;«DB, SKIP IF NOT SPLIT BANKS; 

SKIP IF NOT (Z >« DB) 

UBA;»SR + SM, CFl IF SPLIT BANKS; 

SET Fl IF NOT SPLIT STACK (SPLIT STACK 

IF FSS OR (Z < DB) OR (DB < DL)) 
UBA:«WORD POINTER, SKIP IF SPLIT STACK; 
UBB:-(SR + SM) - DB - 1 , skip if split stack 
JSB TO EMPTY TOS TO 2 IF NOT SPLIT BANKS; 
Fl-WORD POINTER >- (S - 1 - DB) 

(WORD ADDR > (S - 2) ) ; 
UBA; .WORD PTR + 32K IF NOT SPLIT STACK; 
SP2B:«TEST CHARACTER 

XRO; -TERMINAL CHARACTER, SKIP IF FSS; 
SP3B; -ABSOLUTE WORD AODii , READ 
JSB IF (ADDR > SM) AND NOT SPLIT BANKS; 
BOUNDS CHECK ADDR >= DL 
UBA; -SOURCE BYTE POINTER, JSB IF ODD; 
RH-SM * 1 

SPAA; -UBA; -LEFT SOURCE BYTE; 
INCREMENT BYTE PTR, SKIP IF SPLIT BANKS 
JSB IF SOURCE BYTE <> TEST CHARACTER; 
JSB IF WORD ADDR >- (SM + 1) AND 

NOT SPLIT BANKS 
JSB IF INTERRUPT; INCREMENT BYTE PTR 
SPAA; -UBA -RIGHT SOURCE BYTE; 
INCREMENT SOURCE WORD ADDR. READ 
UBA -INCREMENTED BYTE PTR; 
JSB IF SOURCE BYTE <> TEST CHARACTER 
UBA: -TERMINAL CHARACTER; 
SET CCS ON LAST CHARACTER SCANNED 
; SKIP IF TERMINAL CHAR - LAST CHAR, SCRY 
JSB FOR STACK DECREMENT; 

CLEAR CARRY IF TERMINAL CHAR <> LAST CHAR 
RSB UNLESS...; JSB FOR BNDV IN NPRV 
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RECORD 


C S. 




NO 


ADDR 


LABL 


5026 




*••*. 


5027 






5028 






50.'9 






Bono 






503: 






5fi3:' 






■jo;>3 






50J4 






5035 






5036 






5037 




* A * * ) 


5038 






5039 


04DF 


scu 


5041 






5042 


O4E0 




5044 






5045 






5046 


04E1 




5048 






5049 


04E2 




5051 






5052 


04E3 




5054 






5055 


04E4 




5057 






5058 


04E5 




5060 






5061 


04E6 




5063 






5064 


04E7 


SCUD 


5066 






5067 


04E8 




5069 






5070 






5071 


04E9 




5073 


04EA 


SCUl 


5075 






5076 


04EB 




5078 






5079 






5080 


04EC 




5082 






5083 


04ED 


SCU2 


5085 


04EE 


SCU3 


5087 


04EF 


SBCK 


5089 






5090 


04F0 




5092 







SCAN UNTIL Inst ruction 
........... ftnj A «...,»,,..» 

LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



Entered from »MFSU, which is the entry point for both the 
Move From Data Segment (MFDS) and the Scan Until (SCU) 
instructions. The SR preadjust is set to 2. The TOS 
registers are emptied unless in split-bank mode (FSS). The 
address to be scanned may be greater than SM in privileged 
mode if also greater than Z Allowing the address to 'go 
through' SM + 1 except in split stack mode could cause 
indeterminate results if an interrupt is serviced after the 
word at SM is scanned. Upon return from the interrupt fhe 
next address would be mapped into the DL to DB area. 



NFSS Z DB SUB 
CFl UBA DL SUB 





DB 


ADD 




SR 


SM 


ADD 






RB 


ADD 


LSR 






JSZ 


ET02 




RB 


ADD 


LSR 




RA 


ADD 


RRZ 


UBB 


SM 


JSBC 


SWU6 




RB 


JSB 


SCUl 




OPA 


ADD 


LRZ 


UBA 


XRO 


JSBS 


SCU2 




OPA 


JSZ 
ADD 


IRON 
RRZ 



UBA XRO JSBS SCU2 



NFl 


UBA 


DB 


CAD 








NFl 


NFSS 


UBA 


UBB 


SUB 






CTFl 




FIHB 




RA 


ADD 


LRZ 


XRO 






FSS 


UBA 


DB 


ADD 




SP3B 


ROAD 




CRRY 




SM 


INC 




RH 






ODD 


SP3B 


DL 


BNDE 








NF2 




SP3B 


RH 


JSBS 


SBCK 






CRRY 


ZERO 


UBA 


XRO 


JSBS 


SCU3 






ZERO 


TEST 


RB 
SP3B 




INC 
INC 




RB 
SP3B 


ROAD 




ZERO 


UBA 


XRO 


JSBS 


SCU3 






ZERO 



JSB 


SCUD 


UNC 


RB 




INC 


JSB 
JSB 
CAD 


D03S 
D03S 

RH 


UNC 
UNC 


Z 




ADD 
ADO 
JSZ BNDV 


ADD 


LRZ 


RSB 


SP3B 


UBB 


JSZC BNDV 



CCRY 
SCRY 



NPRV 
NCRY 



UBA := DB, skip if not split banks; 

Skip if not (Z >= DB ) 
UBA := S, clear Fl if split banks; Set Fl 

if not split stack - not (FSS or (Z < DB) 

or (DB < DL) ) 
UBA :• word pointer, skip if split stack; 

UBB : - S - DB - 1 , skip if split stack 
Empty TOS to 2 if not split banks; 

Fl := word pointer > (S - 2) 
UBA := word pointer + 32K if not split stack 

XRBO :° terminal character 
XRAO ,= test character, skip if split banks; 

SP3B ;' absolute word address, read 
Check tor BNDV if address > SM and not split 

banks ; RH :• SM + 1 
Jump if right byte; Bounds check 

address >» DL , skip if split banks 
UBA ;• left source byte; Check for BNDV if 

address >- SM + 1 and not split banks 
JSB IF SOURCE BYTE « TEST CHARACTER. 
JSB IF SOURCE I3YTE « TERMINAL CHARACTER, 
TERMINAL CHARACTER HAS PRECEDENCE 
JSB IF INTERRUPT; INCREMENT BYTE PTR 
UBA;=RIGHT SOURCE BYTE; 
INCREMENT WORD ADDR, R^AD 
JSB IF SOURCE BYTE • TEST CHARACTER; 
JSB IF SOURCE BYTE - TERMINAL CHARACTER, 
TERMINAL CHAR TEST HAS PRECEDENCE 
LOOP BACK; 

INCREMENT BYTE PTR, SKIP IF SPLIT BANKS 
JSB FOR STACK DECREMENT; CCRY 
JSB FOR STACK DECREMENT; SCRY 
RH:='!SFFFF AS NEW LIMIT; 

UBB:=Z, BOUNDS VIOLATION IF NOT PRIVILEGED 
UBA: -LEFT SOURCE BYTE, RSB; 
BOUNDS VIOLATION IF NOT (ADDR > Z) 
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RECORD 

NO 

5094 
5095 
5096 
5097 
5098 
5099 

Bino 

5102 

5103 
5105 
5107 
5108 
5110 
5111 
5113 
5115 
5117 
5119 



Stack Decrement Routines for Moves (0-3) 
C.S. ........... fti_u A •««•*••**•• ..*».*»•««.•• ALU B ••»*•••***•••• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• Stack Decrement Routines for Moves ' 

* Decrements from to 3 words from TOS after move instructions. • 



04F1 DOSS 0003 CIR ANDL 



04F2 
04F3 

04F4 

04F5 
04F6 
04F7 
04F8 



UBA 
CIR 



D03L UBA SM 
UBA Q 



JSBS D03L 
ADD 



NCRY 
EVEN 



EPOP 
UNO 



JSB D03G 



ADD 
ADD 



JSZ NEXT 
ADD SP4A 
JSZS STUN NCRY 
JSZ NEXT UNC 



UBA ADD LSR 

ADD 

ADD 

ADD 

SP4A ADD 
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UBA: -STACK DECREMENT BITS OUT OF CIR; 
JSB IF SR > 2 

JSB IF NOT (SR >• STACK DECREMENT); 
SKIP IF NOT STACK DECREMENT OF 1; 
UBB:=(SR - STACK DECREMENT) 
UBA:«(SR - STACK DECREMENT), EPOP; 
SKIP IF NOT STACK DECREMENT BY 2 
JSB FOR NEXT; EPP2 

SP4A:«(SR + SM) - STACK DECREMENT; 
JSB FOR STUN IF NOT (NEW SM >= 0) 
JSB FOR NEXT IN ONE CLOCK; 
SM:.S - STACK DECREMENT, CLSR 
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RECORD 

NO 

5121 
5122 
5123 
5124 
5125 
5126 
5127 
5129 
5131 
5133 
5135 
5137 
5139 
5140 
5142 
5144 
5146 
5147 
5149 
5151 
5153 
5154 
5155 
5156 
5)57 
5158 
5159 
5160 
5161 
5162 
516 3 
5164 
5165 
5166 
516 7 
5 168 
5169 
5170 
5)71 
5 173 
5 174 
5 1/6 
5 177 
5 17') 



51 : 



c s. 

ADDR 



04F9 
04FA 
04FB 
04FC 
04FD 
04FE 

04FF 
0500 
0501 

0502 
0503 
0504 



«•••••*•*•' ALU A 
LABL RREG SRE6 FUNG SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



0505 

0506 

0507 
0508 

0503 
05 OA 
05 01! 



05 OP 
05 Of- 



BFD or Ml Channel Program Build Module 



NSDV CBFD 
0341 
0313 
FFF2 
0002 
0331 

UBB 

0359 

SBFD 
0346 



MWP is 
the en 
breaks 
ascend 
descen 
c ases , 
writes 
t he ne 
wo rd 
t h roug 
Pendin 



ADDL LBL 

ADDL 

ADDL 

ADDL 

ADDL 

ADDL 

ADD 
ADD 
ADDL 

ADDL LBL 

ADDL 

ADD 

the entry po 
t ry point for 

info tour ca 
ing addresses 
ding addresse 

the normal c 

it self In 
xt word moved 

The first wo 
hooit the leng 
g interrupts 



SPOA 
XRl 



SPOA 
XRl 



SUBL ZERO 

JSL MTCP UNC 

ADD BKX4 
ADD WRX4 

JSL UNPK UNC 

ADD LSL 



UBA 
UBA 
FFFC 



ADD 
ADD 
ADDL 

ADD 

JSL UNPK 

JSL CLCT BKX3 



WRS 
DATA 



UNC 
UNC 



int for a P relat iv 

a DB relative sour 

ses , two for moves 

and two for moves 

s For each di rec t 

ase and the case wh 

the latter c ase , t h 

is the target addr 

rd of an overlapped 

th of the move with 

are tested for eve r 



e source, 
ce . The i 
in f he di r 
in the di r 
ion , t he re 
ere the mo 
e source a 
ess of the 
move is p 
out addi t i 
y 255 word 



and MWD is 
nst rue t ion 
ec t ion of 
ec t ion of 

are two 
ve over- 
dd ress of 

p receding 
ropogat ed 
onal reads . 
s moved 



!tLUT INSTR=MOVE(PB+) :0 010 000 000 OOx xxx, 
lELUT INSTR=MOVE(DB+) :0 010 000 000 Olx xxx, 



P, SR=3, ENTRY=MWP 
DB, SR=3. ENTRY=MWD 



RA 




CAD 




SP4A 


POS 




RA 


JSL 


MD03 


XRO 


ZERO 


RA 




INC 




SPAA 


SF2 


RB 


PB 


ADD 




SP3B 




UBB 
RC 


PB 
DB 


BNDE 
ADD 




RH 




PL 
SP3B 


UBB 
SP4A 


BNDE 
ADD 








UBB 

RH 
RH 


PB 

SP4A 

SM 


BNDE 

ADD 

JSBC 


f*<E3 


RH 


CRRY 


PL 
RH 


UBB 

BNKP 

DL 


BNDE 

ADD 

BNDE 




BKX3 
SP2B 




RH 
RC 


3M 
DB 


JSBC 

ADD 


MWE3 




CRRY 
WRD 


RH 
SP3B 


DL 


BNDE 
ADD 




SP2B 

R0A3 


Nr2 


RA 




J SB 

CAD 


MWFl 


SP4A 


UNC 
POS 




RA 


JSB 
JSB 


MWRl 
MD03 


XRO 


UNC 
ZERO 


RA 




INC 




SP4A 


SF2 


RB 


DB 


ADD 




SP3B 
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GO TO MTCP IF NOT BFD OR MT CH . PROG (2635) 
COPY BFD DISC PROGRAM: COPY MT CHANNEL PROG 
SET PROGRAM STARTING ADDRESS; BKX4 := 
SET LENGTH; SET WRITE ADDRESS 
SET SECTOR ADDRESS; UNPACK CHANNEL PROGRAM 
UBA <- MEM. ADR. FOR READ SIZE (2635) 



UBB <- XFER SIZE IN BYTES 

SET UP FOR MEM. WRITE 

WRITE CORRECT SIZE IN MEM. 

SET PROGRAM ADDRESS FOR DISC 

WRITE OUT BFD STATUS MASK 

SET MESSAGE ADDRESS; SET ADDRESS 

SET DISC ADDRESS; UNPACK MESSAGES 

FINISH BUILDING CHANNEL PROGRAM 



(2635) 
(2635) 
(2635) 
SET LENGTH 



1. SF2; 
ADDR 



ADDR 



SP4A:«W0RD COUNT - 1. SKIP IF > 0; 

XRO: -WORD COUNT, JSB IF » 

IF WORD COUNT < THEN SP4A : -COUNT 

SP3B: -ABSOLUTE SOURCE ADDR 

BOUNDS CHECK ADDR > = PB ; CHECK PL > 

RH:=ABSOLUTE TARGET ADDR; 

UBB: 'ENDING SOURCE ADDR 

BOUNDS CHECK ADDR > - PB ; 

RH:=ENDING TARGET ADDR; 

JSB IF ADDR > SM; 

BOUNDS CHECK ADDR >- DL, 

DITTO; DITTO 

WRITE AT (S-2) + DB ; 

READ FIRST WORD. SKIP IF FORWARD MOVE 

JSB FOR FORWARD MOVE; JSB FOR REVERSE MOVE 

SP4A =WORD COUNT - 1, SKIP IF > 0; 

XRO =WORD COUNT, JSB IF = 

IF WORD COUNT < THEN SP4A =COUNT + 1, SF2; 



CHECK PL > 
BKX3:=BNKP 



SP2B:=ADDR - DL 
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RECORD 


C S. 


NO 


ADDR 


5201 




5202 


0511 


5204 




5205 


0512 


5207 


0513 


5209 




5210 


0514 


5212 


0515 


5214 




5215 


0516 


5217 


0517 



Command Set 80 Channel Program Build Module 



LABL RREQ SREG FUNC SFNC STOR SPSK 



UBB 


SM 


J SBC 


MWE3 




CRRY 


UBB 


DL 


BNDE 


RC 
UBB 


DB 
SM 


ADD 
JSBC 


mE2 


RH 


CRRY 


SP3B 
UBB 


SP4A 
DL 


ADD 
BNDE 


RH 
RH 


SP4A 
SM 


ADD 
JSBC 


MWE3 


RH 


CRRY 


RH 


BNKD 
DL 


ADD 
BNDE 


RH 
RC 


SM 
DB 


JSBC 
ADD 


MWE3 




CRRY 
WRD 


RH 


DL 


BNDE 
JSB 



ALU B •••«•«•••*•••• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



SPZB 
SPZB 



BKX3 
SPZB 



10/ Z/86 9:26 AM 

COMMENT 

SP3B: -ABSOLUTE SOURCE ADDR 

JSB IF ADDR > SM; 

BOUNDS CHECK ADDR >« DL, SPZB : -ADDR - DL 

RH:-ABS TARGET ADDR; UBB: -ENDING SOURCE ADDR 

JSB IF ADDR > SM; 

BOUNDS CHECK ADDR >- DL, SPZB : -ADDR - DL 

RH: -ENDING TARGET ADDR; BKX3 : -BNKD 

JSB IF ADDR > SM; 

BOUNDS CHECK ADDR >• DL, SPZB -ADDR - DL 

DITTO; DITTO 

SEND WRITE ADDR; JSB IF REVERSE MOVE 
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RECORD 

NO 

5220 
5221 
5222 
5223 
5224 
5226 
5227 
5229 
5230 
5232 
5233 
5235 
5237 
5238 
5240 
5242 
5244 
5245 
5246 
5247 
5248 
5249 
525 1 
5253 
5254 
5256 
5257 
5259 
5260 
5262 
5263 
5265 
5266 



C S. 
AODR 



0518 

0519 

05 lA 

051B 
051C 

051D 
051F 
05 U 



0520 
0521 

05 2 2 

0523 

0524 

0525 

0526 



Move Words Instruction 
LABL RREG SREG FUNC SFNC STOR SPSK 



..•.<,..*....« ALU B «>,..•.<,<,*.•.«• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



Move Words Forward, (in the direction of ascending addresses) 



MWF RC 
MWFl 



MWX 
MWIX 



RB JSBC MWBF 
JSBI NMIX 
OPA JSB •-! 



ZERO SP3B 



ADD 
JSB 



M003 



SP3B 


INC 




SP3B R0A3 


RA USA 


JSBS 


MWX 


RA 


RB XRO 
RC XRO 


ADD 
ADD 




RB 
RC 


RA XRO 
RB UBB 
RC SREG 


SUB 
SUB 
SUB 




RB 
RC 



ADD 
ADD 
JSZ IRDN 



Move Words Blanking Forward, (overlapped forward move) 







ADD 
JSZ 




OPA 


ADD 


RB 


SPIB 


ADD 


RC 


SPIB 


ADD 


RA 


SPIB 


SUB 
JSB 





TEST 




RA 


ADD 
RE PC 




DATA 


UBB 




INC 


RB 




RA 


SPIB 


SUB 


RC 






UBB 


ADD 


RA 








ADD 




UNC 




UBA 


JSB 



CTR 

SPIB DCTR CTRO 

SPIB DCTR CTRO 

CTR 

NZRO 
DCTR 

NZRO 
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JSB IF SOURCE AND TARGET PTRS OVERLAP BY 

READ FIRST SOURCE WORD 

UBA:=1, JSB IF INTERRUPT; 

READ NEXT SOURCE WORD, SP3B:-SP3B + 1 

WRITE TARGET WORD, LOOP BACK; 

WORD COUNT; .WORD COUNT - 1, JSB IF • 

, (S-1):«(S-1) + WORD COUNT (MAY BE < 0) 
JSB FOR STACK DECREMENT; 

(S-2) ;=(S-2) + WORD COUNT 

; UBB:=WORD COUNT - ORIGINAL WORD COUNT 

; (S-1):=(S-1) + NUMBER OF WORDS MOVED 
JSB TO INTERRUPT HANDLER; 

(S-2):=(S-2) + NUMBER OF WORDS MOVED 



; CTR : »WORD COUNT .(8:8) 

JSB IF INTERRUPT; 

SP1B:=0. REPC IF CTR <> 0, DCTR 

WRITE SOURCE WORD- 

SP1B.=UBB + 1, DCTR, END REPEAT IF CTR = C 

(S-1):=(S-1) + NUMBER OF WORDS MOVED; 

UBB :=CTR: -REMAINING WORD COUNT . ( 8 : 8 ) 

(S-2):«(S-2) + NUMBER OF WORDS MOVED; 

SKIP IF CTR <> 

(S):=(S) - « OF WORDS MOVED; 

IF CTR=0 THEN CTR : -FF 

JSB FOR STACK DEC; JSB IF REMAINING COUNT 
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RECORD 


C S. 




NO 


ADDR 


LABL 


5269 




*»*» 


5270 




• 


5271 




A A * * 


5272 




* 


5273 


0527 


FMR 


5275 






5276 


0528 


MWRl 


5278 






5279 


0529 




5281 






52 82 




* * * * 


5283 




* 


5284 




* * * « 


5285 




• 


5286 


052A 


NMBR 


5288 


052B 




5290 






5291 


052C 




5293 






5294 


052D 




5296 






5297 


052E 




5299 






5300 


052F 




5302 






5303 


0530 




5305 






5306 




tttt 


5307 






5308 






5309 






5310 




* * * * 


33 U 






■.3i2 


0531 


MWE3 


5.-:i4 


0532 




5316 


0533 




53 J. S 






5319 






5320 


0534 




5322 






5323 


0535 




5325 






5326 


0536 




5328 






5329 


0537 




5331 


0538 


M003 


5333 


0539 




5335 


053A 





Movs Wordt Instruction 

RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

Move Words Reverse, (in the direction of descendinq addresses) * 



RB RC JSBC MWBR 
JSBI MWIX 
OPA JSB '-l 



ZERO SP3B ADD R0A3 

TEST SP3B CAD SP3B R0A3 
DATD RA UBA JSB MWX RA ZERO 



Move Words Blanking Reverse, (overlapped reverse move) 







ADD 
JSZ 


IRDN 




OPA 


ADD 




RB 


SPIB 


ADD 


RB 


RC 


SPIB 


ADD 


RC 


RA 


SPIB 


SUB 


RA 






JSB 


MD03 



RA ADD 
REPC 



CTR 

SPIB ICTR CTRO 



TEST 

DATD UBB CAD SPIB ICTR CTRO 
RA SPIB SUB RRZ CTR 

UBB ADD NZRO 

ADD ICTR 

UNC UBA JSB *-5 NZRO 



The following code emptys the TOS registers to 3 in the event 
the starting or ending address is greater than SM. It then 
bounds check the address against the new value of SM. 



SM 

QDWN ADD 
SPOA SP2B ADD 
UBB UBA BNDE 

CIR 



ADD 


SPOA NFSS 


2 


ADD 


ADD 


RSB 


FFFC 


ADDL 


INC 


WRS 


SR UBB 


REPC 



DCSR NCRY 



DATA UBB 



ADD 




RSB 


ADD 




EVEN 


ADD 




EPOP 


JSZ 


NEXT 


UNC 



UBB SPIB JSZC ST02 

ADD 

ADD 

UBA ADD LSR 

ADD 
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JSB IF SOURCE AND TARGET PTRS OVERLAP BY 1, 

READ FIRST SOURCE WORD 

UBA:-1, JSB IF INTERRUPT; 

READ NEXT SOURCE WORD, SP3B:=SP3B - 1 

WRITE TARGET WORD, LOOP BACK; 

WORD COUNT: -WORD COUNT - 1 . JSB IF « 



; CTR : "WORD COUNT (8:8) 

JSB IF INTERRUPT; 

SP1B:=0, REPC IF CTR <> 0, ICTR 

WRITE SOURCE WORD; 

SP1B:«UBB - 1, ICTR. END REPEAT IF CTR « C 

RB:«RB - NUMBER OF WORDS MOVED; 

UBB:«CTR:=REMAINING WORD COUNT. (8:8) 

RC:«RC - NUMBER OF WORDS MOVED; 

SKIP IF CTR <> 

RA:-RA + NUMBER OF WORDS MOVED; 

IF CTR'O THEN CTR:.01 

JSB FOR STACK DEC; JSB IF REMAINING COUNT 



SPOA:'DL, SKIP IF NOT SPLIT BANKS; SP1B:=Z 

RSB IF SPLIT BANKS; UBB: =-4 

WRITE TOS REGISTERS AT SM + 1 ; 

RG:'=(SR - 4), REPEAT IF NOT (SR > 4), DCSR 

RG HAS BEEN READ IN RANKl ALREADY IF SR=7 
WRITE QDWN; 

END REPEAT WHEN ( SR - 4) COUNTS DOWN TO < 
UBA:=DL + (ADDR - DL ) ; 

SM:-(SR - 4) + SM + 1 (SM:=S - 3), INSR 
BOUNDS CHECK SM >- ADDR. NO RSB HERE (2527) 
JSB STOV IF SM > Z AND WITHIN 32K 
THIS LINE ADDED TO FIX BNDE-RSB BUG (2527) 
CIR(15) INDICATES STACK DECREMENT OF 1 
EPOP; SKIP IF NOT STACK DECREMENT OF 2 
JSZ FOR NEXT; EPP2 
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RECORD 

NO 

5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5349 
5350 
5352 
5354 
5356 
5357 
5359 
5360 
5361 
5363 
5364 
5365 
5367 
5368 
5370 
5371 
5372 
5374 
5375 
5377 
5378 
5380 
5381 
5383 
5384 
5385 
5387 
5388 
5390 



C S. 
ADDR 



053C 
05 3D 
053E 

053F 

0540 

0541 
0542 

0543 
0544 
0545 
0546 

0547 
0548 



Move DB to DL Instruction 
....«..*..« ALU A •«■••••«••«• 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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MBLA is the entry point for the Move DB to DL (MVBL) 
instruction, the Move Absolute (MABS) instruction, and the 
two-word clock and hardware dependent instructions The 
SR pread]ust is set to because of the clock instructions. 



II.UT INSTR»MVBL/MABS:0 010 000 001 OOx xxx, DSPL = 4, DB . ENTRY = MBLA 

MBLA FFF8 DSPL ADDL BNKD JSZ TRP6 BKX3 NPftV 

UBA JSB MABS POS 0004 UBA 

INC LSL 
UBA 



MVBL SR 



RC 



JSB MABS 
INC LSL 
JSZC ET03 

JSZ PULM 



CRRY 
NF2 



ANDL 


ZERO 


JSL CLKI BKX3 


UNC 


JSZ PULM 


SRZ 



UBA DL ADD 

UBA ADD 
UBA UBB JSBC KWBF 

JSBI MWIX 
OPA JSB •-! 
MEILR SP4A ADD 

UBB UBA JSBC MWBR 

JSBI MWIX 
OPA JSB •-! 



JSZ PUL2 



RA JSB MBLR XRO 



SRL2 



FSS RB DB ADD SP3B R0A3 
ZERO RA JSL D03G ZERO 



TEST 
DATA 
FSS, 
ZERO 



SP3B INC 

RA UBA JSBS Mi>IX 

RB DB ADD 

RA JSL D03C 



SP3B R0A3 

RA ZERO 

SP3B R0A3 

ZERO 



TEST SP3B CAD SP3B R0A3 
DATD RA UBA JSB MWX RA ZERO 



UBA (0;1):=0 IF MABS, UBA : =CIR ( 13 3 ) ; 
BKX3:=BNKD FOR MVBL, TRAP IF NOT PRIVILEGED 
JSB IF MABS; SKIP IF NOT CIR ( 13 : 1 ) 
UBA:=2; BKX3:=0, JSB if 2-word instruction 
EMPTY TOS TO 3 IF SR > 2 (ttET03 CLEAR Fl); 
PULL ONE TOS IF SR = 
UBA:=(S-2), PULL ANOTHER TOS IF SR <= 2, 

(F2 SET IF «ET03 WAS EXECUTED) 
PULL TWO TOS IF SR < 2 
SP4A:«UBA:«(S-2) + DL (ABSOULTE TARGET ADDR) 

WRITE USING BNKS 
XR0:=WORD COUNT, JSB IF REVERSE MOVE 
UBA:=TARGET ADDR, SKIP IF SPLIT BANKS 
SP3B:=UBB: 'ABSOLUTE SOURCE ADDR, READ INTO A 
JSB IF TARGET AND SOURCE ADDRS OVERLAP BY 1 

AND NOT SPLIT BANKS; 
JSB FOR STACK DECREMENT IF WORD COUNT = 
UBA:=1, JSB IF INTERRUPT; 
READ NEXT SOURCE WORD, SP3B:»SP3B + 1 
WRITE TARGET WORD, LOOP BACK; 
WORD COUNT: "WORD COUNT - 1, JSB IF - 
UBA:=TARGET ADDR, SKIP IF SPLIT BANKS; 
SP3B:=UBB; -ABSOLUTE SOURCE ADDR, READ INTO A 
JSB IF SOURCE AND TARGET ADDRS OVERLAP BY 1 

AND NOT SPLIT BANKS; 
JSB FOR STACK DECREMENT IF WORD COUNT = 
UBA:=1, JSB IF INTERRUPT; 
READ NEXT SOURCE WORD, SP3B:=SP3B - 1 
WRITE TARGET WORD, LOOP BACK; 
WORD COUNT; "WORD COUNT + 1, JSB IF - 
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Move 


Abso 


lute Instruction 










RECORD 


C S 




* * * * 


* * * * • 


'* ALU A •• 


A « « * 




« A « • 




.... ALU 8 




NO 


ADDR 


LABL 


RREG 


SREQ 


FUNG SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC SFNC 


STOR 


5392 




• ••• 


>.•«« 






• ••• 






• •«•• 


>.>*.•••«. 


• ••. 


5393 




• 


Move 


Abso 


lute (MABS) 


Ins 


t rue t ion 








5394 




« 




















5395 




* 


Entered f 


rom «MBLA with 


privil 


J?S5. 


node 


already checked 


5396 




**** 


***** 




*'•**•*"*** 


**** 


****** 





"********* 


"*** 


5397 
5398 


0549 


MABS 




SREQ 


JSZ PULM 




SRZ 


0005 




ADDL 


SPIB 


5400 


054A 




SR 


UBA 


JSZC PULM 




NCRY 






JSZ PUL2 




5402 


054B 




SR 


SPIB 


JSZS PULM 




NCRY 


SR 


SPIB 


JSZC PSHM 




5404 


054C 




SR 


SPIB 


JSZS PULM 




NCRY 


SR 


SPIB 


JSZC PSHM 




5406 


054D 






RD 


ADD 




WRX4 




RA 


JSB D07S 


XRO 


5408 
























5409 


054E 






RA 


JSB MAR 




NEG 


OOFF 


RE 


ANDL 


BKX4 


5411 


054F 


MAF 


RE 


RC 


SUB 




NZRO 


OOFF 


RC 


ANDL 


BKX3 


5413 
























5414 


0550 




RD 


RB 


JSBC MABF 




ZERO 




RB 


ADD 




5416 
























5417 
























5418 


0551 








JSBI AIXF 




TEST 


RB 




INC 


RB 


54^>0 
























54;'i 


0552 






OPA 


JSB •-! 




DATA 


RA 


UBA 


JSBS MAX 


RA 


5423 
























5424 


0553 


MAR 


RE 


RC 


SUB 




NZRO 


OOFF 


RC 


ANDL 


BKX3 


5426 
























54J7 


0554 




RB 


RD 


JSBC MABR 




ZERO 




RB 


ADD 




5429 
























5430 
























5431 


0555 








JSBI AIXR 




TEST 


RB 




CAD 


RB 


5433 
























5434 


0556 






OPA 


JSB *-l 




DATD 


RA 


UBA 


JSB MAX 


RA 


5436 
























5437 


0557 


AIXR 


RB 




INC 


RB 




RA 


XRO 


JSBS AIXl 




5439 
























5440 


0558 


MAX 






JSB D07S 




UNC 


RD 


XRO 


ADD 


RD 


5442 
























5443 
























5444 


0559 


AIXF 


RB 




CAD 


RB 




RA 


XRO 


SUB 




5446 
























5447 


055A 


AIXl 






JSZ IRDN 




UNC 


RD 


UBB 


SUB 


RD 


5449 
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SPEC SKIP COMMENT 



UBA :- 2, pull one TOS if SR ■ 0; SPIB := 5 
SRL2 Pull one if SR « 2, Pull two if SR » 1 
CRRY Pull one if SR • 3 or 4; Push one if SR > 5 
CRRY Pull ono if SR • 4; Push one if SR » 6 
ZERO SEND ADDR USING BKX4; 

XRO: -WORD COUNT, JSB IF ZERO 
JSB IF WORD COUNT < 0; BKX4:-BANK ADDR 
SKIP IF BANK ADDRESSES NOT THE SAME; 
BKX3: -SOURCE BANK 
R0A3 JSB IF TARGET ADDR ONE GREATER THAN SOURCE 
AND BANK ADDRESSES ARE THE SAME; 
READ FIRST WORD INTO OPA 
R0A3 UBA-l, JSB IF INTERRUPT; 

READ NEXT SOURCE WORD, RB:=RB + 1 
ZERO WRITE TARGET WORD, LOOP BACK; 

WORD COUNT : -WORD COUNT - 1 . JSB IF - 
SKIP IF BANK ADDRESSES NOT THE SAME; 
BKX3: -SOURCE BANK 
R0A3 JSB IF TARGET ADDR ONE LESS THAN SOURCE 
AND BANK ADDRESSES ARE THE SAME 
READ FIRST WORD INTO OPA 
R0A3 UBA:-1^ JSB IF INTERRUPT; 

READ HtXJ SOURCE WORD, ADDR : -ADDR - 1 
ZERO WRITE TARGET WORD, LOOP BACK, 

WORD COUNT: -WORD COUNT +1, JSB IF • 
UNC SOURCE ADDR : -SOURCE ADDR + 1 , 

UBB: -WORD COUNT - ORIGINAL WORD COUNT, JSB 
SF5B JSB FOR STACK DECREMENT; 

(S-3):-(S-3) + WORD COUNT, SET FSB TO 

INHIBIT ADJUSTING (S-1) 
SOURCE ADDR: -SOURCE ADDR - 1; 
UBB -WORD COUNT - ORIGINAL WORD COUNT 
JSB FOR INTERRUPT, 
TARGET ADDR: -TARGET ADDR + « WORDS MOVED 
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RECORD 


C S. 


NO 


ADDR I 


5451 




545:^ 




5453 




5454 




5455 




5456 




5457 




5458 




5459 


0558 M 


5461 




5462 


055C 


5464 




5465 


055D 


5467 




5468 


055E 


5470 




5471 


055F 


5473 




5474 


0560 


5476 




5477 


0561 


5479 




5480 




5481 




5482 




5483 




5484 




5485 




5486 




5487 




5488 


0562 M 


5490 




5491 


0563 


5493 . 




5494 


0564 


5496 




5497 


0565 


5499 




5500 


0566 


5502 




5503 


0567 


5505 




5506 


0568 



Privileged Move Blanking Routines 



ALU A 
LABL RREQ SREG FUNC SFNC STOR SPSK 



ALU B ««.««.»..«•••• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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Move Absolute Blanking Forward - This routine is used by 
the MABS, MDS , MTDS and MFDS instructions for moves in 
the direction of ascending addresses where the target 
address i:s one greater than the source. Word pointer RC 
is adjusted for the MTDS instruction instead of RD 

MABF 







ADD 






JSZ 




OPA 


ADD 


RB 


SPIB 


ADD 


RC 


SPIB 


ADD 


RD 


SPIB 


ADD 
JSB 









RA 


ADD 




CTR 


SF5B 






TEST 






REPC 




SPIB 


DCTR 


CTRO 




DATA 


UBB 




INC 




SPIB 


DCTR 


CTRO 


RB 


NF3A 


RA 


SPIB 


SUB 


RRZ 


CTR 






RC 


UNC 




UBB 


ADD 








NZRO 


RD 








ADD 






DCTR 






UNC 


RA 


SPIB 


JSBS 


'■-5 


RA 




NZRO 



Move Absolute Blanking Reverse - This routine is used by 
the MABS and MDS instructions for moves in the direction 
of descending addresses where the target address is one 
less t han t he source 



; CTR : "WORD COUNT (8:8), 

SET F5B TO INHIBIT ADJUSTING (S-1) 
JSB IF INTERRUPT; 
SP1B:»0, REPC IF CTR <> 0, DCTR 
WRITE SOURCE WORD; 

SPIB =UBB + 1, DCTR. END REPEAT IF CTR x 
RB =RB + NUMBER OF WORDS MOVED; 
UBB;=CTR:=REMAINING WORD COUNT. (8:8) 
RC:'=RC + NUMBER OF WORDS MOVED IF MTDS; 
SKIP IF CTR <> 

RD:-RD ■•• NUMBER OF WORDS MOVED IF NOT MTDS; 
IF CTR-O THEN CTR : -FF 
JSB FOR STACK DEC; 
RA:»RA - NUMBER WORDS MOVED, JSB IF <> 







ADD 






JSZ 




OPA 


ADD 


RB 


SPIB 


ADD 


RD 


SPIB 


ADD 


RA 


SPIB 


SUB 
JSB 









RA 


ADD 




TEST 






REPC 




DATD 


UBB 




CAD 


RB 




RA 


SPIB 


SUB 


RD 






UBB 


ADD 


RA 








SUB 




UNC 




UBA 


JSB 



CTR SF5B ; CTR : -WORD COUNT . ( 8 : 8 ) , 

SET F5B TO INHIBIT ADJUSTING (S-1) 
SPIB ICTR CTRO JSB IF INTERRUPT; 

SP1B:«0, REPC IF CTR <> 0, ICTR 
SPIB ICTR CTRO WRITE SOURCE WORD; 

SPIB: -UBB - 1, ICTR, END REPEAT IF CTR = 
CTR RB:-RB - NUMBER OF WORDS MOVED; 

UBB: "CTR: -REMAINING WORD COUNT . ( 8 : 8 | 
NZRO RD:-RD - NUMBER OF WORDS MOVED; 
SKIP IF CTR <> 
ICTR RA:-RA + NUMBER OF WORDS MOVED; 
IF CTR-O THEN CTR: -01 
RA NZRO JSB FOR STACK DEC; JSB IF REMAINING COUNT 
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RECORD 

NO 

5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5519 
5521 
5523 
5525 
5526 
5528 
5530 
5632 
5533 
5535 
5536 
5538 
5539 
5541 
5542 
5544 
5546 
5548 
5549 
5551 
5552 
5554 
5555 
5557 
5558 
5560 
5561 
5563 



Move Data Segments Instruction 
C S. ........... ^Lu ft ..»*..*»... .........*... ftLU B •«•••••••••*•• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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0569 
056A 
056B 
056C 

056D 
056E 
056F 

0570 

0571 

0572 

0573 
0574 
0575 

0576 

0577 

0578 

0579 

057A 
0578 



SLUT 
MLBS 
MDS 



MLBS is the entry point 
instruction and the Move 
The SR preadjust is set 

INSTR=MVLB/MDS:0 010 000 



tor both the Move DL to DB (MVLB) 
Data Segments |MDS) instruction, 
to 3 for MVLB 



0008 CIR 

0005 

SR 



SR 
RE 
UBA 



2000 
UBA 
RF 
RC 



ANDL 

ADDL 

UBA JS2S PULM 

SP4A JSZS PULM 

SP4A JSZC PSHM 

RE ADD LSL 

ADD 



UBB 
OPA 
OPA 

OPA 

RF 
RG 

OPA 

OPA 



JSZC DSTV 

JSB ADSE 

ADDL 

I OR 
ADD 
ADD 

JSZC DSTV 

JSB ADSC 



SP4A lOR 
RF JSB 



ADSE 
ADSC 



ADD 
ADD 



1 000 


001 lOx XX 


X, SR 


»3. ENTRY-MLBS 






SP4A 


NCRY 
NCRY 


SR 


UBA 
UBA 


JSZ 
JSB 
JSZC 
INC 


TRP6 
MVLB 
PSHM 
LSL 


BKX3 
SPIB 


R0X3 


NPRV 
ZERO 
CRRY 




CRRY 
R0X3 


RC 


RC 

OPB 

RE 


ADD 
ADD 
JSZ 


LSL 
DSTV 


RG 
RF 
RH 


R0A3 


ZERO 




CRRY 


UBA 


SPIB 


ADD 






R0X3 






NEC 




UBB 


INC 






R0X3 




SP4A 




OOFF 


OPB 


ANDL 




BKX4 








DATA 
R0X3 
R0X3 


RD 


UBB 
OPB 
RC 


ADD 
ADD 
JSZ 


DSTV 


SP2B 

RF 

SP3B 




ZERO 




CRRY 


UBA 


SPIB 


ADD 






R0X3 






NEG 




UBB 


INC 






R0X3 






DATA 


RA 


OPB 


XFRR 




XRO 


HBF2 






WRX4 


OOFF 


SREG 


ANDL 




BKX3 






SPOA 
SPOA 








JSZ 
JSZ 


ABDS 
ABDS 






UNC 
UNC 



UBA :• CIR. (12:1); BKX3 := 0. trap if NPRIV 
SP4A :» 5: JSB it MVLB instruction 
Pull 1 if NOT (SR >= 5), Push 1 it SR > 5 
Pull 1 It NOT (SR >■ 5); SPIB : - 2, read DST 

polntitr & abs (2) 
Push 1 it SR > 5; RG : • src DS(» * 4 
UBA :• tar DS» • 4; RF :« adr of DST, read 
Read 1st word ot tar DST entry: RH :' tar 

DS«, DST violation if it's 
DST violation if tar DS« > DST length. 

Read 3rd word of tar DST entry 
Trap it tar DS absent; Read 4th word of tar 

DST ent ry 
SP4A : ' UBA :• mask tor referenced bit; 

BKX4 :• tar DS bank 4» (8 bits) 
Set ref'd bit for tar; SP2B :- tar DS bank * 
Read DST length; RF :- tar addr 
Read 1st word ot src DST entry; SP3B :» src 

DS#, DST violation it it's 
DST vio.lation it src DS« > DST length: 

Read 3rd word of src DST entry 
Trap it src DS absent; Read 4th word of src 

DST ent ry 
Set ref'd bit for src; SREGB :« src bank tt 

XRO :" word count, set F2 if reversed move 
Set up write to tar adr, JSB; 

UBB :•■= BKX3 :« src bank « (8 bits) 
SPOA := param (DStt); Trap for absent tar DS 
SPOA := param (DS«); Trap tor absent src DS 
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RECORD 


C S 


NO 


ADDR 


5566 




5567 




5568 




5569 




5570 




5571 




5572 


057C 


5574 




5575 


057D 


5577 




5578 




5579 


057E 


5581 




5582 




5583 


057F 


5585 




5586 




5587 


0580 


5589 




5590 


0581 


5592 




5593 


0582 


5595 




5596 




5597 


0583 


5599 




5600 




5601 


0584 


5603 




5604 


0585 


5606 





Move DL to DB Instruction 

..•«*..«««., ALU A ••*••«•*••• 
LABL RREG SREG l-UNC SFNC STOR SPSK 



...««...««.«. ALU B «•«.••••«•*•••• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



Move DL to DB (MVLB) Instruction 

Entered from *MLBS with privileged mode already checked. 

JSZ ET03 UNC BNKS JSZ TRP6 BKX3 r 

RC DB ADD SP4A WRD RA JSB MLBR XRO t 



UBA ADD 

UBA UBB JSBC MWBF 

JSBI MWIX 
OPA JSB *-l 
SP4A ADD 

UBB UBA JSBC MWBR 

JSBI r*/ix 
OPA JSB *-l 



FSS RB DL ADD SP3B R0A3 

ZERO RA JSL D03G 

TEST SP3B INC SP3B R0A3 

DATA RA UBA JSBS MWX RA 

FSS RB DL ADD SP3B R0A3 



ZERO 



RA JSL D03G 



TEST SP3B CAD SP3B R0A3 
DATD RA UBA JSB MWX RA 
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JSB TO EMPTY TOS TO 3; 

JSB IF NON-PRIVILEDGED, BKX3:=S0URCE BANK 

SP4A:=UBA:.(S-2) + DB (ABSOLUTE TARGET ADDR) 

WRITE USING BNKD; 
XR0:=WORD COUNT, JSB IF REVERSE MOVE 
UBA:=TARGET ADDR, SKIP IF SPLIT BANKS; 
SP38,=UBB: 'ABSOLUTE SOURCE ADDR, READ INTO A 

USING BNKS 
JSB IF TARGET AND SOURCE ADDRS OVERLAP BY 1 

AND NOT SPLIT BANKS; 
JSB FOR STACK DECREMENT IF WORD COUNT = 
UBA:=1, JSB IF INTERRUPT; 
READ NEXT SOURCE WORD, SP3B:=SP3B + 1 
WRITE TARGET WORD, LOOP BACK, 
WORD COUNT ;»WORD COUNT - 1, JSB IF = 
UBA:=TARGET ADDR, SKIP IF SPLIT BANKS; 
SP3B;=UBB "ABSOLUTE SOURCE ADDR, READ INTO A 

USING BNKS 
JSB IF SOURCE AND TARGET ADDRS OVERLAP BY I 

AND NOT SPLIT BANKS; 
JSB FOR STACK DECREMENT IF WORD COUNT = 
UBA:«1, JSB IF INTERRUPT; 
READ NEXT SOURCE WORD, SP3B:=SP3B - 1 
WRITE TARGET WORD, LOOP BACK; 
WORD COUNT :=WORD COUNT +1, JSB IF = 
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RECORD 

NO 

5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5618 
5620 
5622 
5624 
5626 
5627 
5629 
5631 
5633 
5635 
5636 
5638 
5640 
5642 
5643 
5645 
5646 
5648 
5649 
5651 
5652 
5653 
5655 
5656 
5658 
5659 
5661 
56B2 
5664 
5665 
5667 
5668 
5670 
5672 
5674 



C S 

ADOR 



0586 
0587 
0588 
0589 
058A 

058B 
058C 
058D 
058E 

058F 
0590 
0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

059A 
0b9B 
059C 



MOVE FROM DATA SEGMENT INSTRUCTION 
LABL RREG SREG FUNC SFNC STOR SPSK RRE6 SREG FUNC SFNC STOR SPEC SKIP 

MFSU is the entry point for the Move from Data Segment (HFDS) • 
and Scan Until (SCU) instructions The SR preadjust is set * 
to 2 
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LUT INSTR-MFDS/SCUO 010 000 
SP4A 



MFSU 0008 CIR 

0004 
MFDS SR 

SR 

SR 

SR 
RC 
UBA 
RC 

RG 

RD 

FDSl UBB 



ANDL 

ADDL 
UBA JSZC PSHM 
SP4A JSZS PULM 
SP4A JSZS PULM 

SP4A JSZC PSHM 
RC ADD LSL 
UBB ADD 
OPA JSZC DSTV 



OPA lOR 
OPA JSB 
DB ADD 



ADSC 



SP2B SUB 
ADD 
UBB JSBC MABF 



OPA 
MDSR 

OPA 
FDSX 0007 CIR 
DSIX 



JSBI DSIX 

JSB •-! 

JSBI DSIX 

JSB "-1 

ANDL 

ADD 
ADD 
JSZ IRDN 



001 11, SR" 


2,ENTRy-MFSU 








CRRY 
NCRY 
NCRY 


SR 


UBA 
SPAA 


ADD 

JSL 

JSZ 

JSZC 

INC 


SCU 

TRP6 
PSHM 
LSL 


BKX3 
SPIB 


R0X3 


ZERO 
NPRV 
CRRY 


CRRY 

R0X3 
CRRY 


2000 
UBA 


RC 
OPB 

SPIB 


JSZ 
ADD 
ADDL 
ADD 


DSTV 


RH 

RG 
SPIB 


R0A3 
R0X3 


ZERO 


DATA 

NEG 

WRD 


OOFF 


BNKD 
SPIB 
OPB 


ADD 
INC 
ANDL 




SP2B 
8KX3 


R0X3 




ZERO 


RB 


OPB 


ADD 




SP3B 


R0A3 




UNC 




UBB 


JSB 


W)SR 






FZ 


ZERO 




RA 


JSB 


DOTS 


XRO 




ZERO 


TEST 


SP3B 




INC 




SP3B 


R0A3 




DATA 


RA 


UBA 


JSBS 


FDSX 


RA 




ZERO 


TEST 


SP3B 




CAD 




SP3B 


R0A3 




DATD 


RA 


UBA 


JSB 


FDSX 


RA 




ZERO 




RD 


XRO 


JSB 


D071 


RD 




UNC 


UNC 


RA 
RB 
RD 


XRO 
UBB 
SREG 


SUB 
SUB 
SUB 




RB 
RD 







UBA:-CIR(12;1) ; BKX3 : -0 

SP4A:>4; JSB IF SCU INSTRUCTION 

Trap if not privileged: Else push if SR > 4 

PULL IF NOT (SR >• I); PUSH IF SR > 4 

PULL IF NOT (SR >• 4) ; 

READ DST POINTER AT LOCATION 2, SPIB: =2 

PUSH IF SR > 4; DSTV IF DS« =■ 0, RH:-DS« 

UBA:" DS» • 4; READ FIRST WORD OF DST 

READ FIRST WORD OF DST ENTRY; RG:»BIT MASK 

DSTV IF DS« > OS LENGTH; 

READ THIRD WORD OF DST ENTRY, SP1B:»ADDR 

SET REFERENCED BIT; SP2B:-BNKD 

ABDS IF ABSCENCE BIT; READ FOURTH ENTRY WORD 

RF:-TAR(3ET ADDR , WRITE USING BNKD; 

BKX3: 'SOURCE BANK 

Do the blanKing test if bank ts are same; 

SP3B :- src adr, read 1st word in OPA 
Skip blanking test if bank t's are not same; 

UBB :> src adr, JSB if reversed MDS 
JSB for overlapped move if tar adr 1 greater 
than src adr; XRBO :• word count, JSB for 
stack dec if • 
UBA:-1, JSB IF INTERRUPT; 
READ NEXT SOURCE WORD, SP3B;=SP3B + 1 
WRITE TARGET WORD, LOOP BACK; 
WORD COUNT: "WORD COUNT - 1, JSB IF = 
UBA:-1, JSB IF INTERRUPT 

READ NEXT SOURCE WORD, DEC SOURCE POINTER 
WRITE TARGET WORD , LOOP BACK ; 
WORD COUNT-WORD COUNT +1, EXIT IF=:0 
UBA: -CIR. (13:3) « STACK DECREMENT; 
RD:>RD ► WORD COUNT 

; UBB: -WORD COUNT - ORIGINAL WORD COUNT 

; RB:-RB + NUMBER OF WORDS MOVED 
JSB TO INTERRUPT HANDLER; 
RD:=RD > NUMBER OF WORDS MOVED 
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MOVE 


FROM 


DATA 


SEGMENT INSTRUCTION 












RECORD 


C.S. 




AAA*) 


A A A A A ) 


•> ALU A "<•'**' 


A A A A A 


A A A A ) 




A A A A f 


^LU B 


AAAAAAAAA« 




NO 


ADDR 


LABL 


RREG 


SREG 


l-UNC 


SFNC STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR SPEC 


SKIP 


5676 




• ••*, 




AAAAA. 


> A A A A < 


lAAAAAAAAA. 


AAAAAA 


AAAAA, 


• AAA* 


AAAAA. 






>AAA 


5677 




« 


MTSW 


is t h 1! e n 1 


; ry point 
(SCW) ins 


for th 


e Mo V e to 1 


Data : 


Segment (MTDS) 




"5678 




* 


and : 


Scan While 


t rue t ions . 


The 


SR preadju! 


it is set 




5679 




* 


to 2 






















5680 




A * A A 1 


k * A A * 1 


ft * * * * I 


A * A A A < 


tAMAAAAAAA) 


A A A A A A 


A A A A A 1 




A A A A A 1 






t A A A 


5681 




• 
























5682 




SLUT 


INSTR=MTDS/SCW 


010 000 


001 oi,SR=; 


Z.ENTRY'MTSW 






5683 




* 
























5684 


059D 


MTSW 


0008 


CIR 


ANDL 










ADD 




BKX3 




5686 


059E 




0004 




ADDL 


SPAA 






UBA 


JSL 


SCW 




ZERO 


5688 


059F 


MTDS 


SR 


UBA 


JSZC 


PSHM 


CRRY 






JSZ 


TRP6 




NPRV 


5690 


05A0 




SR 


SP4A 


..-'SZS 


PULM 


NCRY 


SR 


SP4A 


JSZC 


PSHM 




CRRY 


5692 
56ri_, 


<r,',M 




SR 


SP4A 


JSZS 


PULM 


NCRY 






INC 


LSL 


SPIB R0X3 




n5A2 




'oS 


SP4A 


JSZC 


PSHM 


CRRY 


2000 




ADDL 




RG 




5697 


05A3 




RD 


RD 


ADD 


LSL 


SF3A 




OPB 


ADD 




R0A3 




5699 




























5700 


05A4 




USA 


UBB 


ADD 


SPOA 


R0X3 




RD 


JSZ 


DSTV 


RH 


ZERO 


5702 




























5703 


05A5 




RD 


OPA 


JSZC 


DSTV 


CRRY 


UBA 


SPlB 


ADD 




R0X3 




5705 




























5706 


05A6 






OPA 


JSB 


ADSD 


NEG 




UBB 


INC 




R0A3 




5708 


0'->A7 




RG 


OPA 


I OR 




DATA 




BNKD 


ADD 




SP2B 




5710 


05A8 




RC 


OPA 


ADD 


RF 


WRX3 


OOFF 


OPB 


ANDL 




BKX3 




5712 




























5713 


05A9 




UBB 


SP2B 


XOR 




NZRO 


RB 


DB 


ADD 




SP3B ROAD 




5715 




























5716 


05AA 




RF 


UBB 


JSBC 


MABF 


ZERO 




RA 


JSB 


D07S 


XRO 


ZERO 


5718 




























6719 




























5720 


05AB 








JSBI 


NMIX 


TEST 


SP3B 




INC 




SP3B ROAD 




5722 




























5723 


05AC 






OPA 


JSB 


*-l 


DATA 


RA 


UBA 


JSBS 


TDSX 


RA 


ZERO 


5725 




























5726 


05AD 


TDSX 


0007 


CIR 


ANDL 






RC 


XRO 


JSB 


D071 


RC 


UNC 


5728 




























5729 


05AE 


ADSD 




RD 


ADD 


SPOA 








JSZ 


ABDS 




UNC 
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UBA:"CIR(12:1) ; BKX3 : -0 

SP4A:»4; JSB IF SCW INSTRUCTION 

Trap if not privileged; Else push if SR > 4 

PULL IF NOT (SR >« I); PUSH IF SR > 4 

PULL IF NOT (SR >- 4) ; 

READ DST POINTER AT LOCATION 2, SPIB: =2 

PUSH IF SR > 4; RG:=BIT MASK 

UBA:= DS« * 4, SF3A TO INDICATE MFDS ; 

READ FIRST WORD OF DST 

SPOA: -ADDR OF FIRST WORD OF DST ENTRY, READ; 

RH:-DS», DSTV IF DS« • 

DSTV IF DS« > DS LENGTH; 

READ THIRD WORD OF DST ENTRY 

ABDS IF ABSCENCE BIT; READ FOURTH ENTRY WORD 

SET REFERENCED BIT IN DST ENTRY; SP2B:=BNKD 

RF:=TARGET ADDR, WRITE USING BKX3 ; 

BKX3:=TARGET ADDR 

SKIP IF BANK ADDRESSES NOT THE SAME; 

SP3B: 'SOURCE ADDR, READ FIRST WORD INTO OPA 

JSB FOR OVERLAPED MOVE IF TARGET ADDR ONE 

GREATER THAN SOURCE; 
XR0:=WORD COUNT, JSB FOR STACK DEC IF » 
UBA:-1, JSB IF INTERRUPT; 
READ NEXT SOURCE WORD, SP3B:=SP3B + 1 
WRITE TARGET WORD, LOOP BACK; 
WORD COUNT: -WORD COUNT - 1, JSB IF = 
UBA: =CIR. (13:3) » STACK DECREMENT; 
RC:-RC + WORD COUNT 
SPOA: 'PARAMETER :=DS«; JSB FOR ABSENT DS 
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RECORD 

NO 

5732 
5733 
5734 
5735 
5736 
5737 
5738 
5740 
5741 
5743 
5744 
5746 
5748 
5749 
5751 
5753 
5755 
5757 
5759 
5761 



Stack Decrement Routines for Moves (0-7) 
C.S. ...».«»..«« ALU A •*•••*••••• *....».».«..» ALU B ••••»•••«•*••» 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

' Stack Decrement Routines for Moves * 

* These routines decrement the stack by from to 7 words. * 
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05AF D07S 0007 CIR ANDL 
05B0 D071 SR USA JSBS D07L 



05B1 
05B2 

05B3 
05B4 
05B5 
05B6 
05B7 
05B8 



CIR 
UBB 



CSR 

ADD 



D07L UBA 
UBA 



SP4A ADD 

ADD 

JSZ NEXT 
SM ADD 
JSZS STUN 

JSZ NEXT 



SP4A POS 
EPOP 

ODD 

NEXT 
UNC 



NCRY 
UNC 



UBA 


ADD 


UBA 


ADD 




ADD 




ADD 




ADO 




ADD 




ADD 


SP4A 


ADD 



FSB USA : -CIR . (13:3) - STACK DECREMENT ; 
SKIP ADJUSTING (S-1) IF FSB 
JSB IF NOT (SR >» STACK DECREMENT); 
RB =R8 + WORD COUNT 
SKIP IF NOT DEC BY ONE; UBB : =SR - STACK DEC 

EVEN UBA:-SR - STACK DEC, EPOP IF DEC BY ONE; 
SKIP IF NOT STACK DEC BY FOUR 
SKIP IF DEC BY TWO; EPP4 IF DEC BY FOUR 
NEXT IF NOT STACK DEC BY TWO, 
JSB FOR NEXT IN ONE CLOCK; EPP2 
UBA=(SR + SM) - STACK DECREMENT; 
JSB FOR STUN IF NOT (NEW SM >= Q) . 
JSB FOR NEXT IN ONE CLOCK, 
SM:=S - STACK DECREMENT, CLSR 
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RECORD 

NO 

5763 
5764 
57b5 
5766 
5767 
5768 
5769 
5770 
5771 
5772 
5773 
5774 
5776 
5778 
5780 
5782 
5784 
5785 
5787 
5789 
5790 
5792 
5794 
5796 
5798 
5799 
5800 
5801 
5802 
5803 
5804 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5813 
5815 
5817 
5819 
5821 
5822 
5823 
5825 
5826 
6828 
58?M 
5831 



05B9 
05BA 
05BB 
05BC 
05BD 



05C0 
05C1 
05C2 
05C3 



05C4 
05C5 
05C6 
05C7 
05C8 



05C9 
05CA 



BCY and BNCY instructions 
I.ABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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BCY instruction, (Branch on carry) - BCY is the entry 
point for the direct case, and BCYI is the entry point for 
t he Indi rec t case . 

LUT INSTR=BCY:0 001 001 100 OX ,DSPL=5 , P , ENTRY=BCY 



LUT INSTR=BCY:0 001 101 100 0X,DSPL= 
LUT INSTR>=BCY:0 001 001 100 1X,DSPL = 5, 
LUT INSTR=BCY:0 001 101 100 1X,DSPL=5, 



INDR,ENTRY=BCYI 
P,F2,ENTRY=BCY 
P.F2 ,INDR,ENTRY=BCYI 



BCY 0400 STA ANDL 

BCYI UBA ADD 

RH DSPL ADSB 

UBA PB UBNE 

SPOA STA XOR 

BCYI 0400 STA ANDL 

BCIl UBB DSPL ADSB 

UBA PB SUB 

RH OPA ADD 

BCI2 UBA PB UBNE 

SPOA STA XOR 



SPOA 

ZERO 
RONP 

STA 


PL 


P 
UBA 

UBA 
SREG 


ADD 

ADD 

ADD 

UBNE 

JSZ 


RH 
NEXT P 


NZRO 
NEXT 

UHC 


SPOA 

RH ROP 




P 
UBA 


ADD 
ADD 




NZRO 


CTFl 
RONP 


PL 
PL 


RH 
UBA 


ADD 

UBNE 

UBNE 




NEXT 



SREG JSZ NEXT P 



" BNCY instruction, (Branch on no carry) - BNCY is the entry 

" point for the direct case, and BNCI is the entry point for 

" t he indi rec t case . 

1:LUT INSTR = BNCY:0 001 001 101 OX ,0SPL = 5 . P , ENTRY»BNCY 

JiLUT INSTR=BNCY:0 001 101 101 OX ,DSPL = 5 , P , INDR , ENTRY-BNCI 

<;LUT INSTR = BNCY:0 001 001 101 1X,DSPL=5,P,F2,ENTRY = BNCY 

):LUT INSTR = BNCY:0 001 101 101 1X,DSPL = 5,P,F2,INDR,ENTRY=BNCI 



BNCY 0400 STA ANDL 
BNCI UBA ADD 
RH DSPL ADSB 
UBA PB UBNE 
SPOA STA XOR 



BNCI 0400 STA ANDL 
BNIl UBB DSPL ADSB 



SPOA 



P ADD 
NZRO UBA ADD 
RONP ADD 

PL UBA UBNE 
STA SREG JSZ NEXT P 



SPOA 

RH ROP 



RH 



UBA PB 
RH OPA 



SUB 
JSB 



CTFl 
RONP 



p 


ADD 


UBA 


ADD 


RH 


ADD 
UBNE 



ZERO 
NEXT 



ZERO 
NEXT 



SPOA: "UBA -CARRY BIT; RH:-=P BEFORE INCREMENT 

SKIP IF CARRY; SKIP IF NO CARRY 

UBA;=TARGET P, READ INTO NIR ; NEXT 

BOUNDS CHECK TARGET P 

CLEAR CARRY OR OVERFLOW IF SET; 

P: 'TARGET P AFTER BOUNDS CHECKING, JSB 

SPOA:=UBA:=CARRY BIT; UBB:=P 

RH;>UBA:=INDIRECT CELL ADDR , READ; 

SKIP NEXT IF CARRY IS SET 

F1-. =0 IF BNDV; NEXT IF BRANCH NOT TAKEN 

UBA:=TARGET P, READ INTO NIR; BOUNDS CHECK 

BOUNDS CHECK TARGET P 

CLEAR CARRY OR OVERFLOW IF SET; 

P:=TARGET P AFTER BOUNDS CHECKING, JSB 



SPOA: -UBA :-=CARRY BIT; RH:«P BEFORE INCRt 

SKIP IF NO CARRY; SKIP IF CARRY 

UBA: -TARGET P, READ INTO NIR; NEXT 

BOUNDS CHECK TARGET P 

CLEAR CARRY OR OVERFLOW IF SET; 

P: -TARGET P AFTER BOUNDS CHECKING, JSB 

SPOA: -UBA: -CARRY BIT; UBB:-P 

SPOA: -UBA: -CARRY BIT; 

UBB:=P BEFORE INCREMENT 

RH:=UBA:=INDIRCT CELL ADDR, READ; 

SKIP NEXT IF CARRY IS NOT SET 

Fl:-0 IF BNDV; NEXT IF BRANCH NOT TAKEN 

UBA: -TARGET P, READ, JSB; BOUNDS CHECK 
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RECORD 


C S 


NO 


ADDR 


5834 




5835 




5836 




5837 




5838 




5839 




5840 




5841 




5842 




5843 




5S44 




5845 


05CD 


5847 


ObCE 


5849 




5 8^0 




5851 




5852 




5853 




5854 




5855 




5856 




5857 




5858 




5859 




5860 




5861 


05CF 


5863 


05D0 



60V and BNOV instructions 

........>.. flLU A •••.•..«... »....*.*..... ALU B ••••••••«••••* 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

' BOV instruction, (Branch on overflow) - BOV is the entry • 

• point for the direct case, and BOVI is the entry point for * 

• the indirect case. * 

SLUT INSTR=BOV:0 001 Oil 000 OX , DSPL»5 , P , ENTRY'BOV 
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SLUT INSTRxBOV 
SLUT INSTR=BOV 
SLUT INSTR=BOV. 

BOV 0800 STA 
BOVI 0800 STA 



001 
001 
001 

ANDL 
ANDL 



HI 000 0X,03PL«5, 
Oil 000 IX DSPL'5, 
111 000 1X,DSPL=5, 

SPOA 
SPOA 



P,INDR.ENTRY»BOVI 

P,F2,ENTRY=B0V 

P,FZ,INOR,ENTRY-BOVI 



JSB 
JSB 



BCYl RH 
BCIl 



UNC SPOA "UBA: -OVERFLOW BIT; RH-P, JSB 
UNC SPOA ;'UBA: 'OVERFLOW BIT; UBB;=P, JSB 



BNOV instruction, (Branch on no overflow) - BNOV is the 
entry point for the direct case, and BNOI is the entry point 
for the indi rec t case . 



SLUT INSTR'BNOVO 001 OH 001 0X,DSPL-5. 

SLUT INSTR=BNOV:0 001 111 001 0X,DSPL«5, 

001 Oil 001 lX.DSPL-5, 

001 111 001 lX,DSPL-b, 



SLUT INSTR-BNOV 
SLUT INSTR-BNOVO 



,ENTRY-BNOV 

, INDR,ENTRY«BNOI 

,F2,ENTRY-BN0V 

,F2,INDR ,ENTRY-BN0I 



BNOV 0800 STA 
BNOI 0800 STA 



ANDL 
ANDL 



SPOA 
SPOA 



JSB 
JSB 



BNCl RH 
6NI1 



UNC SPOA :«U8A. -OVERFLOW BIT; RH:=P, JSB 
UNC SPOA: =UBA. -OVERFLOW BIT; UBB:-P, JSB 
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RECORD 


C S 


NO 


ADDR 


5866 




5867 




5868 




5869 




5870 




5871 




5872 




5873 




5874 




5875 




5876 




5877 


05D1 


5879 


0502 


5881 


05D3 


5883 


05D4 


5885 


0605 


5887 


0506 


5889 


0507 


5891 


0508 


5893 


0509 


5895 




5896 




5897 




5898 




5899 




5900 




5901 




5902 




5903 




5904 




5905 




5906 




5907 


05DA 


5909 


0508 


5911 


05DC 


5913 


05DD 


5915 


05DE 


5917 


050F 


5919 


05t:o 


5921 


05E1 


5923 


05E2 



BRO and BRE instructions 
LABL RREG SREG FUNC SFNC STOR SPSK 



..**...«...«« ALU B .••**«.•*..»,.. 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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• BRO instruction, (Branch on TOS odd) - BRO is t tie entry 

• point for ttie direct case, and BROI is the entry point for 

• the indi reef case . 

$LUT INSTR-8RO:0 001 Oil 110 OX ,SR=1 ,DSPL=5 , P , ENTRY^BRO 

SLUT INSTR'BRO:0 001 111 110 OX , SR=1 ,0SPL'5 , P , INDR , ENTRY-BROI 

SLUT INSTR=BRO:0 001 Oil 110 IX , SR = 1 ,0SPL=5 , P , F2 , ENTRY=BRO 

SLUT INSTR-BRO:0 001 lU 110 IX , SR'l ,0SPL=5 , P , F2 , INDR , ENTRY=BROI 

BRO UBA RA XFRS 

RREG DSPL ADSB 

UBA PB UBNE 
ADD 
BROI UBA DSPL ADSB 

UBA PB SUB 

RH OPA ADD 

UBA PB UBNE 



EVEN 




RA 


ADD 




EPOP 


ODD 


RONP 


PL 


UBA 


JSZ 
UBNE 


NEXT 




UNC 






SREG 


JSZ 


NEXT P 




UNC 


ROP 




RA 


ADO 




EPOP 


ODD 


CTFl 






JSZ 


NEXT 




UNC 


RONP 


PL 


RH 


UBNE 








Fl 


PL 


UBA 


UBNE 






NFl 



JSZ BNDV 



SREG JSZ NEXT P 



• BRE instruction, (Branch on TOS even) - BRE is the entry 

• point for the direct case, and BREI is the entry point for 

• the indirect case. 

SLUT INSTR-BRE:0 001 Oil 111 OX , SR = 1 ,DSPL-5 , P , ENTRY = BRE 

SLUT INSTR-BRE:0 001 111 HI OX , SR-1 ,DSPL-5 , P , INDR , ENTRY-BREI 

SLUT INSTR=BRE;0 001 Oil 111 IX , SR=1 .DSPL=5 , P , F2 , ENTRY'BRE 

SLUT INSTR'BREiO 001 111 111 IX , SR-1 ,0SPL=5 , P ,F2 , INDR , ENTRY»BREI 

BRE UBA RA XFRS 

RREG DSPL ADSB 

UBA PB UBNE 
ADD 
BREI UBA DSPL ADSB 

UBA PB SUB 

RH OPA ADD 

UBA PB UBNE 



ODD 




RA 


ADD 




EPOP 


EVEN 


RONP 


PL 


UBA 


JSZ 
UBNE 


NEXT 




UNC 






SREG 


JSZ 


NEXT P 




UNC 


ROP 




RA 


ADD 




LPOP 


EVEN 


CTFl 






JSZ 


NEXT 




UNC 


RONP 


PL 


RH 


UBNE 








Fl 


PL 


UBA 


UBNE 






NFl 



RREG;-P, SKIP IF (S) EVEN; SKIP IF ODD, EPOP 

UBAi'TARGET P, READ; NEXT IF (S) NOT ODD 

BOUNDS CHECK TARGET P 

JSB; P:=TARGET P AFTER BOUNDS CHECKING 

RH;=UBA:=TARGET P, READ; (S) ODD?, EPOP 

F1:=0 IF BNDV; NEXT IF (SI NOT ODD 

UBA: -TARGET P, READ INTO NIR ; BOUNDS CHECK 

BOUNDS CHECK, BOUNDS CHECK, SKIP IF BNDV 

JSB IF BNDV; P:-TARGET P, JSB 



JSZ BNDV 



SREG JSZ NEXT P 



RREG:-P, SKIP IF (S) ODD; SKIP IF EVEN, EPOP 
UBA: -TARGET P, READ; NEXT IF (S| NOT EVEN 
BOUNDS CHECK TARGET P 

JSB; P: -TARGET P AFTER BOUNDS CHECKING 
RH: -UBA; -TARGET P, READ; (S) EVEN?, EPOP 
Fl;-0 IF BNDV, JSB; JSB NEXT IF (S) NOT EVEN 
UBA -TARGET P, READ INTO NIR; BOUNDS CHECK 
BOUNDS CHECK; BOUNDS CHECK, SKIP IF BNDV 
JSB IF BNDV; P: -TARGET P, JSB 
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CPRB 


inst 1 


rue t ion 


















RECORD 


C S 




ft ft * ft 


ft ft ft ft ft 1 


«• ALU A ** 


ftftftftftftftft* 


ftftftftftftftftft 


••«» ALU B 


ft A A ft 1 


fc ft ft ft A J 


k ft ft ft ft 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC SFNC 


STOR SPSK 


RREG SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


5926 




»«••, 




*ftftft>> 


tftftftftftfti 


>•*. 


• ftftftftftftftft*. 


tftftftftft.ftft. 


• ftftftft. 


ftftftft 


ftftftftft, 


tftftftft. 


tftftft 


5927 




• 


For 


the CPRB inst 


[ rue 


lion, (Compare range 


and b 


ranc 


h| . the 




5928 




* 


i nt e 


ger to be compared is in X 


the upper bouni 


d IS 


in IS), 




5929 




* 


and 


Ihe lower bound 


is in (S-i: 


[ftftftftftftftft. 












5930 




A * A ft J 


t ft ft ft ft 


ft ft ft ft ft I 




( ft ft ft 


*********** 




ft A ft ft A ft 


ftftftft 


* * A A * 1 


k ft ft ft ft 1 


k A ft A 


5931 




ft 
























5932 




SLUT 


INSTR-CPRBO 001 


010 


110 0X.DSPL«5,P.SR- 


2 ,ENTRY>CPRB 






5933 




SLUT 


INSTR=CPRB;0 001 


110 


110 0X,DSPL=5,P,SR- 


2,INDR 


.ENTRY-CPRI 




5934 




SLUT 


INSTR'CPRB 001 


010 


110 1X,DSPL»5,P,SR= 


2. F2, ENTRY 


=CPRB 






5935 




SLUT 


INSTR=CPRB:0 001 


110 


110 1X,DSPL=5,P,SR= 


2,INDR 


,F2, 


ENTRY' 


=CPRI 




5936 




* 
























5937 


05E3 


CPRB 


UBA 


DSPL 


ADSB 




RH 


8000 


ADDL 




SPIB 






5939 


05E4 




X 


UBB 


ADD 




SP4A 


RREG RA 


ADD 






EPP2 




5941 




























5942 


OSES 




RB 


SPIB 


ADD 






UBB UBA 


SUB 






CCZ 


NCRY 


5944 




























5945 


05E6 




UBA 


SP4A 


CAD 




NCRY 




CAD 






CCA 


UNC 


5947 


05E7 








ADD 




NEXT 




ADD 








NEXT 


5949 


05E8 






RH 


JSB BCCl 


RONP 




ADD 






CCA 




5951 


05E9 


CPRI 


UBA 


DSPL 


ADSB 




RH ROP 


8000 


ADDL 




SPIB 






5953 


05EA 




X 


UBB 


ADD 




SP4A 


RREG RA 


ADD 






EPP2 




5955 




























5956 


05EB 




RB 


SPIB 


ADD 






UBB UBA 


SUB 






CCZ 


NCRY 


5958 




























5959 


05EC 




UBA 


SP4A 


CAD 




NCRY 




CAD 






CCA 


UNC 


5961 


05FD 








ADD 




NEXT 




ADD 








NEXT 


5963 


05EE 




RH 


PB 


UBNE 






PL RH 


UBNE 










5965 


05EF 




RH 


OPA 


JSB BCCl 


RONP 




ADD 






CCA 
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COMMENT 



RH -TARGET P; SPIB : -UBB : «32K 
SP4A:-UBA:=X AS A LOGICAL QUANTITY; 
UBB:-(S) AS A LOGICAL QUANTITY, EPP2 
UBA:>(S-1) AS A LOGICAL QUANTITY; 
NCRY IF NOT (S) >• X, SET CCG 
NCRY IF (S-1) > X; SET CCL 
NEXT IF (S-1) > X, NEXT IF X>(S) 
READ TARGET P INTO NIR ; SET CCE 
RH:«INOIRECT CELL, READ; SPIB : =UBB ; =32 
SP4A:-UBA:-X AS A LOGICAL QUANTITY; 
UBB:>(S) AS A LOGICAL QUANTITY, EPP2 
UBA: -(S-1 1 AS A LOGICAL QUANTITY; 
NCRY IF NOT (S) >« X, SET CCG 
NCRY IF (S-1) > X; SET CCL 
NEXT IF (S-1) > X; NEXT IF X > (S) 
BOUNDS CHECK INDIRECT CELL ADDRESS 
UBA: -TARGET P, READ INTO NIR; SET CCE 
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RtCORD 

NO 

5968 
5969 
5970 
5971 
5972 
5973 
5974 
5975 
5976 
5977 
5978 
5979 
5980 
5981 
5982 
5983 
5 9 84 
5985 
5 9 86 
5 9 8 7 
59 8 8 
5 9 89 
5 5 90 
599 1 

599 2 
599 'J 
5 994 
5996 
5 9 ■) 7 

5 99 9 

6 001 
6003 
6004 
6005 

600 8 
6010 
6012 



C S. 
ADDR 



05F4 
05K5 
05r6 
05F7 



BR and BCC instructions (P relative) 

........... ALU A .«...*«.... ...».....*... ALU B ••*«*••••«««•• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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The BR instruction, (Branch unconditionally), has the 
entry points as the BCC instruction for P relative add 
In the direct case the entry point is BCC and in the i 
case the entry point is BCCI DSPL selects bits 8 thr 
for BR, (P relative), and bits 11 through 15 for BCC 
set to the value of bit 7 for BR and bit 10 for BCC. 
bit 4 indicates whether indexing is used If I he bran 
should not be taken the hardware inhibits memory refer 
in ALUA and sets F5B The first line of the instruct! 
jumps to do a NEXT based on F5B 



s ame 
res s inq 
ndi rec t 
ough 15 

F2 is 
For BR, 
ch 
ences 



SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SlUT 
SLUT 
SLUT 



INSTR: 
INSTR^ 
INSTR: 
INSTR: 
INSTR: 
INSTR: 
INSTR: 
INSTR: 
INSTR: 
INST"?: 
INSTP: 
INSTR: 



BR(P+) 
BR(P+) 
BR(P-) 
BR(P-) 
BR( P+) 
BR(P+) 
BR(P-) 
BR(;P-) 
BCC(P+ 
BCCI Po- 
lice (P- 
BCC(P- 



1 100 000 

1 100 100 

1 100 000 

1 100 100 

1 100 010 

1 100 110 

1 100 010 

1 100 110 

) ;1 100 001 

) :1 100 101 

) :1 100 001 

) :1 100 101 



05F0 BCC UBA DSPL ADSB 

05F1 eCCl UBA PB UBNE 
05F2 ADD 

05F3 BCCI UBA DSPL ADSB 



XC UBA ADD 
UBA OPA ADD 
UBA PB UBNE 
ADD 



OXX XX,DSPL=8,P,ENTRY=BCC 
OXX XX,DSPL=8,X,P,ENTRY-BCC 
IXX XX,DSPL=8.P,F2,ENTRY=BCC 
IXX XX.DSPL=8,X,F2 , P,ENTRY=BCC 
OXX XX,DSPL=8, INDR ,P,ENTRY=BCCI 
OXX XX,DSPL=:8,X, INDR,P,ENTRY = BCCI 
IXX XX,DSPL=8 , INDR ,F2 , P , ENTR Y=BCCI 
IXX XX, DSPL = 8 ,X, INDR ,F2 , P , ENTRY=:BCCI 
XXX 0X,DSPL=5 ,P,ENTRY=BCC 
XXX 0X,DSPL=5.P, INDR .ENTRY=BCCI 
XXX 1X,DSPL=S,P,F2 ,ENTRY=BCC 
XXX IX, DSPL=5,P,F2. INDR, ENTR Y=BCCI 

RONP JSZ NEXT 

PL UBA UBNE 

SRCG JSZ NEXT P 
ROP JSZ MEXT 

PL UBA UBNE 

RONP RH PB UBNE 

PL UBA UBNE 

SREG JSZ NEXT P 



UNO 
FSB 



UBA:=TARGET P, READ INTO NIR , (INCLUDES XC); 

JSB IF CONDITION CODE NOT MET 

BOUNDS CHECK TARGET P 

, P:=TARGET P AFTER BOUNDS CHECKING 

RH: =UBA: =INDIRE;CT CELL ADDR, READ; 

JSB IF CONDITION CODE NOT MET 

UBA:=XC + INDIRECT ADDR; BOUNDS CHECK 

UBA —TARGET P, READ INTO NIR; BOUNDS CHECK 

BOUNDS CHECK TARGET P 

JSB; P:=TARGET P AFTER BOUNDS CHECKING 
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RECORD 

NO 

6014 
6015 
6016 
6017 
6018 
6019 
6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6032 
6034 
6036 
6037 
6038 
6040 
6041 



c.s. 

ADDR 



05F8 
05F9 
05FA 



05FB 

05FC 



BR ins t rue t ion (DB 

.«•••*•**«• ALU A ••••••«.».» 

LABL RREG SREG FUNC SFNC STOR SPSK 



and S relative) 

«<•*..»«* »***»*»»**.., ALU B ..«••••••••*** 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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BRIS is the entry point for the BR, (Branch unconditionally), 
instruction for S- indirect addressing. BRID is the entry 
point for 0B+ , Q- , and Q* indirect addressing. Bit 4 
indicates whether indexing is used. 



SLUT INSTR- 
SLUT INSTR" 
SLUT INSTR= 
SLUT INSTR" 
SLUT INSTR= 
SLUT INSTR= 
SLUT INSTR= 
SLUT INSTR- 



BR(DB+):1 100 Oil OXX XX . DSPL-8 , DB , INDR , ENTRY«BRID 
BR(DB+):1 100 111 OXX XX , DSPL«8 ,D8 , X , INDR , ENTRY»BRID 



BR(Q . 
BR(0+) 
BR(Q-) 
BR(Q-) 
BR(S-) 
BR(S-) 



BRIS SR SM ADD 
BRID UBA DSPL ADSB 
UBA SM CAD 



1 100 Oil lOX XX,DSPL=7,0,INDR,ENTRY=BRID 

1 100 ill lOX XX, DSPL='7,0,X,INDR, ENTRY. BRID 

1 100 Oil 110 XX,DSPL»6.0,INDR,F2,ENTRY=BRID 

1 100 111 110 XX,DSPL=6,0,X,INDR,F2,ENTRY>BRID 

1 100 Oil 111 XX,DSPL=6,SM,INDR ,F2,ENTRY-BRIS 

1 100 111 111 XX,DSPL'6,SM,X,INDR,F2,ENTRY«BRIS 

ADD 
IH ROD SR SM ADO 

UBB UBA BNDE CTR TICB 



XC PB ADD 
UBA REGN ADD 



DL BNDE 

JSB BCCl 



UBAi^SR + SM; 

RH. 'UBA: .INDIRECT CELL ADDR, READ; UBB=S 
BOUNDS CHECK ADDR<=S, CTR:=IF ADDR>SM AND 
S>.ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPERAND 
UBA;=XC + PB; 

BOUNDS CHECK ADDR > - DL , STFF 
UBA:.TARGET P, READ INTO NIR ; JSB 
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RECORD 


C.S. 


NO 


ADDR 


6044 




6045 




6046 




6047 




6048 




6049 




6050 




6051 




6052 




6053 




6054 




6055 




6056 




605 7 




605 8 




6059 


05FD 


6061 


05FE 


6063 


05FF 


6065 


0600 


6067 


0601 


6069 




6070 


0602 


6072 




6073 


0603 


6075 


0604 



Halt Mode Interrupt Handler 
«,*.«.««.».. ALU A «..••***••• 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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Hall Mode Interrupt Module 

This module will handle the interrupts occurring 
while halted These include: 



CPX1(4) 
CPX) (81 
CPXi(12) 



Run/Halt Switch Interrupt 
DCU Command Interrupt 
Power fail warning 



Entered with SP4A = CPXl * csl(l) 



HMIT 1000 STA ANDL 
0010 SP4A ANDL 
0100 SP4A ANDL 
1000 SP4A ANDL 
0600 ADDL 



SPOA 



ADD 
ADDL 



ADDL 
UBB ADD 
UBA JSZ PFW 
UBA JSL DCMD 
UBA JSL STOP 

UBA ADD 

ADDL 
ADD 



NZRO 
NZRO 
ZERO 



SPOA:» right stackop bit; UBB := CCPX mask 
UBA -.' PFWINT; Clear R/HSWINT 
UBA :• DCU cmd int ; Jump if power fail 
UBA :« R/HSWINT; Process DCU interrupt 
UBA :■ mask to set RUN FF ; Jump if not any 

of the expected interrupts 
UBA : ' right stackop bit. restart instr; 

Set RUN FF bit in CPX2 
; Set counter to DCUSTOR with value of 3 
Issue DCUSTOR; Return to (tSTOP thru ttRMIT 
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RECORD 


C.S 


NO 


ADDR 


6078 




6079 




6080 




6081 




6082 




6083 




6084 




6085 




6086 




6087 




6088 




6089 




6090 




6091 


0605 


6093 


0606 


6095 




6096 


0607 


6098 




6099 




6100 


0608 


6102 




6103 


0609 


6105 




6106 


060A 


6108 




6109 


060B 


6111 


060C 


6113 




6114 




6115 


060D 



Loop Control Instructions, TBA 
LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP COMMENT 

DSPL for all the Loop Control instructions is 8. F2 is set • 
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DSPL for all the Loop Control instructions is 8. F 
by the LUT to the value of bit 7 in the instruction 



Test and Branch, limit in A (TBA) 



SLUT INSTR-TBA.O 101 000 Oxx xxx xxx, 
JLUT INSTR=TBA:0 101 000 Ixx xxx xxx, 



DSPL-8, 
DSPL-8, 



P, ENTRY'TBA 
P, ENTRY=TBA, 



UBA 
RC 



DSPL ADSB 
DB ADD 



RH RONP 
SPOA ROBD 



SM 
UBA 



ADD 
UBNE 



SP3B UBA BNDE 



HBF2 8000 RA ADDL 
NF2 RREG REGN ADD 



CTFl RH UBB SUB 



SPOA DL 
P 



BNDE 
JSB 



ADD 



Fl 
RONP 



0003 ADDL 

UBB CTRS JSZC BNDV 



PB 



JSZ NEXT P 



UNO 



RH:.P */- DSPL (TARGET P); SP3B:=SR + SM 

SPOA: -VARIABLE ADDR, READ; 

BOUNDS CHECK PL >= TARGET P 

; BOUNDS CHECK S>>ADDR, CTR:=IF ADDR>SM AND 

S>'ADDR AND NOT (FSS AND DB REL ADDR) 

THEN (S-ADDR) ELSE CODE FOR OPERAND 
F2:=SIGN OF INCREMENT; 
RH: -LIMIT AS A LOGICAL QUANTITY 
BOUNDS CHECK TARGET P >= PB , RH:-P - PB , 
UBB:=VARIABLE AS A LOGICAL QUANTITY 
F1:=IF INCR < THEN (VAR >= LIMIT) 

ELSE (LIMIT >= VAR) 
BOUNDS CHECK VARIABLE ADDR >= DL; UBB: =3 
REREAD (P) IF LIMIT EXCEEDED, JSB; 
BNDV IF S-2 <= VARIABLE ADDR <= S, 

((3 > CTRS) IMPLYS ADDR IN PARAMETERS) 
; P:>iTARGET P, JSB FOR NEXT 
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RECORD 

NO 

61 18 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6127 
6129 
6130 
6132 
6133 
6134 
6136 
6138 
6139 
6140 
6142 
6143 
6145 
6146 
6148 
6149 
6151 
6152 
6154 
6155 
6157 



060E 
060F 



0611 
0612 



0613 

0614 

0615 

0616 

0617 

0618 
0619 



Loop Control Instructions, MTBA 

. ...*....«. ALU A .........A. ..**>* A.**.*. ALU B ..«««..<..<.**.. 

LABL RREG SREG FUNC SFNC STOP SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

» Modify Variable, Test and Branch, limit in A (MTBA) « 

SLUT INSTR=MTBA;0 101 010 Oxx xxx xxx, SR=3, DSPL=8. P, ENTRY=MTBA 
SLUT INSTR=MTBA:0 101 010 Ixx xxx xxx.SR=3, DSPL=8, P, ENTRY=MTBA, F2 
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MTBA UBA 
RC 



DSPL ADSB 
DB ADD 



0003 
SPOA 


DL 


ADDL 
BNDE 


RB 


REGN 


ADD 


RH 


PB 


UBNE 


RB 


REGN 


ADD 
ADD 


SPOA 


PB 


ADD 




P 


ADD 
JSZ 



RH 
SPOA 


RONP 
ROD 


SR 


SM 
RB 


ADD 
ADD 




SP3B 


HBF2 








SP3B 


UBA 


BNDE 




CTR 


TICB 








PL 
UBA 


RH 
CTRS 


UBNE 
JSZC 


BNDV 






CRR 




DATA 


8000 


RA 


ADDL 




RH 






SPOA 




RREG 


UBA 


ADD 




SP3B 




F2 


REGN 


NOFL 


RH 


UBB 


SUB 






CTFl 


UNO 




CFl 


SP3B 


RH 


SUB 






CTFl 






Fl 






ADD 








NFl 




RONP 
EPOP 




UBA 


JSZ 
ADD 


NEXT 


P 


EPP2 


UNC 



RH:»P+DSPL (TARGET P), READ; SP3B 'SR+SM 

SPOA:=VARIABLE ADDR , READ; 

F2 ; =SIGN OF INCREMENT 

, BOUNDS CHECK S>=ADDR, CTR:=IF ADDR > SM AND 
S>=ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPERAND 

UBA; =4; BOUNDS CHECK PL >= TARGET P 

BOUNDS CHECK VARIABLE ADDR >= DL; 

BNDV IF S-2 <= VARIABLE ADDR <= S, 

((3 > CTRS) IMPLYS ADDR IN PARAMETERS) 

UBA; "INCREMENT + VARIABLE, WRITE; 

RH;=LIMIT AS A LOGICAL QUANTITY 

BOUNDS CHECK TARGET P >■ PB , SPOA:=P ~ PB ; 

SP3B: «UBB; -VARIABLE AS A LOGICAL QUANTITY 

SKIP IF NOFL FROM SUM INCREMENT + VARIABLE; 

IF INCREMENT>-0 THEN F1:=(LIMIT >= SUM) 

CFl IF OVERFLOW FROM SUMMING; 

IF INCREMENT<0 THEN F1;=(SUM >= LIMIT) 

UBA:=TARGET P. SKIP IF LIMIT NOT EXCEEDED; 

SKIP IF LIMIT EXCEEDED 

REREAD (P); P: "TARGET P, JSB FOR NEXT 

JSB TO WAIT 2 CLOCKS FOR NEXT, EPOP; EPP2 
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RECORD 

NO 



C "■ 

ADDR 



li'op control instructions 

»...*.,..** ALU A •«•«*••«... 

LA8L rrl:. sreg func sfnc stor spsk 



TBX and MTBX 

• • •••**..>,.*... ALU B •»«••»••»••••• 

rreg sreg func sfnc stor spec skip 
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6160 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6169 
6171 
6172 
6174 
6175 
6177 
6178 
6180 
6181 
6183 
6184 
6186 
6187 
6188 
6189 
6190 
6191 
6192 
6193 
6194 
6196 
6198 
6199 
6201 
6202 
6204 
6205 
6207 
6208 
6210 
6211 
6212 
6214 
6216 



061A 
061B 

061C 

06 ID 

061E 

061F 

0620 



0621 
0622 

0623 

0624 

0625 

0626 



0627 
0628 



Test and Branch, variable in X (TBX) 



SLUT INSTR-TBXO 101 100 OXX XX , SR-2 , DSPL-8 , P , ENTRY-TBX 
SLUT INSTR-TBXiO 101 100 IXX XX , SR»2 , DSPL-8 , P . F2 , ENTRY-TBX 



UBA 


DSPL 
R6 


ADSB 
ADD 


X 


SPIB 


ADD 


UBA 


UBB 


SUB 


RH 


PB 


UBNE 




P 


ADD 
JSZ 



RONP 
HBF2 


8000 
PL 


UBA 


ADDL 
UBNE 




SPIB 




NF2 


RA 


SPIB 


ADD 






F2 


CTFl 


UBB 


UBA 


SUB 






CTFl 


Fl 




P 


ADD 




SPIB 


NFl 


RONP 




RH 


JSZ 


NEXT 


P 


UNC 


UNO 




SPIB 


ADD 




P 


EPP2 



SNOWARN 

* Modify variable In X, Test and Branch 



SLUT INSTR-MTBXO 101 110 Oxx xxx xxx, 
SLUT INSTR-MTBXO 101 110 Ixx xxx xxx, 



MTBX UBA 
X 



DSPL ADSB 
RB ADD 



SPOA RONP 
X NOFL 



SR-2, 
SR-2. 



RB 

UBA 



UBA 
SPOA PB 
UBB RH 



JSB MTXl 
UBNE RH 
SUB 
ADD 



ADD 
JSZ 



CFl 
NF2 
CTFl 
NFl 



NEXT 
UNC 



PL 

8000 RA 
RREG UBA 
RH UBB 
RH PB 



(MTBX) 

DSPL-8. 
DSPL-8, 

ADD 
UBNE 

ADDL 

ADD 

SUB 

ADD 



ENTRY-MTBX 
F2,ENTRY-MTBX 



ADD 
ADD 



RONP 
EPP2 



RH:«UBA; -TARGET P. READ; SP1B;=32K 

F2:-SXGN OF INCREMENT; 

BOUNDS CHECK PL >« TARGET P 

UBA: -VARIABLE AS A LOGICAL QUANTITY; 

UBB: -LIMIT AS A LOGICAL QUANTITY 

F1:-INCR < THEN (VARIABLE >= LIMIT) 

ELSE (LIMIT >- LIMIT) 
BOUNDS CHECK TARGET P >- PB ; 
SP18:=P, SKIP IF LIMIT EXCEEDED 
REREAD (P) INTO NIR IF LIMIT EXCEEDED; 
P: -TARGET P, JSB FOR NEXT 
JSB FOR NEXT; RESTORE OLD P, EPP2 



SPOA: -TARGET P, READ; F2:-SIGN OF INCREMENT 

X:-X ; INCREMENT, SKIP IF NO OVERFLOW; 

BOUNDS CHECK PL >• TARGET P 

JSB IF OVFL, CFl TO INDICATE LIMIT EXCEEDED; 

RH: -LIMIT AS A LOGICAL QUANTITY 

BOUNDS CHECK TARGET P >• PB ; 

UBB:-X AS A LOGICAL QUANTITY 

F1:-IF INCR < THEN (VARIABLE >- LIMIT) 

ELSE (LIMIT >- VARIABLE) 
SKIP IF LIMIT NOT EXCEEDED; 
P:-(TARGET P - PB) + PB , 
SKIP IF LIMIT EXCEEDED 

NEXT; RESTORE P AND READ IF NOT EXCEEDED 
JSB to »NOP to wait 2 clocks; E-pop twice 
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RECORD 

NO 

6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6227 
6228 
6230 
6231 
6233 
6234 
6236 
6238 
6240 
6242 
6243 
6245 
6246 
6248 
6250 
6251 
6252 
6253 
6254 
6255 
6256 
6257 
6258 
6260 
6262 
6264 
6266 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6278 
6280 



C S 
ADDR 



0629 

062A 

062B 

062C 
062D 
062E 
062F 

0630 

0631 
0632 



0633 
0634 
0635 
0636 
0637 



0638 
0639 
063A 



Scan and Test Bits Instructions 

*..>•<,..•»• ALU A ••••...«•«• ............. /^Lij Q *•«••*.><,••««« 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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SCAN (Scan bits) Instruction 



SLUT INSTR.SCANO 001 000 110 OOx xxx, 
SLUT INSTR=SCAN:0 001 100 110 OOx xxx, 



SR=1, DSPL=6, 
SR=1, DSPL=6, 



ENTRY=SCAN 
X, ENTRY=SCNX 



SCNO 0010 
SCNX X 



RA 

UBA 

RA 

UBA 
UBA 



JSB 

ADD 

CAD 

ADDL 
ADD 
ADD 
INC 

ADD 



SCNO 
LSL 



ZERO 
NEG 



SCXO 0010 SP4A ADDL 



UBA JSB SCNl 

ADD 
RA JSB SCXO 
RA REPC 
UBB ADD LSL 

USB ADD 

SREG ADD 
ADD 



UNO 

NEXT 
ZERO 
NEG 
NEG 



CCA 
CCA 



TBC (Test Bit and set Condition code) instruction 



SLU 
SLU 



INSTR=TBC: 
T INSTR=TBC: 



001 Oil 010 XX,SR=1 ,DSPL-6,SR-1 ,ENTRY-TBC 
001 111 010 XX,SR=1 ,DSPL"6,SR=1 ,X,ENTRY=TBC 

TBC XC DSPL ADD ADD SF 

TBCl ADD OOOF UBA ANDL 

ADD 002F UBB SUBL CTR 

ADD Fl ADD 

ADD RSB RA REGN AND CC 

* TRBC (Test and Reset Bit, set Condition code) instruction 

SLUT INSTR"TRBC:0 001 Oil Oil XX , SR«1 ,DSPL>6 , SR«1 , ENTRY=TRBC 
SLUT INSTR=TRBC;0 001 111 Oil XX, SR«1 ,DSPL=6 , X , ENTRY=TRBC 



DSPL ADD 
ADD 
ADD 



JSB 
REGN CAD 
UBB AND 



JSB IF ZERO; 
REPC IF NOT (S) . 
= 1 ; 



(0:11 



(S) - 



UBA:-(S) 

UBB: »(S) 

SHIFT (S) UNTIL BIT 

UBB:-(S) + WSHIFTS 

X:=( (S) + dSHIFTS + 1) 

UBB:=SHIFTED (S), JSB 

X =16; CCA ON 0, NEXT 

SP4A:=X; JSB IF (S) = 

UBA:=0; UBB:=(S). SKIP REPEAT IF BIT(D) 

UBA:=NUMBER OF SHIFTS UNTIL 1 SHIFTED OUT; 

UBB:=SHIFTED (S) 

X =X + ((SHIFTS; 

UBB:=(S) SHIFTED UNTIL 1 SHIFTED OUT, JSB 

NEXT; (S) : -SREG, CCA 

X:=X + 16; CCA ON 0, NEXT 



UBA:.CIR. (12:4)+XC; SFl IF TBC 

; UBB: =UBA. (12:4) ; 

; CTR: =(47 - BIT POSITION) FOR REGN 

SKIP RSB IF TBC, WAIT ONE CLOCK 

RSB IF NOT TBC; TEST BIT, CCA, RSB 



UNC UBA:=CIR. {12:4)*IF INDEXED THEN X; 

; UBB;«NOT BIT 
NEXT ; RESET BIT, NEXT 
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RECORD 

NO 

6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 
6292 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6304 



Scan and Test Bits Instructions 
C,s. ........... ftLU A ••«..«•«..* ............. ALU B ••••••••«••«*• 

ADOR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

* TSBC (Test and Set Bit, set Condition code) instruction • 

SLUT INSTR-TSBCiO 001 Oil 100 xx, SR-1, DSPL-6 , SR-1, ENTRY-TSBC 
SLUT INSTR-TSBCO 001 111 100 xx, SR-1, DSPL=6, SR-1, X , ENTRY-TSBC 
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063B TSBC XC DSPL ADD 
063C ADD 



JSB TBCl 
REGN lOR RA 



UNC 



RA REGN lOR RA NEXT ; SET BIT 
TCBC (Test and Complement Bit, set Condition code) instruction * 



UBA:-CIR.(12:4)+IF INDEXED THEN X; JSB 



SLUT INSTR-TCBCO 001 Oil 101 XX , SR- 1 , DSPL-6 , SR- 1 , ENTRY-TCBC 
SLUT INSTR-TCBC 001 HI 101 XX , SR=1 , DSPL-6 . SR-1 , X , ENTRY-TCBC 



063D TCBC XC 
063E 



DSPL ADD 
ADD 



JSB TBCl 
REGN XOR RA 



UNC 
NEXT 



UBA:-CIR. (12:4)+IF INDEXED THEN X, JSB 
; COMPLEMENT BIT 
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RECORD 


C.S. 


NO 


ADDR 


6307 




6308 




6309 




6310 




6311 




6312 




6313 


063F 


6315 


0640 


6317 


0641 


6319 


0542 


6321 




63?2 


0643 


6324 




6325 


0644 


6:(.':7 




6 ' 2 8 


0645 


6330 


0B46 


6o:;2 


0647 


6334 




6335 


0648 


6337 




6338 




6339 




6340 




6341 




6342 




6343 




6344 


0649 


6346 


064A 


6348 


064B 


6350 


064C 


6352 




6353 


064D 


6355 




6356 


D64E 


6358 


064F 


6360 




6361 


0650 


6363 


0651 


6365 




6366 


0652 


6368 


0653 


6370 


0654 


6372 





EXTRACT and DEPOSIT FIELD instructions 

........... ALU A ........... ............. /^Lij B «.»».......... 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
* EXF (Extract Field) Instruction • 

SLUT INSTR=EXF;0 010 110 IXX XX , SR=1 ,DSPL=4 , ENTRY=EXF 

EXF 



NEXT 
ZERO 
ZERO 



UBA 
UBA 
UBA 


DSPL 
UBA 
UBA 
CIR 


ADD 
ADD 
ADD 
JSB 


LSL 
LSL 
EXF 




RA 


ADD 






UBA 


CSL 




RH 


SREG 

RA 

UBA 


AND 
ADD 
CSL 


SWA 


RH 


SREG 


AND 





0070 
0020 
FFFO 
FFFF 


UBA 
REGN 


ADDL 
ADDL 
ADDL 
ADDL 


SPIB 
CTR 
SP2B 
RH 


UBA 


SPIB 


RPCA 




UBB 


SP2B 


ADD 




RREG 
UBB 


SP2B 


ADD 

REPC 

ADD 





DPF (Deposit Field) Instruction 



SLUT INSTR»DPF:0 010 111 OXX XX, SR 
DF'F 



^2,DSPL = 8,ENTRY = DPF 



UBA 
UBA 
UBA 


DSPL 
UBA 
UBA 
DSPL 


ADD 
ADD 
ADD 
ADD 


LSL 
LSL 
RLZ 


RREG 


UBA 


ADD 






UBB 
UBA 


JSB 
CAD 


DPFS 


RB 


UBA 
SREG 


CSR 
AND 






UBA 
UBA 


ADD 
ADD 
JSBC 


SWAB 
DPFl 



NEG 


OOOF 
0020 


UBA 
UBB 


ADD 
ANDL 
ADDL 
ADD 


UNC 


FFFF 


REGN 


ADDL 


UNC 


0700 
UBA 


UBA 
RA 


ANDL 
RPCA 






UBB 
SREG 


CSR 
ADD 


NEXT 
UNC 


UBA 
UBA 


UBB 

RA 
UBB 


I OR 
ADD 
RPCA 



DCTX CTXO 
EPOP 



DCTX CTXO 
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UBA:=K; SP1B:=MASK FOR MODULO 8 

UBA:=K & LSL(2); CTR : -K + OFFSET FOR REGN 

UBA;=K & LSL(4) ; SP2B;=-8 

UBA.(8:4):=J + K, SKIP IF (J+K) MOD 16 >= 8; 

RH;=MASK WITH K RIGHTMOST BITS 

UBA . = ( S ) ; 

UBB. (9:3) :=(J+K) MOD 8, REPEAT IF <> 

CSL UNTIL COUNT IN UBB. (9:3) IS DECREMENTED 

TO 
(S);=K BITS OF (S) STARTING AT J, CCA; NEXT 
UBA:=(S) 4 CSL(8), REPEAT IF COUNT <> 
CSL UNTIL COUNT IN UBB. (9:3) IS DECREMENTED 

TO 
(S):'K BITS OF (S) STARTING AT J, CCA: NEXT 



■ K 

■K + OFFSET FOR REGN 
:(J+K) MOD 16, 



UBA:=J,K; 

UBA:=J,K & LSL(2) ; UBB: 
UBA:=J,K & LSL(4) ; UBB: 
UBA. (4:4) :=K, UBA . ( : 4 ) : 

SKIP IF >« 8 
UBA. (4:4) :=(J+K) , SKIP; 
UBB:=MASK WITH K RIGHTMOST BITS 
JSB IF ((J+K) MOD 16) > 8; CTX:=(J+K) MOD 8 
UBA:=K MASK COMPLEMENTED; 

UBB:«K RIGHT BITS OF (S), REPEAT IF CTX > 
CSR BOTH ALU'S UNTIL CTX IS DECREMENTED TO 
UBA:«(S-li WITH K BITS STARTING AT J ZEROED; 
UBB:«K BITS OF (S) SHIFTED TO J, EPOP 



UBB:«K BITS OF (S) SHIFTED TO J, EPOP 
NEXT; DEPOSIT K BITS OF (S) INTO (S-1), 
UBA:=K MASK A CSR(8); UBB : = ( S ) A CSR(8) 
UBA:=NOT K MASK, JSB; 
UBB:=K BITS OF (S), REPEAT IF CTX <> 



CCA 
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RECORD 


C S 


NO 


ADDR 


6374 




6375 




6376 




6377 




6378 




6379 




6380 




6381 




6382 




6383 




6384 




6385 




6386 




6387 




6388 


0655 


6390 




6391 


0656 


6392 




6393 




6394 




6395 




6396 




6397 




6398 




6399 




6400 


0657 


6402 




6403 




6 404 




6405 




6406 




6407 




6408 




6409 




6410 


0658 


6412 




6413 




6414 




6415 




6416 




6417 




6418 




6419 


0659 


6421 


065A 


6423 


065B 


6425 


065C 


6427 


065D 


6429 




6430 


065E 


6432 


065F 


6434 




6435 


0660 



IMMEDIATE instructions 

*.«.,»,.... ALU A •«••*•***•« 
LABL RREG SREG FUNC SFNC STOR SPSK 



............. ALU B ••••••.•.«••»• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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The following immediate instructions use the ADSB setting in 

the LUT to overlap the following pairs of instructions, LDI 

and LDN, LDXI and LDXN, CMPI and CMPN , ADDI and SUBI . and ADXI 

and SBXI 



LLNI is the entry point for LDI and LDNI 



SLUT INSTR=LDI,0 010 001 Oxx xx) 
SLUT IN!:TR = LDNI 010 101 Oxx X) 



XXX, ENTRY-LLNI, DSPL'8 
< XXX, ENTRY=LLNI, DSPL-8, F2 



DSPL ADSB 
ADD 



CCA 
EPSH 



JSZ 

JSZ 



PSHM 
NEXT 



LXNI is the entry point for LDXI and LDXN 



SLUT INSTR-LDXI 010 001 IXX XX , DSPL= 8 . ENTRY=LXNI 
SLUT INSTR-LDXNO 010 101 IXX XX , DSPL- 8 , F2 , ENTRY=LXNI 

LXNI DSPL ADSB X CF2 JSZ NEXT 



ADSI is the entry point for ADDI and SUBI 



SLUT INSTR>ADDI;0 010 010 IXX XX , DSPL-B , ENTRY-ADSI , SR • 1 
SLUT INSTR-SUBIO 010 Oil OXX XX , DSPL- 8 . F2 , ENTRY-ADSI , SR" 1 



DSPL ADSB 



MPYI (Multiply immediate) Instruction 



JSZ NEXT 



SLUT INSTR-MPYI;0 010 Oil IXX XX , SR- 1 , DSPL-8 , ENTRY-MPYI 
MPYI 



SPOA 


CIR 
UBA 


ADD 

ADD 

MPAD 

ADD 

ADD 


RRZ 
RLZ 

LRZ 


SP4A 
RH 

SPOA 




RA 
UBB 


RA 

UBB 
UBB 

RH 


ADD 

REPN 

LINK 

ADD 

XSUB 


SPOA 


UBB 

UBA 


ADD 
I OR 


RLZ 


RA 


CCA 


FF80 
RREG 


UBB 
UBB 


ANDL 
XOR 






JSZ 


NEXT 




UNC 




UBB 


JSZ 



HBF2 
CLO 7 
DCTR CTRO 



NZRO 

NEXT 



RH:- +/-( IMMEDIATE OPERAND), CCA, 
PUSH IF SR = 7 



♦/-(IMMEDIATE OPERAND); JSB FOR NEXT 



IMMEDIATE OPERAND, CCO; JSB NEXT 



SP4A:-U; F2:-SIGN(V) 

RH.-U & LSL(8); UBB:-0, REPEAT 8 TIMES, CLC 

MPAD UNTIL CTR IS DECREMENTED TO 

; UBB ; =MSW 

UBA:=SPOA:-LSW. (8:8) ; 

UBB:=IF V<0 THEN MSW - (U*2*«16) ELSE MSW 

UBA (0: 8) : =LSW (0: 8) ; SKIP IF MS 9 BITSoO 

(S) :=RESULT, CCA; 

NEXT, UBB:=0 IF MS 9 BITS ALL IS 

NEXT UNLESS...; MS 9 BITS NOT ALL THE SAME 



NO 

6438 
6439 
6440 
6441 
6442 
6443 
6444 
6446 
6448 
6450 
6452 
6454 
6456 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6469 
6470 
6471 
6473 
6474 
6476 
6477 
6478 
6479 
6480 
6481 
6482 
6483 
6484 
6486 
6487 
6488 
6489 
6490 
6491 
6492 
6493 
6495 
6496 
6437 
6498 
6499 
6500 
6501 
6502 
6503 
6505 



0669 
066A 



IMMEDIATE Ins* ructions 

........... ALU A ..»»»«»•••« ........r,.... ALU B ........<,.<,..<, 

LABL RREG SREG rUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
* DIVI (Divide immediate) Instruction * 

$LUT INSTR=DIVI 010 100 Oxx xxx xxx 





DSPL 


JSZ 
ADD 
ADD 
ADD 


UBA 


DSPL 


OVSB 


UBA 




ADD 
ADD 



;x, S 


R = l, 1 


3SPL=8, 
ADD 


ENTRY=DIVI 




RA 




REPC 


SPIB 


POS 




RA 


SUB 


SPIB SF2 


UNC 




SPIB 


REPN 




10 


UBB 




LINK 


DCTR 


CTRO 


UBB 




ADD 








SP4A 


ADSB 


RA CCA 


NEXT 



0661 
0662 
0663 
0664 
0665 
0666 
0667 



CNMI is the entry point for CMPI and CMPN . F2 is set to 
• perform a SUB for CMPI and cleared to peform an add for CMPN. 

SLUT INSTR=CMPI 010 010 OXX XX , ENTRY=CMNI , DSPL=8 , F2 , SR - 1 
SLUT INSTR=CMPN:0 010 110 OXX XX , ENTRY=CMNI , DSPL=8 , SR=1 

0668 OMNI RA DSPL ADSB SP4A NOFL INC EPOP 



JSZ NEXT 
SP4A ADD 



UNC 
CCA 



UBB lOR 
ADD 



• ASXI is the entry point for ADXI and SBXI 

SLUT INSTRxADXIO Oil 010 IXX XX ,DSPL=8 , ENTRY=ASXI 

SLUT INSTR=SBXI:0 Oil Oil OXX XX ,DSPL=8 , F2 , ENTRY=ASX1 

066B ASXI X DSPL ADSB X CCA JSZ NOP 

• OR Immediate instruction (ORI) 

SLUT INSTR-ORI;D Oil 110 IXX XX .DSPL-S , ENTRY=ORI , SR=1 

066C ORI RA DSPL lOR RA CCA JSZ NOP 

• Exclusive OR Immediate (XORI) 

SUIT INSTR=XORI:0 Oil 111 OXX XX ,DSPL=8 , ENTRY=XORI , SR=1 

066D XORI RA DSPL XOR RA CCA JSZ NOP 
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TRAP IF DIV BY 0; 
; SP1B:=V, REPC IF NEG 

; SP1B--V A F2:=l IF V<0, DELAY 1 CLOCK 
SPOA;=UBA:»0; UBB;=V, REPEAT 17 TIMES 
DVSB UNTIL CTR IS DECREMENTED TO 
WAIT ONE CLOCK FOR ANSWER TO BE IN SP4A 
; (S) : =W, CCA, NEXT 



SP4A:=UBA:=(S) +/- IMMEDIATE OPERAND, 

SKIP NEXT IF NOT OVERFLOW; 
EPOP, UBB;=1 
NEXT IF OVERFLOW; 

SIGN(UBB) ;=SIGN(S) , BUT UBB CANNOT = 0, CCA 
CCA ON (S) - IMMEDIATE OPERAND IF NOFL; NEXT 



X:=X +/- (IMMEDIATE OPERAND), CCA; JSB NOP 



UNC (S):=(S) lOR (IMMEDIATE OPERAND), CCA; 
JSB FOR NOP 



UNC (S):=(S) XOR (IMMEDIATE OPERAND), CCA; 
JSB FOR NOP 
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RECORD C S. .........*. fi^nj f^ ....*...>.. ............. ALU g .*««.>«..«***< 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

6507 ...,*».....»*........*»*»...».»*.......*....»....«....**.»..«...».*.. 

6508 * AND Immediate (ANDI) • 

6509 ..,...».......».*...............*.............................»...».. 

6510 • 

6511 SLUT INSTR=ANDI:0 Oil 111 Ixx xxx xxx. DSPL-8, ENTRY.ANDI, SR»1 

6512 « 

6513 066E ANDI RA DSPL AND RA CCA JSZ NOP UNC (S):=(S) AND (IMMEDIATE OPERAND), CCA; 
6515 JSB FOR NEXT 
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RECORD 

NO 

6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6536 
6538 
6540 
6541 
6543 
6544 
6546 
6547 
6549 
6550 
6552 
6553 
6554 
6555 
6556 
6557 
6558 
6S59 

656 1 
6bB3 
6564 
6566 
6568 
fi'.ftfl 

657 
6571 
6-,72 
65 '3 
65 7 4 
6575 
6576 



Inlege r llnst rue t ions 



C S «...«*»«<,.« ^LU 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



0670 
06 71 
0672 

0673 

0674 

0675 

0676 



0677 
0B78 



0671 
0B7A 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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ADSB is the entry point for the ADD and SUB instructions 



ifLUT INSTR=ADD;0 000 010 000 XX , ENTRY=ADSB , SR = 2 
;tLUT INSTR=SUE!:0 000 010 001 XX , F2 , ENTRY=ADSB , SR = 2 



066F ADSB RB 



UNC (S-1) :-(S-l) +/- (S) , COO; 

JSB TO DELETE (S) AND FOR NEXT 



' MPY (Multiply) Instruction 

SLUT INSTR=MPV:0 000 010 010 XX , ENTRY=MPY , SR=2 

MPY RB ADD 
MPAD 
RA ADD 

RB ADD 

MPYl SPOA ADD 

UBB JSZ IRO 

ADD 

• DIV (Divide) Instruction 

$LUT INSTR=DIV:0 000 010 Oil XX . ENTRY=DIV , SR=2 



HBF2 
HBF2 


RA 


UBB 
UBB 


REPN 
LINK 
ADD 




UBB 


RA 


XSUB 


CCA 


UBB 


UBA 


XSUB 


NZRO 


UBA 


UBA 


LINK 
ADD 



CLO F 
DCTR CTRO 
POP 



RB 
RB 


ADD 
SUB 


XRO 
RB 


POS 


RA 
RB 


ADD 
JSZ 


UBB 


XOR 
JSB 


DVL2 


HBF2 
UNC 


RA 
RB 


ADSB 
REPN 



HBF2 NZRO 
UNC 



* NEG (Negate) Instruction 

SLUT INSTR=NEG:0 000 010 100 XX , ENTRY=NEG , SR=1 
067B NEG RA SUB RA CCO JSZ NEXT 



SP4A:=U, F2:»SIGN(U) ; REPEAT 16 TIMES, CLO 

RREG.=0; MPAD UNTIL CTR IS DECREMENTED TO 

F2;=SIGN(V), ( RA MUST BE SPECIFIED IN RREG); 



UBB 
UBA 
UBB 
(S) 
UBB 
UBA 

IF MS 17 BITS 



MSW, POP (ALLOWS OVERLAP WITH MPYM) 
-U; 

=IF U<0 THEN MSW - (V*2**16) ELSE MSW 
■LSW CCA ' 

=IF V<0 THEN MSW - (U*2**16) ELSE MSW 
=MSW + LSW(O), JSB TO SET OVERFLOW 
ARE NOT THE SAME 



NEXT 



XR0:=U. SKIP IF>=0; F2:=SIGN(V), SKIP IFoO 

(S-1) :=-(U) IF U < 0; 

UBB:=U, TRAP IF DIVIDE BY ZERO 

F2 ;=(SIGN(V) XOR SIGN(U)); RH:=ABS(V) 

UBA:»0, JSB; 

UBB:-ABS(U) , CLO, REPN JSB TARGET 17 TIMES 



(S) :--(S) ; JSB TO NEXT 
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RECORD 


C S, 


NO 


ADDR 


6579 




6580 




6581 




6582 




6583 




6584 




6585 


067C 


6587 




6588 


067D 


6590 




6591 


067E 



INTEGER Instructions 

...*.».»*«. ALU A «.»««•«»»•» 
LABL RREG SREG FUNC SFNC STOR SPSK 



•«...«.>>>.>* ALU B •••*•••••»•*»• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



• CMP (Compare) Instruction 

SLUT INSTR-CMPO 000 001 111 xxx xxx, ENTRY-CMP, SR-2 
CMP RB RA SUB SP4A NOFL INC 

JSZ NEXT UNC RB UBB lOR 
SP4A ADD CCA ADD 



EPP2 
CCA 
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SKIP If NO OVERFLOW ON (S-1) - (S); 

UBB:-1, EPP2 

NEXT IF OVERFLOW; 

SET CCL ON (S-11, UBB CANNOT EQUAL ZERO 

SET CCA ON (S-1) - (S) ; NEXT 
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RECORD 

NO 

6594 
6595 
6596 
6597 
6598 
6599 
6600 
6601 
6603 
6604 
6606 
6607 
6608 
6609 
6610 
6611 
6612 
6613 
6614 
6616 
6618 
6620 
6621 
6623 
6625 
F ( ; I) 
6528 
6t29 
6630 
6631 
6632 
6633 
6634 
6635 
6637 
6638 
6639 
6640 
6642 
6643 
6645 
6647 
6649 
6650 
6652 
6654 
6656 
6657 
6659 
6660 
6661 
6663 
6665 



Double Instructions 
C.S. ».......*«.. ALU A <.••«•«•<.•<.• 

ADDR I.ABL RREG SREG FUNC SFNC STOR SPSK 



067F 
0680 



0681 
0682 
0683 

0684 

OoE'3 



0689 
068A 
068B 

068C 
068D 
068E 



0690 
0691 
0692 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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DADS is the entry point for the DADD and DSUB instructions. 



LUT INSTR=DADD : 0000001001 XX , ENTRY=DADS , SR=4 
SLUT INSTR=DSUB : OOOOOOIOIOXX , ENTRY=DADS , SR=4 , F2 



RB 
UBA 



ADSB 
ADD 



RA 
UBB 



LINK 
ADD 



EPP2 

DCC NEXT 



" MPYL (Multiply long) Instruction - U is multiplied by V. ' 



;tLUT INSTR=MPYL:0 000 001 Oil XX , ENTRY=MPYL , SR = 2 
MPYL RA ADO SP4A HBF2 



ADO 

MPAD RB UBB 

RB ADD HBF2 UBB 



ADD 
ADD 



UBB JSZ DTSl 



UB13 
UBB 



REPN 
LINK 
ADD 

XSUB 
XSUB 



CLO OOOF 
DCTR CTRO 



DIVL (Divide long) Instruction - U is divided by V. 



LUT INSTR=DIVL;0 000 001 100 XX . ENTRY=DIVL , SR=3 



0687 DIVL 



UBA 
UBA 

DVL2 UBA 
UBA 
UBA 



RB 
RH 



ADSB 
DVSB 
JSB DVLl 

DVSB 
ADD LSR 
XOR 



ADO 

SPIB ADD 

ADD 



HBF2 




UBB 


JSZ 


TRP4 RH 


NCRY 
UNC 


UBB 
UBB 


RA 


LINK 
LINK 
REPN 


SP 


FIHB 
PCS 


UBB 
UBB 


SP4A 


LINK 
XFRS 
ADSB 


SP 
RB 




SP3B 


UBB 


JSZ 


IRO 


RSB 




RB 


ADD 
ADD 
REPN 





CLO OOOF 

DCTR CTRO 
SP3B F2HB 

CCA ZERO 



UBA;«MSW( (S-3) , (S-2) +/- (S-1),(S)), CCO; 
NEW (S) .'LEAST SIGNIFICANT WORD, EPP2 
NEW (S-1):-M0ST SIGNIFICANT WORD; 
DCC ON LEAST SIGNIFICANT WORD, NEXT 



SP4A:>V, F2:«sign(V); repeat 16 times, CLO 

RREG:-0; MPAD UNTIL CTR IS DECREMENTED TO 

F2:=SIGN(U) (RB MUST BE SPECIFIED IN RREG); 

UBB:=MSW 

( S ) = L SW ■ 

; (S-1):=IF U < THEN MSW - (V«2**16) 

ELSE MSW 
UBA := msw + Isw(O); Clear carry bit in STA 



XRO:'=MSU (AFTER POP RH=MSU), F2:=SIGN(U); 
SKIP IF V < 0, POP TO ALLOW OVERLAP WITH 

DIV AND LDIV INSTRUCTIONS AND CORRECT 

STACK FOR DIVL AND LDIV IF DIVIDE TRAP 
F2:'=SIGN(W) ; 

RH:--(V) IF <- 0, TRAP IF DIVIDE BY ZERO 
RB:-UBA;-ABS(MSU) ; SPIB : «UBB : =ABS( LSU ) 
FIRST DVSB, SKIP IF NOT (MSU >= V); 
Overflow it msU >= V, JSB, (stops REPN); 

Repeat 16 times, CLO 
DVSB UNTIL CTR IS DECREMENTED TO 
(S):=REM; SP3B ( ) : = ( SIGN( U ) XOR SIGN(V)) 
SKIP IF (SIGN(REM) = SIGN{U)); 
(S-1) ;=QUOTIENT, CCA, SKIP IF QUOTIENT = 
(S) :»-REM, 
JSB IF (SIGN(QUOTIENT) <> 

(SIGN(U) XOR SIGN(V) ) ) 
; NEXT 
SP0A.=LSU; 
UBA;=0, RSB; UBB : =MSU , REPEAT 33 TIMES, SOV 
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RECORD 


c s 


NO 


ADDR 


6668 




6669 




6670 




6671 




6672 




6673 




6674 


0693 


6676 


0694 


6678 




6679 




6680 




6681 




6682 




6683 




6684 




eess 


0695 


6687 




6688 


0696 


6690 


0697 


6692 


0698 



DOUBLE Instructions 

....»...«.» ALU A ••««»•«*»•* 
LABL RREG SREG FUNC SFNC STOP SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



* DNEG (Double Negate) Instruction 

SLUT INSTR«DNEG:0 000 001 101 xxx xxx, ENTRY=DNEG 
DNEG RB SUB CCO 



SUB 
ADD 



RA 
UBB 



LINK 
ADD 



• DCMP (Double Compare| Instruction 

SLUT INSTR=DCMP 000 001 000 XX , ENTRY=DCMP , SR=4 
DCMP RD RB SUB 



ADD 
INC 
lOR 



NOFL 


RC 


RA LINK 


SPIB EPP4 


UNC 

NEXT 

CCA 




UBA ADD 

SPIB ADD 

ADD 


CCA 
Dec 
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CCO ON MSW OF NEGATED DOUBLE WORD; 
{S-1):=MSW; DCC ON LSW, NEXT 



( S ) = LSW 



UBA, SPIB: -(OPERAND 1) - (OPERAND 2), SKIP 

IF NO OVERFLOW, EPP4 
SKIP IF OVFL; SET CCA ON MSW OF DIFFERENCE 
UBA:-1, NEXT IF NOFL; SET DCC ON LSW 
SET CCA ON SIGN OF MSW OF OPERAND 1; NEXT 
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RECORD 



DOUBLE Instructions 
LABL RREG SREG FUNC SFNC STOP SPSK 



«..«««•«...«. ALU B •••«•*••*•«••• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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66 ■'■ 
6 6 '■) ?. 
66^9 
6 7 00 
6701 

e/o.: 

6/0', 
6 706 
6708 

e'nt 

6710 
6711 
6712 
6713 
6714 
6716 
6718 
6720 
6722 
6724 
6726 
6728 
6730 
6731 
6733 
6734 
6736 
6737 
6738 
6740 
6741 
6742 
6744 
6745 
6746 
6747 
6749 
67^0 
6752 



06.T9 
06:jA 



069C 
069D 
069E 
069F 
06A0 
06 A 1 
06A2 
06A3 

06A4 

06A5 



a6A6 
06A7 



06A8 
06A9 



The following code handles the SR preadiust for DMUL and 
DDIV Entry for both is through the optional instructions 
entry poiflt («GRP7). SR is adjusted to 4. 



DMDV JSZ 

SR SP4A JSZ 



PULM 
PULM 



SRL2 
ZERO 



JSZ 
SR SP4A JSZI 



PUL2 
PUL2 



SRZ 
ZERO 



CIR JSB DDIV 



DMUL (Double Multiply) Instruction 
optional instructions entry point 



Enl ry is t hrough 



RD 
RB 
RB 
RD 
UBB 



ADD 
ADD 
SUB 
ADSB 
ADD 
ADD 
UBA MPAD 
UBA ADD 



SPOA 
DMSO SPOA 



ADD 
ADD 



HBF2 




RB 


ADD 


POS 




RA 


SUB 


FITC 


RB 


RD 


XOR 






RC 


LINK 






UBA 


ADD 
REPN 




RA 


UBB 


LINK 






UBB 


ADD 


POS 


UBA 


UBB 


I OR 


SFl 


SP3B 




ADD 



RA CTFl 
HBF2 



UBA ADSB RD CCA 
DMNX UBA ADD LSL 



JSB DMSO 
JSB DMNX 



NF2 
UNC 



UBB LINK 
UBB ADD 



UBA UBB lOR 

JSB DMSO 



CLO IF 
DCTR CTRO 



EPP2 ZERO 
SOV UNC 

Fl 

RC DCC NEXT 

ZERO 
UNC 



Pull 2 if SR = else pull 1 if SR = 
Pull 2 if SR - 2 else pull 1 if SR ■ 

(UBB = SR - 3 + 1) (UBA = SR - 3 ) 
Jump if Double Divide instruction 



F2:=SIGN(U) ; SKIP IF V<0 

SKIP IF V<6; (S):"-(S) IF V<0, F1:=CARRY 

(S-1) --(S-l) IF V<0; F2:-SIGN OF ANSWER 

UBA,UBB:«ABS(U) 

SP4A;-LSU; SP3(3:-MSU 

UBA:=0; UBB:=0, CLO, REPEAT 32 TIMES 

MPAD UNTIL CTR IS DECREMENTED TO 

UBA : "ABS ( PRODUCT .(0:16)); 

UBB :=ABS( PRODUCT, (16:16) ) 

SKIP IF ABS( PRODUCT. (32:1) ) = 

SKIP IF ABS (PRODUCT. (0:32) ) ^ 0. EPP2 

UBA: •ABS(PRODUCT. (32:16) ) , F1:=BIT 32 

UBB: =ABS (PRODUCT. (48 : 16) ) , SOV AND SKIP IF 

MS 32 BITS <> 
NEGATE ABS (PRODUCT) IF PRODUCT < 0, 

(S-IJ AFTER EPP2 ;- PRODUCT ( 32 : 16 ) , CCA; 
UBB :=PRODUCT. (48:16) , SKIP IF BIT 32 = 1 
UBA: 'PRODUCT. (33:15) ; 
(S) AFTER EPP2 :- PRODUCT .( 48 : 16 ) , DCC 

NEXT IF MS 32 BITS OF ABS(PRODUCT) <> 

OR MS 32 BITS = AND BIT 32 = 
JSB IF EXPECTED SIGN IS POSITIVE; 
SKIP IF PRODUCT. (33:31) = (+/-(2*«31)) 
JSB TO FINISH IF PRODUCT ' -2**31 
SOV TO INDICATE MS BITS ARE NOT THE SAME 
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RECORD 


C S 


NO 


ADDR 


6754 




6755 




6756 




6757 




6758 




6759 


06AA 


6761 


06AB 


6763 


06AC 


6765 


oeAD 


6767 


OBAE 


6769 


OSAF 


6771 


O6D0 


6773 


06B1 


6775 


OBBr 


6777 


06a3 


6779 




6780 




6781 


06B4 


6783 




6784 




6785 


06B5 


6787 




6788 




6789 


0686 


6791 


06B7 



DOUBLE Instruciloni 
LABL RREG SREG FUNC SFNC STOR SPSK 



************* ALU B ************** 
RREG SREG FUNC SFNC STOR SPEC SKIP 



DDIV (Double Divide) Instruction - Entry is through 
optional instructions entry point 



RA 


RB 


lOR 






NZRO 




RB 


ADD 






JSZ 


TRP4 




UNO 




RD 


ADD 




RB 


ADSB 










RA 


LINK 




UBA 


ADD 




RB 




RB 


RD 


XOR 




RD 


ADSB 
ADD 




SPOA 






RC 


LINK 
REPN 


UBA 


RB 


DVSB 








UBB 


RA 


LINK 


UBA 




ADD 


LSR 


SP4A 


FIHB 


UBB 




LINK 




SP4A 


ADSB 




RC 


CTFl 


SP3B 




ADD 




UBB 


ADSB 




RD 


FITC 


UBA 


UBB 


lOR 


RD 


SP4A 
RD 


XOR 
ADD 






HBF2 
CCA 


UBA 


UBB 


XOR 
ADD 




RA 


ADSB 




RA 


CTFl 






ADD 




SP4A 


ADSB 




RB 


FITC 




RC 


ADD 



HBF2 
HBF2 




HBF2 




CLO 
DCTR 


20 
CTRO 


F2HB 


ZERO 




NEG 




UNC 


SOV 

DCC 


NEXT 
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SKIP IF V-O; F2:»SIGN(V) 

JSB IF DIVIDE BY ZERO; F2:-SIGN(U) 

UBA,RA:«ABS{V) 

RB:«ABS(MSV) ; F2:«(SIGN(U) XOR SIGN(V)) 

SP0A,SP3B:rABS(U) 

UBA, UBB =0, REPEAT 33 TIMES, CLO 

DVSB, DECREMENT CTR UNTIL EQUAL TO 

SP4A, (S) :-ABS(REM) 

(S-2):-LSW, F1;»CARRY; UBB : -ABStMSW) 

(S-3) :-MSW; 

UBB. (0:1) :-(SIGN(U) XOR SIGN(V)), 

SKIP IF QUOTIENT ON TBUS EQUALS 
F2:-(SIGN(U) <> SIGN( ABS(REM) ) ; 
SKIP IF SIGN(QUOTIENT) <> 

(SIGN(U) XOR SIGN(V)) 
SET CCA ON MSW; 
SKIP IF QUOTIENT-0 OR 

SIGN(OUOTIENT)»(SIGN(U) XOR SIGN(V)) 
(S) :«LS(REM) ; SOV (QUOTIENT IS +(2*«32)1 
(S-1) :-MS(REM) ; DCC ON LSW, NEXT 
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RECORD 


C S 




NO 


AODR 


LABL 


6794 




• ••* 


6795 






6796 




* A * * 


6797 






6798 




SLUT 


6799 






6800 


06B8 


INCX 


6802 






6803 




* A * * 


6804 






6805 




A * A * 


6806 






6807 




SLUT 


6808 






6809 


0689 


OECX 


6811 






6812 




A A A A 


6813 






6814 




A A A A 


6815 






6816 




SLUT 


6817 






6818 


06BA 


INC A 


6820 






6821 




A A A A 


6822 






6823 




A A A A 


6824 






6825 




SLUT 


6826 






6827 


06BB 


DECA 


6829 






6830 




A A A A 


6831 






6832 




A A A A 


6833 






6834 




SLUT 


6835 






6 836 


ORBC 


INCB 


6^3?, 






68" ) 




A * A A 


684 






6341 




A A A A 


6842 






6843 




JLUT 


6844 






6 8 45 


06BD 


DECB 



Inc r erne nt /Dec rement Inst ruct ions 

AAA A A AAA A. A fi^^J f, ..AAA A. A A A. A A A A A A A A A A A A A ftiy Q A A A A A A A A A A A A A A 

RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP COMMENT 

INCX (Increment X) Instruction * 

INSTR»INCX:0 000 000 100 XX , ENTRY = INCX , SR = 

X INC X ceo JSZ NEXT 
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DECX (Decrement X) instruction 

INSTR«DECX:0 000 000 101 XX , ENTRY=DECX , SR=0 

X CAD X ceo JSZ NEXT 

INCA (Increment A) Instruction 

INSTR-INCA:0 000 Oil Oil XX , ENTRY«INCA , SR-l 

RA INC RA CCO JSZ NEXT 

DECA (Decrement A) Instruction 

INSTR«DECA;0 000 Oil 100 XX , ENTRY-DECA , SR=1 

RA CAD RA CCO JSZ NEXT 

INCB (Increment 6) Instruction 

INSTR=INCB:0 000 ill Oil XX , ENTRY'INCB , SR«2 

RB INC RB CCO JSZ NEXT 

DECB (Decement B) Instruction 

INSTR=DECB:0 000 111 100 XX , ENTRY-DECB , SR=2 

RB CAD RB CCO JSZ NEXT 



UNC X:=X + 1, CCO; JSB FOR NEXT 



UNC X;»X - 1, CCO; JSB FOR NEXT 



UNC (S):-(S) + 1; JSB FOR NEXT 



(S) :«(S) - 1; JSB FOR NEXT 



UNC (S-1):-(S-1) + 1; JSB FOR NEXT 



(S-1):=(S-1) - 1; JSB FOR NEXT 



PAGE 142 

RECORD 

NO 

6848 
6849 
6850 
6851 
6852 
6853 
6854 
6856 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 
6866 
6868 
6870 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6881 
6883 
6885 
6887 
6889 
6890 
6891 
6892 
6893 
6894 
6895 
6896 
6898 
6900 
6901 
6902 
6904 
6906 
6908 
6910 
6912 
6913 



C S 
ADDR 



06BE 
06BF 



06C0 
06C1 
06C2 



06C3 
06C4 
06C5 
06C6 

oec7 



06C8 
06C9 



06CA 
06CB 
06CC 
06CD 
06CE 



Logical Instructions 

«*9(**ftAii«ik* ALU A *********** 
LABL RREG SREG FUNC SFNC STOR SPSK 



*******•*••«• A|_|J Q (••«*•••*•••• It 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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* LCMP (Logical Compare) Instruction 

SLUT INSTR-LCMP:0 ODD 101 111 XX , ENTRY'LCMP , SR»2 



ADD 
JSZ 



EPOP 
EPOP 



SUB 
CAD 



CCZ CRRY EPOP; SET CCZ ON (S-1) - (S), SKIP IF > ■= 
CCA JSB FOR NEXT, EPOP; SET CCL IF (S-1) < (S) 



LADS is the entry point for the LADD and LSUB instructions. 



SLUT 
SLUT 



INSTR»LADD:0 000 110 000 XX , ENTRY-LADS , SR-2 
INSTR-LSUBO 000 110 001 XX ,ENTRY«LADS , SR-2 ,F2 



ADSB 

ADD 

ADD 



CCA 

EPOP 

NEXT 



ADSB 

ADD 

ADD 



SLUT INSTR-LMPY:0 000 110 010 XX ,ENTRY-LMPY ,SR-2 
LMPY RA ADD SP4A 



SPOA 



ADD 

MPAD 

ADD 

ADD 

ADD 



RA 







REPN 




CCRY 


OOOF 


RB 


UBB 


LINK 




DCTR 


CTRO 




UBB 


ADD 
ADD 


RB 


CCA 
SCRY 


ZERO 


UBA 




ADD 




DCC 


NEXT 



k * A* A ]t*i 



SLUT 

LDIV 



LDIV (Logical Divide) Instruction 

i««********ftA**«****ft***ftAM*******A*A*ft««A*** 

INSTR=LDIV:0 000 110 Oil XX , ENTRY=LDIV, SR-3 



LDVl UBA 
UBA 

LDV2 



RA 
RB 


JSB 
ADD 


DIVL 


SPOA 


ZERO 
SFl 


RC 


RA 


ADD 
JSBS 


LDV2 


RA 

SP4A 

RC 


ADD 

DVSB 

ADD 

ADD 

JSB 


LSR 
LDVl 


RB 

RC 


CFl 

FIHB 

CCA 

CFl 


RC 
UBB 


RB 


REPN 

LINK 

ADD 

ADD 

REPN 





CRRY (S-1):-(S-1) ♦/- (S), CCA; SKIP IF CARRY 
CCRY UNC EPOP; CLEAR CARRY, SKIP IF NO CARRY 
SCRY NEXT; SET CARRY 



SP4A :■ V; UBB :■ 0, repeat 16 times, CCRY 
RREG;»0; MPAD UNTIL CTR IS DECREMENTED TO 
; (S-1):«MSW, CCA, SKIP IF = 
(S) :-LSW; SCRY IF MSW <> 
; DCC ON LSW, NEXT 



JSB (tDIVL DOES POP AND TRAPS); 
NCRY SPOA: 'LEAST SIGNIFICANT DIVIDEND, SFl T 
INHIBIT EFFECT OF DVSB ON RREG; 
JSB IF MS DIVIDEND < DIVISOR 
SOV 0020 CFl, UBA:.0; UBB:-MSU. REPEAT 33 TIMES, 
DCTR CTRO DIVIDE BY V ANOTHER 17 TIMES 
EPOP AFTER EPOP (S ): "REMAINDER ; EPOP 

NEXT (S-1) : ^QUOTIENT MOD 2**16, CCA, NEXT 
CLO 0010 CFl, UBA =MSU, JSB; 

UBB;=LSU, REPEAT 17 TIMES, CLO 
JSB FOR NEXT; CCB ON (S) 
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RECORD 


C.S. 


NO 


ADDR 


6915 




6916 




6917 




6918 




6919 




6920 




6921 




6922 




6923 




6924 




6925 




6926 




6927 




6928 




6929 




6930 




6931 




6932 




6933 




6934 




6935 




6936 




6937 




6938 




6939 




6940 




6941 




6942 




6943 




6944 




6945 




6946 




6947 




6948 




6949 




6950 




6951 




6952 


06CF 


6954 


06D0 


6956 




6957 


06D1 


6959 




6960 


06D2 


6962 




6963 


06D3 


6965 


06D4 


6967 




6968 


06D5 


6970 




6971 


06D6 


6973 




6974 


06D7 


6976 




6977 


06D8 


6979 


06D9 


6981 


06DA 



TCLOCK Interrupt handler 



"uG' 



LABL RREG SREG FUNC SFNC STOR SPSK 



..<.,.>«••.... ALU B «...*..... 
RREG SREG FUNC SFNC STOR SPEC SKIP 



Performs system clock, 

begin 

TCLK;=TCLK+K; 
if TCLK < then 

if not ICSFLAG PC : - F 
CR : • CR + 1^ 

?o to LI; 
se 
if not ICSFLAG then PC; 
update CIR display; 
CR:=CR+1, 
IF CR=0 THEN 



process clock simulation 



<<«TCKI: TCLK interrupt >> 
<< reset TCLK for 1ms int ; 
<< check if TCLK went too>; 
< < negat ive > ; 

<< inc PCLK >) 

<<updat« CR >; 



update process clock >) 
do front panel display) 
inc COUNT REGISTER >> 



begin <<»TICK: system clock interrupt 

It not (STAT.(1;1) and TON) then 



begin 



■1; 



5INCBIT 
DINTFF; 
(TR);.(TRJ+(LR) 
end 
else 
begin 

SINCBIT;=0; 
TON:=a; 
TR:»0; 

PLABEL:«!8C01; 
INT9; 
end ; 
end ; 
RESTART instruction p 
end; << TCLK int h 
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<«TIC0: cant do s/w int 
<< flag missed timer int 
<< set deferred int F/F 
<< update TSLI ( TR ) 



<<#TIC1 set up s/w int >> 



<< disable sys clock ints 
<< TSLI is now >> 



<< ICS setup, xfer to PLABEL>>' 



rocesslng ; 
andler >> 



K » clock constant ( ( Ims/clock period ) - 2 ) 



SP4A 
RH 



RH 




JSZ 

ADD 


TIME 


0014 




ADDL 




3413 




ADDL 




1000 


CPX2 


ADD 
ANDL 




UBA 




ADD 




UBA 




ADD 




UBA 




ADD 






RH 


INC 
JSB 
JSZ 


CIRD 
TIME 



R0B3 

UNC 

UNC 



00A4 


XR31 


ADDL 
ADD 




SP2B 
BKX7 


0030 


SP4A 


ADDL 
ADD 




CTR 


UBA 
UBB 


REGN 


ADD 
JSB 


TC2 


REGN 


UBA 




ADD 








XR20 


INC 




XR20 




BKX7 


JSBI 


TCI 


BKX7 


OOOF 


UBA 
XR20 


ADD 
INC 
ADDL 




XR20 
SP2B 



POS 
NZRO 



UNC 
NZRO 



Add delta t to normal execution count 
Store mask to clear TCLKINT in SP4A4 
Store CR value into BKX7 
RH :• 5420 for read of ( LR ) & ( TR ) ; 

CTR := REGN code for TCLK 
UBA := (1 ms / 75.0 ns) - 2; 
Clear TCLKINT (UBB • lOAOO) 

TCLK := TCLK + clock constant 
UBA :• ICSFLAG 
If TCLK >= 0, go to TC2 
UBA -.' ICSFLAG 
Skip next line if ICSFLAG 
UBA :• ICSFLAG 
Increment PCLK if not ICS 
UBA ;« ICSFLAG 
Inc CR and repeat the loop 
UBA := «21, read (LR); Skip if ICSFLAG 
Update CIR display; Inc PCLK if not on 
JSB to «TIME to set countsave » TCLK; 



(2635) 
(2635) 



2635) 



(2635) 
(2635) 
(2635) 
(2635) 
(2635) 
(2635) 
(2635) 
(2635) 

ICS 
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RECORD 


C S 




NO 


ADDR 


LABL 


6983 






6984 


06DB 




6986 






6987 




* * * • 


6988 




* 


6989 


06DC 


TICK 


6991 


06DD 




6993 






6994 




• 


6995 




• 


6996 


06DE 


TICO 


6998 


06DF 




7000 


06E0 


TICR 


7002 




* 


7003 




* 


7004 




* 


7005 


06E1 


TICl 


7007 






7008 


06E2 




7010 






7011 


06E3 





TCLOCK Interrupi handler 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 

RH CAD R0X3 BKX7 JSBI TICR XR31 NE6 

tick: CR has been incremented to 0, may do t/w interrupt 



STA ADD LSL 
XR15 JSB TICl 



PCS UBB OPB ADD 
BITS OPB SUB 



RH 

XR31 SFl 



TICO: (interrupts LAND TON) > so don't do timer interrupt 

CCPX 



XR15 ADD 
RH OPA ADD 
1000 STA ANDL 



XR15 FIHB 0007 ADDL 
DATA UBB ADD 

JSZ RSRT 



TICl: (Interrupts LAND TON) • 1 so do timer interrupt 

UBA ADD SPOA SF2 7F7F ADDL 

UBB XR15 AND XR15 CFl 8C01 ADDL SPIB 

JSZ INT9 DATA ADD 



10/ 2/86 9:26 AM 

COfWENT 

SP2B :« STOR NOP to throw away delta t 
UBA :- X17,read (TR);(CR) := (CR) + 1,(2635) 
restart instruction if < 



SKip if interrupts are off; RH :• + ( LR ) 
Service interrupt if interrupts on and TON; 
(CR) :• -(LR), set Fl 



Set SINC bit; UBB :- mask to set DINTFF 

(TR) :- (LR) ♦ (TR); Set DINTFF 

UBA :• right stackop bit; Restart instr 



set F2 for ilNTg; 



:(TR) + (LRn, 

clear SINC bit and TON 



SPOA :• param 

UBB :> mask 
Clear SINC bit and TON, clear Fl for »IR1; 

SPIB :- external label (%106001) 
(TR) :« 0, service interrupt; 
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RECORD 


C.S 


NO 


ADDR 


7014 




7015 




7016 




7017 




7018 


06E4 


7020 


06E5 


7022 


06E6 



CIR Update routine 10/ 2/86 9:26 AM 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP COMMENT 

* CIR Update Routine: for LP and PP systemr. just return • 

GIRD ADD RSB ADD Just return tor now 

ADD ADD NOP to keep system happy (2555) 

ADD ADD NOP to keep system happy (2555) 
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RECORD 


C.S. 


NO 


ADDR 


7025 




7026 




7027 




7028 




7029 




7030 




7031 




7032 




7035 




7036 




7037 


0700 


7039 




7040 




7041 




7042 




7043 




7044 




7045 


0701 


7047 


07 02 


7049 


070J 


7051 




705if 


0704 


7054 


0705 


7056 




7057 




7058 




7059 




7060 




7061 


0706 


7063 




7064 


0707 


7066 




7067 


0708 


7069 




7070 


0709 


7072 




7073 




7074 




7075 




7076 




7077 




7078 




7079 




7080 




7081 




7082 


070A 


7084 


070B 


7086 




7087 


070C 


7089 




7090 




7091 




7092 




7093 


070D 


7095 


C70E 


7097 





Privileged Memory Reference Instructions 

• ••••«•;••• ALU ft, »....«»««.. ............. ALU B «••••••••••••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• PLSA is the entry point for PLDA and PSTA instructions. * 

• Q relative addressing is specified in the LUT entry to * 

• neaate the effect of FSS in the calculation of TICB. * 

SLUT INSTR»PLDA/PSTA:0 010 000 Oil Olx xxx, 0, ENTRY-PLSA 

%0700 

PLSA CIR JSB PSTA ODD SR SM JSZ TRP6 SP3B NPRV 



PLDA (Privileged load from absolute address) Instruction 
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JSZ 
ADD 
CAD 

ADD 
ADD 



SR7 

R0B3 

EPSH 



ADO 

BNKS ADD 

SP3B U8A SUB 

OPB ADD 
REGN ADD 



RH 
RH 



CCA 
CCA 



NZRO 
TICB 



NEXT 
NEXT 



PSTA (Privileged store into absolute address] 



Leged 







JSZ 


X 




ADD 


UBA 


SM 


CAD 




RA 


ADD 



SRZ 
WRX3 
EPOP 
REGN DATA 



ADD 

BNKS ADD 

SP3B UBA SUB 

ADD 



Instruction 

BKX3 TICB 

CTR TICB 



LSSD is the entry point for LSEA , SSEA, LDEA, and SDEA . • 

* The SR preadiust is set to the minimum value, 2, required ' 

* for any of the four Instructions. is specified in the LUT • 

* to make the TICB option work properly. • 

SLUT INSTR.LSEA/SSEA/LDEA/SDEA:0 010 000 Oil 10, ENTRY=LSSD, SR=2, 
LSSD CIR ADD LSR EVEN 0003 



ADD 
JSB 



LSR 
DEA 



EVEN 
UNC 



ADDL SPIB 
JSZ TRP6 



CIR JSB SSEA ODD SR SPIB SUB CTFl 

* LSEA (Load single word from extended address) instruction • 



OOFF RB 
UBB 



ANDL BKX3 
JSZ PSHM SP3B 



JSB IF PSTA INSTRUCTION; 
SP3B:-SR + SM, TRP6 IF NPRV 



JSB TO EMPTY A TOS REG IF SR =■ 7 ; BKX3.=0 

UBA: -ADDR, READ; SKIP IF BNKS <> 

EPSH; CTR:-(S - ADDR), SKIP IF ADDR > SM AND 

AND S >- ADDR AND BNKS = 
. RH; 'OPERAND, CCA, NEXT 
; RH:-WORD IN TOS, CCA, NEXT 



JSB TO LOAD ONE TOS IF SR = 0; 

BKX3:=0, TICB LOADS CTR WITH CODE FOR NOP 

UBA: 'ADDR, WRITE USING BKX3 ; 

SKIP IF BNKS <> 

EPOP; CTR:-(S - ADDR), SKIP IF ADDR > SM AND 

S >= ADDR AND BNKS » 
WRITE (S); NEXT 



SKIP IF NOT CIR(14); SP3B:=3 

JSB IF LDEA OR SDEA INSTRUCTIONS; 

TRAP IF NOT PRIVLEGED 

JSB if SSEA instruction; Set Fl if SR 



BKX3 : ' bank adr . (8 :8) 
H = SR + SM. SP38 := bank adr (tor rtn 
from IIPSHM), Push one TOS if SR = 7 
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RECORD 

NO 

7098 
7100 
7102 
7103 
7105 
7107 
7108 
7109 
7110 
7111 
7112 
7114 
7116 
7117 
7118 
7120 
7122 
7124 
7125 
7127 



C S 
ADDR 



070F 
0710 



0711 
0712 



0713 
0714 



0715 
0716 
0717 

0718 
0719 



Privileged Memory Reference Instructions 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



RA 
SM 



ADD 
CAD 



ADD 
ADD 



R0B3 
EPSH 



UBB 
RH 



BNKS SUB 
UBA SUB 



OPB ADD 
REGN ADD 



RH 
RH 



CCA 
CCA 



NZRO 
TICB 



NEXT 
NEXT 



* SSEA (Store single word into extended address) instruction " 



ss;ei SR 
RB 



RB 
SM 
SM 

RA 
RA 



ADD 
JSB 



ADD 
ADD 
CAD 

ADD 
ADD 



WRX3 


OOFF 


RC 
UBB 


ANDL BKX3 
JSZ PULM SP3B 


WRX3 
EPOP 


OOFF 

UBB 

UBA 


UBA 

BNKS 

RB 


ANDL BKX3 

SUB 

SUB CTR 


DATA 






ADD 



NZRO 
TICB 



NEXT 
NEXT 
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COMMENT 

UBA:=-ADDR, READ; SKIP IF BANK ADDR <> BNKS 
EPSH; CTR:-(S - ADDR), SKIP IF ADDR > SM AND 

AND S >■ ADDR AND BANK ADDR = BNKS 
; RH:=OPERAND, CCA, NEXT 
; RH:»WORD IN TOS , CCA, NEXT 



; BKX3 : ■ bank adr . (8:8) 
Write using BKX3 . jump if SR >» 3; Else 

SP3B -.' UBB (for rtn from «PSHM), push one 

TOS 
Write using BKX3 ; BKX3 := bank adr. (8:8) 
UBA:=SR + SM; SKIP IF BANK ADDR <> BNKS 
EPOP; CTR:=(S - ADDR), SKIP IF ADDR > SM AND 

S >» ADDR AND BANK ADDR <> BNKS 
WRITE (S); NEXT 
STORE (S) IN TOS; NEXT 
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P r ivilege 


d Memory R 
" ALU A • 


■ ferenct Instructions 










RECORD 


C S 




tit* 


«••«• 


«« «• • 


• • > * • 


••••••«•• 


'••* ALU B 


• « <r • 




NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPSK 


RREG SREG 


FUNC 


SFNC 


STOR 


SPEC 


7130 




• >«. 


..«« 


«•*.. 


»*>,,, 


• <,«• 


• <•«• 


•«<••• 


..«...«..« 




*•«• 




»•••• 


7131 




« 


CEA 


splits apart LDEA an 


d SDEA 


ins t rue t ions . 








7132 




d * * * 


* * * * 


* * * A * 




« * * • 


» n * * « 


ft ft ft A A A 


**A*****A* 




** A m 






7133 




• 
























7134 


071A 


DEA 




CIR 


JSB 


SDEA 




ODD 


0002 


ADDL 




SP2B 




7136 




• 
























713 7 




■k * A » 




* * * * * 


A A A A A « 


ft A A A 


» * • * * 








Ik M * * 


A A A A A 


M * * * * 


7138 




• 


LDEA 


(Loa 


d double f 


rem extends 


d add ress ) 


Inst 


uc t ion 




7139 




* * * * 


k « * * A 


A A A * * 


A A A A A 1 


* A A A 


k * * * N 


A A A * A * 






* t ft * 


A A A A A 


Ik A A A * 


7140 




• 
























7141 


071B 


LDEA 






JSZ 


PSM2 




SRG5 


OOFF RB 


ANDL 




BKX3 




7143 


07iC 






RA 


ADD 






R0X3 


RA 


INC 






R0X3 


7145 


071D 








ADD 








OOFF RB 


ANDL 








7146 


071E 








ADD 






EPSH 


UBB BNK5 


JSBS 


LDEl 






7148 


071F 






OPA 


ADD 




RH 


CCA 


SR SM 


ADD 






EPSH 


7150 




























7151 


0720 








ADD 






NEXT 


UBB OPB 


XFRS 




RG 


DCC 


7153 


0721 


LDEl 


RA 


SM 


CAD 






EPSH 


RREG RA 


SUB 




CTR 


TICB 


7155 




























7156 


0722 




RA 


SM 


SUB 








RREG RA 


CAD 




CTR 


TICB 


7158 




























7159 


0723 






REQN 


ADD 




RH 


CCA 




ADD 








7161 


0724 








ADD 






NEXT 


REQN 


ADD 




RG 


DCC 


7163 




























7164 




* « « A 


ft * A * * 


ft « A * A 


A A ft A A 


A A A A 


ft ft A ft A 








A A ft ft 




ft A A A A 


7165 






SDEA 


(Store double word 


into extended address 


Ins 


;ruct 


ion 


7166 




* A A * 


ft A * * * 


A A A A A 


A A ft A A 


A A A A 


ft ft ft A A 




AAAAAAAAAft 


ft ft ft A A II 


ft ft A ft 




ft ft ft A A 


7167 




























7168 


0725 


SDEA 


SR 


SPIB 


JSZC 


PULM 




NCRY 


SR SP2B 


JSZC 


PUL2 






7170 




























7171 


0726 






RC 


ADD 






WRX3 


BNKS 


ADD 






EPP2 


7173 


0727 




OOFF 


RD 


ANDL 








UBB 


ADD 








7174 


0728 




UBA 


UBB 


JSBS 


SDEl 




ZERO 


UBA 


ADD 




BKX3 




7176 


0729 






RB 


ADD 






DATA 




ADD 








7178 


072A 






RA 


ADD 






DATA 


SR SM 


ADD 








7180 


072B 


SDEl 


RC 


SM 


CAD 








UBB RC 


SUB 




CTR 


TICB 


7182 




























7183 


072C 






RB 


ADD 




REGN 


DATA 


RREG 


ADD 








7185 


072D 




RC 


SM 


SUB 








RREG RC 


CAD 




CTR 


TICB 


7187 




























7188 


072E 






RA 


ADD 




REGN 


DATA 




ADD 
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JSB IF SDEA INSTRUCTIONS; SP2B:-2 



JSB IF SR > 5; BKX3 : «BANK ADDR 
READ FIRST WORD; READ SECOND WORD 

EPSH; JSB IF BANK ADDR «= BNKS 

NEW (S-i): -FIRST WORD, CCA; 

UBB:«SR + SM, EPSH 

NEXT; RREG:«S, NEW ( S) : =SECOND WORD , DCC 

EPSH; CTR;»IF ADDR > SM AND S >' ADDR THEN 

(S - ADDR) ELSE CODE FOR OPERAND 
; CTR:-IF (ADDR+1) > SM AND S >= (ADDR+1) 

THEN [S - (ADDR+1 )) ELSE CODE FOR OPERAND 
RH: -FIRST WORD. CCA; 
NEXT; RG: 'SECOND WORD, DCC 



PULL WORD INTO TOS IF NOT ( SR > 3); 

PULL 2 WORDS IF NOT (SR > 2) 

READ ADDR (S-2) (WILL BE VALID EITHER WAY); 

JSB IF BNKD - BANK ADDR; BKX3 : -BANK ADDR 
WRITE FIRST WORD; 

WRITE SECOND ADDR; UBB:-SR + SM. NEXT 
; CTR;. IF ADDR > SM AND S >• ADDR THEN 

(S - ADDR) ELSE CODE FOR NOP 
WRITE FIRST WORD; RREG:=S 
; CTR: -IF (ADDR+1) > SM AND S >- (ADDR+1) 

THEN (S - (ADDR+1 )) ELSE CODE FOR NOP 
WRITE SECOND WORD; NEXT 
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RECORD 

NO 

7191 
7192 
7193 
7194 
7195 
7196 
7197 
7198 
7199 
7200 
7201 
7202 
7203 
7204 
7206 
7208 
7210 
7211 
7212 
7213 
7215 
7217 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
7r?8 
7r29 
V 2 -1 
7231 
12?.? 
7 2.3 J 
7235 
7237 
7239 
7240 
7241 
7243 



C.S. 
ADDR 



072F 
0730 
0731 



0732 
0733 
0734 



01 2"! 
0730 
0737 



0738 
0739 



Memory Reference Instructions 

• .<,.«.<,.«>. ALU A «««•««««•«« 

LABL RREG SREG FUNC SFNC STOR SPSK 



• .*...«..«.«<, ALU B >«<,*..*.<,•..«• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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INCM; Increment memory, direct cases 



SI.UT INSTR = 

$l.UT INSTR = 

$l.UT INSTR = 

SLUT INSTR= 

$l.UT INSTR = 

$l.UT INSTR" 

JI.UT INSTR. 

SLUT INSTR= 



INCM(DB+).l 010 000 OXX XX ,DSPL=8 ,DB , ENTRY=IMO 
INCM(DB+):1 010 100 OXX XX ,DSPL=8 ,DB . X , ENTRY=IMD 



INCM(0+) 
INCM 0+) 
INCM(O-) 
INCM(Q-) 
INCM(S-) 
INCM(S-) 



010 000 lOX XX,DSPL=7,Q,ENTRY=IMD 
010 100 lOX XX,DSPL'7,Q,X.ENTRY=IMD 
010 000 110 XX,DSPL-6,Q,F2,ENTRY=IMD 
010 100 110 XX,DSPL»6,Q,F2,X,ENTRY=IMD 
010 000 111 XX,DSPL«6,SM.F2,ENTRY=IMSM 
010 100 111 XX,DSPL=6,SM,F2,X,ENTRY=IMSM 



IMSM SR UBA ADD 
IMD UBA DSPL ADSB 
IMDl UBA SM CAD 



INC 
REGN ADD 
UBA ADD 



SR 
UBB 



CCO 
REGN DATA 



ADD 
SM ADD 
UBA BNDE 



BNDE 

ADD 

ADD 



CTR TICB 



UBA:=SR + (SM + XC ) ; 

RH =UBA:=(BASE + XC) +/- DSPL, READ; UBB.=S 

: BOUNDS CHECK S>=ADDR, 

CTR:«IF ADDR>S AND S>=ADDR AND 

NOT (FSS AND (DB REL ADDR OR TFF)) THEN 

(S-ADDR) ELSE CODE FOR OPERAND AND NOP 

UBA;-1; BOUNDS CHECK ADDR >= DL 

UBA: -UBA + MEMORY LOCATION, CCO; 

WRITE MEMORY LOCATION OR STORE IN TOS ; NEXT 



INCM, Increment memory, indirect cases 



SLUT INSTR«INCM(OB+ 

SLUT INSTR»INCM(DB+ 

SLUT INSTR-INCM(0+) 

SLUT INSTR=INCM(0+) 

SLUT INSTR=INCM(Q-) 

SLUT INSTR=INCM(0-| 

SLUT INSTR=INCM(S-) 

SLUT INSTR=INCM|S-) 



1:1 010 010 OXX XX,DSPL«8,DB,INDR,ENTRY»IMID 
):1 010 110 OXX XX,DSPL=8,DB,X,INDR,ENTRY=IMID 
:1 010 010 lOX XX,DSPL-7 ,0, INDR,ENTRY=IMID 
:1 010 110 lOX XX,DSPL=7,Q,X,INDR,ENTRY=IMID 
:1 010 010 110 XX,DSPL=6,0,INDR,F2,ENTRY=IMID 
:1 010 110 110 XX,DSPL=6,Q,X,INDR,F2,ENTRY=IMID 
:1 010 010 111 XX,DSPL=6,SM,INDR,F2,ENTRY=IMIS 
;1 010 110 111 XX,DSPL=6,SM,X,INDR,F2,ENTRY=IMIS 



IMIS SR 
IMID UBA 
UBA 



SM ADD 
DSPL ADSB 
SM CAD 



XC DB ADD 
UBA REGN ADD 



SR SM 
UBB UBA 


ADD 
ADD 
BNDE 




SP3B 

CTR TICB 


RH DL 
SP3B 


BNDE 
JSB 


IMDl 


STFF 



UBA:=SR + SM; 

RH:-UBA:-BASE +/- DSPL, READ; SP3B:=UBB:=S 
; BOUNDS CHECK S>»ADDR, CTR:=IF ADDR>SM AND 
S>'tADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPA AND NOP 
UBA:=XC + DB; BOUNDS CHECK ADDR > = DL , STFF 
RH:=UBA: -TARGET ADDR, READ; UBB:-S, JSB 



PAGE 150 

RECORD 

NO 

7246 
7247 
7248 
7249 
7250 
7251 
7252 
7253 
7254 
7255 
7256 
7257 
7258 
7259 
7261 
7263 
7265 
7266 
7267 
7268 
7270 
7271 
7272 
7273 
7274 
7275 
7276 
7277 
7278 
7279 
7280 
7281 
7282 
7283 
7284 
7286 
728S 
7290 
7291 
7292 
7294 



C S 
ADDR 



073A 
073B 
073C 



073E 

C73F 
074J 



0741 
0742 



Memory Reference Instructions 

• «>..>,«•««* ALU A •••«••••»•• 
LABL RREG SREG FUNC SFNC STOR SPSK 



***•••<..•... ALU B «••••••••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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DECM; Decrement memory, direct cases 



SLUT INSTR. 
SLUT INSTR^ 
SLUT INSTR^ 
SLUT INSTR: 
SLUT INSTR: 
SLUT INSTR- 
SLUT INSTR- 
SLUT INSTR- 



DECM(DB+):1 010 001 OXX XX.DSPL- 
DECM(DB+):1 010 101 OXX XX,DSPL= 



:DECM(0+) 
:DECM(0+) 
:DECM(0-) 
DECM(Q-) 
DECM(S-) 
DECM(S-) 



1 010 001 lOX XX.DSPL 

1 010 101 lOX XX,DSPL-7 

1 010 001 110 XX.DSPL»6 

1 010 101 110 XX,DSPL=6 

1 010 001 111 XX,DSPL»6 

1 010 101 111 XX.DSPL-6 



i,DB,ENTRY-DMD 

J.DB.X.ENTRY'DMD 

,0,ENTRY"DMD 

,0,X,ENTRY=DMD 

,0,F2.ENTRY=DMD 

,0.F2,X,ENTRY*DMD 

, 5M,F2,ENTRY=-DMS 

,SM,F2,X,ENTRY«DMS 



DMS SR UBA ADD 
DMD UBA DSPL ADSB 
DMDl UBA SM CAD 



SR 
UBS 



ADD 
SM ADD 
UBA BNDE 



UBA:>SR + (SM + XC) ; 

RH:«UBA:.(BASE + XC ) +/- DSPL, READ; UBB:»S 

; BOUNDS CHECK S>«ADDR, 

CTR-IF ADDR > S AND S > =■ ADDR AND 

NOT (FSS AND (DB REL ADDR OR TFF ) ) THEN 

(S-ADDR) ELSE CODE FOR OPERAND AND NOP 

UBA:»-1, JSB; BOUNDS CHECK ADDR >= DL 



DECM; Decrement memory, indirect cases 



SLUT INSTR- 
SLUT INSTR- 
SLUT INSTR- 
SLUT INSTR- 
SLUT INSTR- 
SLUT INSTR- 
SLUT INSTR- 
SLUT INSTR- 

DMIS SR 
DMID IJBA 
UBA 



DECM(DB+):1 010 Oil OXX XX.DSPL- 
DECM(DB+) 1 010 111 OXX XX.DSPL- 



DECM(0+ 
DECM(0+) 
DECM(O-) 
DECM(O-) 
DECM(S- ) 
DECMIS- ) 



1 010 Oil lOX XX.0SPL»7 

1 010 111 lOX XX.DSPL=7 

1 010 Oil 110 XX.DSPL-6 

1 010 111 110 XX.DSPL«6 

1 010 Oil 111 XX.DSPL-6 

1 010 111 ill XX.DSPL-6 



8,DB.INDR,ENTRY-=DMID 
8.DB,X,INDR,ENTRY>DMID 
.0, INDR.ENTRY-DMID 
.O.X.INDR ,ENTRY=DMID 
,0.INDR.F2,ENTRY=DMID 
.q.X, INDR,F2 ,ENTRY=DMID 
.SM. INDR,F2,ENTRY=DMIS 
,SM,X,INDR.F2,ENTRY.DMIS 



DSPl 
'oM 



ADD 



ADD 
ROD SR SM ADD 
UBB UBA BNDE 



SP3B 

CTR TICB 



DB ADD 
REGN ADD 



BNDE 

JSB DMDl 



UBA:«SR + SM; 

RH -UBA;. BASE +/- DSPL, READ; SP3B:=UBB:=S 
; BOUNDS CHECK S>«ADDR. CTR.=IF ADDR>SM AND 
S>«ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPA AND NOP 
UBA:»XC + DB; BOUNDS CHECK ADDR >= DL. STFF 
RH:'=UBA:=TARGET ADDR, READ; UBB:=S. JSB 
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RECORD 

NO 

7297 
7298 
7299 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
7308 
7309 
7310 
7312 
7314 
7315 
7317 
7318 
7319 
7321 
7323 
7324 
7325 
7326 
7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 
7339 
7341 
7342 
7344 
7345 
7346 
7348 



C.S. 
ADDR 



0743 
0744 



0746 
0747 



0748 
0749 



074B 
074C 



Memory Reference Instructions 
lABL RREG SREG FUNC SFNC STOR SPSK 



•*•**••*••••• ALU B ••••••••••«*«• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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ADDM; Add memory to TOS , DB , 0, and S relative 



$LUT INSTR=ADDM{DB+) :0 111 001 OXX XX , SR-1 .0SPL=8 .DB , ENTRY=AMD 
SLUT INSTR=ADDM(DB+) :0 111 101 OXX XX , SR=1 ,DSPL=8 ,DB , X , ENTRY=AMD 



SLUT INSTR=ADDM(Q+) 
SLUT INSTR=ADDM(Q+) 
SLUT INSTR=ADDM(0-) 
SLUT INSTR»ADDM(Q-) 
SLUT INSTR=ADDM(S-) 
SLUT INSTR»ADDM{S-) 

AMS SR UBA ADD 
AMD UBA DSPL ADSB 



111 001 lOX XX,SR=l,DSPL=7.0,ENTRy=AMD 

111 101 lOX XX,SR=1 ,DSPL=7,Q,X,ENTRY=AMD 

111 001 110 XX.SR-l.DSPL-e.O.Fa.ENTRY^AMD 

111 101 110 XX,SR=1,DSPL=6,Q,F2,X,ENTRY=AMD 

111 001 111 XX,SR=1,DSPL=6,SM,F2,ENTRY=AMS 

111 101 111 XX,SR=1,DSPL«6,SM,F2.X.ENTRY=AMS 



0745 AMDl UBA SM 



ASMN RH 
RA 



DL BNDE 
REQN ADSB 



ADDM; Add memory to TOS, 



ROD SR SM 


ADD 
ADD 




CF2 


UBB UBA 


BNDE 




CTR TICB 


CCO 


ADD 
JSZ 


NEXT 




•»•««*«****••»• 




• ft*** 




Indirect DB , Q, 


and 


S rel 


Jtive 



SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR= 
SLUT INSTR= 
SLUT INSTR= 
SLUT INSTR= 
SLUT INSTR= 
SLUT INSTR- 



ADDM(DB+) :0U1 0110 XXXX,SR = 1 
ADDM(DB+) ;0111 1110 XXXX,SR=1 



DSPL=8 ,DB , INDR ,ENTRY=AMID 
DSPL=8,DB,X,INDR,ENTRY=AMID 



ADDM(0+) :0111 0111 OXXX , SR=:1 ,DSPL = 7 ,0, INDR , ENTRY=AMID 
ADDM(0+).0H1 1111 0XXX,SR=1 ,DSPL»7,0,X,INDR,ENTRY=AMID 
ADDM(O-) :0111 0111 lOXX , SR=1 ,DSPL=6 ,0, INDR , F2 , ENTRY=AMID 
ADDM(O-) :0111 1111 lOXX , SR=1 ,DSPL=6 ,0, X , INDR , F2 , ENTRY=AMID 
ADDM(S- :0111 0111 IIXX , SR=1 ,DSPL=6 . SM, INDR , F2 , ENTRY=AMIS 
ADDM(S-i :011ilHlllXX,SR=l,DSPL=6,SM,X,INDR,F2,ENTRY=AMIS 



AMIS SR SM ADD 
AMID UBA DSPL ADSB 



XC DB ADD 
UBA REGN ADD 



SR SM 


ADD 
ADD 




SP3B CF2 


UBB UBA 


BNDE 




CTR TICB 


RH DL 
SP38 


BNDE 
JSB 


AMDl 


STFF 



UBA;=SR + (SM + XC) ; 

RH:=UBA:=(BASE + XC) +/- DSPL, READ; 

UBB:=S, CF2 FOR ADDITION 

; BOUNDS CHECK S>=ADDR, CTR:=IF ADDR>SM 
AND S>=ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPA AND NOP 

BOUNDS CHECK ADDR >= DL; 

(S):-(S) +/- (ADDR), CCO; NEXT 



UBA:-SR + SM; 

RH:»UBA:=BASE +/- DSPL, READ; 

SP3B;=UBB:«S, CF2 FOR ADDITION 

; BOUNDS CHECK S>=ADDR, CTR:=IF ADDR>SM AND 
S>=AODR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPA AND NOP 

UBA:=XC + DB; BOUNDS CHECK ADDR >= DL, STFF 

RH.=UBA:=TARGET ADDR, READ; UBB:=S, JSB 
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RECORD 

NO 

7351 
7352 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
7360 
7362 
7364 
7366 
7367 
7368 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7376 
737l> 
7380 
7381 
7383 
7384 
7385 
7386 
7387 
7388 
7389 
7390 
7391 
7392 
7393 
7394 
7395 
7396 
7397 
7398 
7400 
7402 
7403 
7405 
7406 



C.S. 
ADDR 



074D 
074E 
074F 



0750 
C751 



0753 
0754 



Memory Reference Instructions 

• ••*•••«*•<. ALU A •••**««•«•• ••••••••••••a ALU B ••«••••••»•«•• 

LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• ADDM; Add memory to TOS , P relative • 
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COMMENT 



SLUT INSTR-ADDM(P+) 
SLUT INSTR-ADDM(P+) 
SLUT INSTR=ADDM(P-) 
SLUT INSTR=ADDM(P-) 

AMP UBA DSPL ADSB 
AMPl UBA PB UBNE 
RA OPA ADD 



111 000 OXX XX, SR-1,DSPL-8,P, ENTRY-AMP 

111 100 OXX XX,SR«1.DSPL»8.X,P,ENTRY=AMP 

111 000 IXX XX,SR«1.DSPL'8.P.F2,ENTRY»AMP 

111 100 IXX XX,SR=1,DSPL-8,X,F2,P,ENTRY=AMP 



RH 
RA 



ROP 
CCO 



ADD 
UBA UBNE 
ADD 



RH:-UBA;«(P + XC ) +/- DSPL, READ, 

BOUNDS CHECK ADDR > - PB ; CHECK PL >- ADDR 

(S);-(S) + MEMORY LOCATION, CCO; NEXT 



ADDM; Add memory to TOS, Indirect P relative 



SLUT INSTR=ADDM(P+) 
SLUT rNSTR=ADDM(P+) 
SLUT INSTR=ADDM(P-) 
SLUT INSTR=A0DM(P-) 



0111 0100 XXXX,SR-1 

:0111 1100 XXXX,SR«1 

0111 0101 XXXX.SR'l 

0111 1101 XXXX,SR=1 



DSPL-8 , INDR , P , ENTRYxAMIP 
DSPL-8.X,INDR,P, ENTRY- AMIP 
DSPL»8,INOR,F2,P,ENTRY.AMIP 
DSPL»8,X, INDR, F2,P, ENTRY- AMIP 



AMIP UBA 
XC 



DSPL ADSB 
UBA ADD 



RH 



UBA OPA JSB AMPl 



ROP 
ROP 



UBA 
PL 



ADD 
UBNE 



RH;-UBA:-P +/- DSPL, READ; 

UBA -XC + INDIRECT CELL ADDR; 

BOUNDS CHECK INDIRECT CELL ADDR >- PB 

READ XC + CELL ADDR + CELL CONTENTS, JSB 

BOUNDS CHECK PL>= INDIRECT CELL ADDR 



SUBM; Subtract memory from TOS, DB, Q. and S relative 



SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 
SLUT 



INSTR> 
INSTR. 
INSTR' 
INSTR= 
INSTR= 
INSTR- 
INSTR' 
INSTR= 



SUBM{DB+ 
SUBM(DB+ 
SUBM(0+) 
SUBM(0+) 
SUBM(0-1 
SUBM(O-) 
SUBM(S-) 
SUBM(S-) 



:1 000 001 OXX XX,SR-1,DSPL-8,DB,ENTRY-SMD 
:1 000 101 OXX XX,SR-1,DSPL«8,DB,X,ENTRY«SI>«) 
1 000 001 lOX XX,SR»1,DSPL-7,0,ENTRY-SMD 
1 000 101 lOX XX,SR>1.DSPL='7,Q,X,ENTRY = S(«) 
1 000 001 110 XX,SR>1.DSPL-6,Q,F2,ENTRY=SMD 
1 000 101 110 XX,$R»1,DSPL=6,0,F2,X,ENTRY=SMD 
1 000 001 111 XX,SR»1,DSPL«6,SM,F2,ENTRY=SMS 
1 000 101 111 XX,SR»I,DSPL-6,SM,F2,X,ENTRY=SMS 



SMS SR UBA ADD 
SMD UBA DSPL ADSB 



0755 SMDl UBA SM JSBC ASMN 



ROD 
UNC 



ADD 
SR SM ADD 

UBB UBA BNDE 



SF2 
CTR TICB 



UBA:-SR + (SM + XC) ; 

RH: -UBA: -(BASE + XC) +/- DSPL, READ; 

UBB:-S, SF2 FOR SUBTRACTION 

JSB, BOUNDS CHECK S>-ADDR, CTR:-IF ADDR>SM 
AND S>-ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPA AND NOP 
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RECORD 

NO 

7408 
7409 
7410 
7411 
7412 
7413 
7414 
741i 
7416 
7417 
7418 
74IP 
7420 
7421 
7423 
7425 
7426 
7428 
7429 
7430 
7432 
7434 
7435 
7436 
7437 
7438 
7439 
7440 
7441 
7442 
7443 
7444 
7446 
7448 
7450 
7451 
7452 
7453 
7454 
7455 
7456 
7457 
7458 
7459 
7460 
7462 
7464 
7465 
7467 



0756 
0757 



0759 
075A 



075B 
075C 
075D 



075E 
075F 



Memory Reference Instructions 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• SUBM; Subtract memory from TOS , Indirect DB , 0, and S relative * 
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SLUT INSTR' 
SLUT INSTR^ 
SLUT INSTR: 
SLUT INSTR' 
SLUT INSTR- 
SLUT INSTR: 
SLUT INSTR: 
SLUT INSTR^ 



SUBM(DB+) :1000 0110 XXXX , SR=1 ,DSPL=8 ,DB , INDR , ENTRY=SMID 
SUBM(DB+) :1000 1110 XXXX , SR=1 ,DSPL=8 ,DB , X . INDR , ENTRY=SMID 
SUBM(0+) :1000 OUl OXXX , SR = 1 ,DSPL = 7 ,0 , INDR , ENTRY = SMID 
SUBM(Q+) 1000 1111 OXXX, SR=1,DSPL=7,Q,X. INDR, ENTRY^SMID 
SUBM(Q-) :1000 0111 lOXX , SR=1 ,DSPL-6 ,Q, INDR , F2 , ENTRY=SMID 
SUBM(Q-) :1000 1111 lOXX , SR= 1 ,DSPL=6 , , X , INDR , F2 , ENTRY=SMID 
SUBM(S-) ;1000 0111 1 IXX , SR'l ,DSPL«6 , SM, INDR , F2 , ENTRY=SMIS 
SUBM(S-) :10001H1UXX,SR = 1,DSPL»6,SM,X,INDR,F2,ENTRY = SMIS 



SMIS SR SM ADD 
SMID UBA DSPL ADSB 



XC 
UBA 



DB ADD 
REQN ADD 



SUBM; Subtract memory from TOS, 



SR SM 


ADD 
ADD 




SP3B SF2 


UBB UBA 


BNDE 




CTR TICB 


RH DL 
SP3B 


8NDE 
JSB 


SMDl 


STFF 


«•••••*« 




**•• 


».**•••••<.• 


P relat 


ive 







SLUT INSTR-SUBM(P+) 
SLUT INSTR-SUBM(P+) 
SLUT INSTR"SUBM(P-) 
SLUT INSTR«SUBM(P-) 

SMP UBA DSPL ADSB 
SMPl UBA PB UBNE 
RA OPA SUB 



:1 000 000 OXX XX , SR=1 ,DSPL=8 , P , ENTRY-SMP 
:1 000 100 OXX XX,SR»1,DSPL=8,X,P,ENTRY=SMP 
■l 000 000 IXX XX,SR=1,DSPL-8,P,F2,ENTRY=SMP 
:1 000 100 IXX XX,SR>1,DSPL'8,X,F2,P,ENTRY«SMP 



RH 
RA 



ROP 

ceo 



ADD 

UBNE 

ADD 



SUBM; Subtract memory from TOS, Indirect P relative 



SLUT INSTR-SUBM(P+) 

SLUT INSTR. SUBM(P+) 

SLUT INSTR.SUBM(P-) 

SLUT INSTR=SUBM(P-) 

SMTP UBA DSPL ADSB 
XC UBA ADD 



:1000 0100 XXXX,SR=1,DSPL-8,INDR,P,ENTRY=SMIP 
:1000 1100 XXXX,SR=1,DSPL=8,X,INDR,P,ENTRY=SMIP 
:1000 0101 XXXX,SR.1,DSPL»8,INDR,F2,P,ENTRY=SMIP 
:1000 1101 XXXX,SR=1,DSPL-8,X,INDR,F2,P,ENTRY=SMIP 



RH 



UBA OPA JSB SMPl 



ROP 
ROP 



UBA 
PL 



ADD 
UBNE 



UBA:»SR ; SM; 

RH:=UBA:=BASE +/- DSPL, READ; 
SP3A;=UBB:=S, SF2 FOR SUBTRACTION 
; BOUNDS CHECK S>>=ADDR, CTR:=IF ADDR>SM AND 
S>=ADDR AND NOT (FSS AND DB REL ADDR | 
THEN (S-ADDR) ELSE CODE FOR OPA AND NOP 
UBA:-XC + DB; BOUNDS CHECK ADDR >= DL, STFF 
RH;«UBA: -TARGET ADDR, READ; UBB;=S, JSB 



RH;.UBA:=(P + XC ) +/- DSPL, READ; 

BOUNDS CHECK ADDR >= PB; CHECK PL >= ADDR 

(S):»(S) - MEMORY LOCATION, CCO; NEXT 



RH:=UBA:=P +/- DSPL, READ; 

UBA;=XC + INDIRECT CELL ADDR; 

BOUNDS CHECK INDIRECT CELL ADDR >- PB 

READ XC + CELL ADDR + CELL CONTENTS, JSB 

BOUNDS CHECK PL>- INDIRECT CELL ADDR 
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RECORD 

NO 

7469 
7470 
7471 
74 72 
7473 
7474 
7475 
7476 
7477 
7478 
7479 
74RO 
74 81 
7482 
74R4 
7486 
7483 
7489 
7490 
7492 
7493 
7494 
7495 
7496 
7497 
7498 
7499 
7500 
7501 
7502 
7503 
7504 
7505 
7506 
7508 
7510 
7511 
7513 
7514 
7515 
7517 



C.S. 
ADDR 



0761 
0762 
0763 



0765 
0766 



0768 
0769 



Memory Reference Instructions 

***>,, tttt** ALU A «•.«•*•«••* •••••••••••lit ALU B i.i.*«*<<**«***« 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

* MPYM; Multiply TOS by memory, DB , 0, and S relative « 
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$LUT INSTRi 
SLUT INSTR^ 
SLUT INSTR= 
SLUT INSTR= 
SLUT INSTR: 
SLUT INSTR= 
SLUT INSTR= 
SLUT INSTR= 



MPYM(DB+).l 001 001 OXX XX , SR-1 ,0SPL=8 ,DB , ENTRY-MMDO 
MPYM(DB+):1 001 101 OXX XX , SR-1 , DSPL-8 ,DB . X . ENTRY=MMDO 



MPYM(Q 

MPYM(0+) 

MPYM(O-) 

MPYM(Q-) 

MPYM(S-) 

MPYM(S-) 



001 001 lOX XX,SR'1,DSPL=7 .O.ENTRYoMMDO 

001 101 lOX XX,SR=1,DSPL'7,0.X,ENTRY=MMD0 

001 001 110 XX.SR=1,DSPL»6,0,F2,ENTRY=MMD0 

001 101 110 XX,SR=1.DSPL=6,Q,F2,X,ENTRY=MMDQ 

001 001 HI XX,SR=1,DSPL»6,SM,F2,ENTRY=MPMS 

001 101 111 XX,SR»1,DSPL-6,SM,F2,X,ENTRY=MPMS 



MPMS SR SM ADD 
MMDQ UBA DSPL ADSB 
MMDl UBA SM CAD 



DL BNDE 



SR 
UBB 



ADD 
SM ADD 
UBA BNDE 



SP3B 

CTR TICB 



• MPYM; Multiply TOS by memory, indirect DB , 0, and S relative * 

SLUT INSTR.MPYM(DB+) 1001 0110 XXXX , SR-1 ,DSPL-8 ,DB , INDR .ENTRY=MMID 
SLUT INSTR=MPYM(DB+) :1001 1110 XXXX , SR>1 ,DSPL=8 .DB , INDR , X , ENTRY»MMID 
SLUT INSTR«MPYM(0+) :1001 Dili OXXX , SR«1 .DSPL-7 ,Q. INDR . ENTRY=:MMID 
SLUT INSTR»MPYM(0+) :1001 1111 OXXX ,SR«1 ,DSPL-7 .0, INDR , X , ENTRY=MMID 
SLUT INSTR«MPYM((3-1 :1001 0111 lOXX ,SR'l ,DSPL = 6 .0 , INDR , F2 , ENTRY^MMID 
SLUT INSTR'MPYMio-i :1001 lUl lOXX . SR=1 ,DSPL-6 ,0, INDR , F2 , X , ENTRY=MMID 
SLUT INSTR.MPYM(S-) 1001 0111 1 IXX , SR- 1 , DSPL"6 , SM, INDR , F2 , ENTR Y-MMIS 
SLUT INSTR »MPYM(S-) : 1001 11111 IXX , SR-1 ,DSPL«6 , SM, INDR ,F2 , X , ENTRY-MMIS 

MMIS SR UBA ADD 

MMID UBA DSPL ADSB RH R( 

UBA SM CAD 

XC DB ADD 

UBA REGN ADD RH R( 



SR SM 


ADD 
ADD 




SP3B 


UBB UBA 


BNDE 




CTR TICB 


RH DL 
SP3B 


BNDE 
JSB 


MMDl 


STFF 



UBA:»SR + SM 

RH : »UBA : «BASE+DSPL ; SP3B ; =UBB : =SR+SM 

; BOUNDS CHECK S>»ADDR, CTR:=IF ADDR>SM AND 
S>=ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPERAND 

BOUNDS CHECK ADDR >=■ DL; JSB 



UBA:=SM + SR^ 
RH.-UBA'BASE + DSPL, f 
SP3B:=UBB;=SR + SM 
; BOUNDS CHECK S>»ADDR, 



CTR: -IF ADDR>SM AND 



S>»ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPERAND 
UBA:=XC+DB; BOUNDS CHECK ADDR >= DL, STFF 
RH: -UBA: -TARGET ADDR, READ, UBB:-S, JSB 



PAGE nS 

RtCORD 

NO 

7S?0 

l',72 
7 '.2 3 
1V?A 

752B 
7b?7 
7')?8 
7'j?9 
7'^11 
7S-i2 
7'>:i/l 
7'i:!6 
7S38 
7S'in 
7>)/l? 
7^,41 
7 =, 4 ', 
7S4fj 

7S1S 
7'iiq 

7^j^ri 

7'>'jl 



076B 
n7fiC 
0/f,D 

n7F.i: 

07fiF 
0770 



Memory Reference Instructions 
LABL RREG SREG FUNC SFNC STOR SPSK 



............. p^^^J g .......... 

RREG SREG FUNC SFNC STOR SPEC 



MPYM, Multiply TOS by memory, P relative 



I.UT INSTR=MPYM(P+) 
LUT INSTR=MPYM(P+) 
LIJT INSTR=MPYM(P- ) 
1 UT INSTR=MPYM(P- ) : 



07GA MMP UBA DSPL ADSB 



001 000 OXX XX ,SR=1 .DSPL =8 , 

001 inO OXX XX,SR=1 ,DSPL- 8 , 

001 000 IXX XX ,SR -1 ,DSP1 a , 

001 100 IXX xx,;;r^-i ,d:,pi^8 , 



RH 



ROP 



OOOF 



P.ENTRY^MMP 
P.X ,FN7RY=MMP 
P,F2 ,r NTRY^MMP 
P.F? ,X.ENTRY=MMP 

L CTR 



MMPl UBA 
MMP 2 



PB UBNE 
REGM ADD 
UBA ADD 
MPAD 
XFRR 



SP4A HRF2 



UBA 


DUNE 




ADD 




RFPN 


URB 


LINK 


UBU 


JSI 



ci.o onoF 

DCTR GIRO 
N( 1 



RH 



ADD 



MPYM, Multiply TOS by memory, indirect, P relative 



I.UT INSTR-MPYM(P+) 1001 0100 XXXX , SR = 1 , DSPL = 8 , 

UJT 1NSTR'MPYM(P+) 1001 UOO XXXX , SR = 1 , DSPL = 8 , 

lUT JNSTR=MPYM(P-) 1001 0101 XXXX , SR' 1 ,DSPL=8 , 

I UT INSTR-=MPYM(P-) 1001 1101 XXXX , SR - 1 , DSPL = 8 , 



, INDR ,FNTRY-MMIP 
,X, INDR,FNrRY=MMTP 
,F2. INDR,FNTRY-MMIP 
,F2 , X , INDR ,ENIRY^MMI 



7 •) ■, B 
/ ', ', H 


0/71 t 

11/ ry 


MIP UBA 


DSPl 
URA 


ADSB 
ADD 


7",M 


fj / / •) 


UBA 


OPA 


ISB 



RH 



ROP 
ROP 



UBA 
PL 



ADD 
IJRNE 
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;kip comment 



RH-^UBA >(P + XC) +/- DSPL, READ, 

CTR.'REGN CODE FOR OPERAND 

BOUNDS CHECK ADDR >' PB , CHECK PL >= ADDR 

RH: =U 

SPIA =U, F2:=SIGN(U); REPN Ifi TIMES, CIO 

, MPAD UNTIL CTR IS DECREMENTED TO 

F? =SIGN(V) (SREG IS OVERWRITTEN BY MPAD) 

UBB =M5W, MEDIUM JSB TO USE FOLLOWING URB 

UBA 'U 

UBB "IF U < THEN MSW - (V«2*M6) ELSE MSW 



RH 'UBA -P +/- DSPL, READ, 

UBA =XC + INDIRECT CELL ADDR, 

BOUNDS CHECK INDIRECT CELL ADDR >- PR 

READ XC t CELL ADDR + CELL CONTENTS, J 

BOUNDS CHECK PL >= INDIRECT CELL ADDR 
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RECORD 

NO 

7565 
7566 
7567 
7568 
7569 
7570 
7571 
7572 
7573 
7574 
7575 
7576 
7577 
7578 
7580 
7582 
7584 
7585 
7586 
7588 
7590 
7592 
7593 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7603 
7604 
7605 
7606 
7607 
7608 
7609 
7611 
7613 
7615 
7616 
7617 
7619 



C S. 
ADDR 



0774 
0775 
0776 



0777 
0778 
0779 



077B 
077C 
077D 



077E 
C77F 



Memory Reference Instructions 

.«..«*«.«.* ALU A ••«••«•••*• ..».*....*... ALU B ••«•••••»••••« 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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CMPM; Compare TOS with memory, DB , 0, 



nkikAft**Aftilifk*««fkAlk*ftjl 

and S relative 



SLUT INSTR. 
SLUT INSTR" 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR- 
SLUT INSTR. 
SLUT INSTR- 



CMPM(DB+);0 110 001 OXX XX ,SR-1 ,0SPL-8 ,DB ,ENTRY-CMDM 
CMPM(DB+):0 110 101 OXX XX , SR-1 ,DSPL«8 ,DB . X , ENTRY«CMDM 



CMPM(0+) 
CMPM(0+) 
CMPM(O-) 
CMPM(Q-) 
CMPM(S-) 
CMPM(S-) 



110 001 lOX XX.SR-1.DSPL=7,0,ENTRY=CM0M 

110 101 lOX XX,SR«1,DSPL=7,0,X.ENTRY«CM)M 

110 001 110 XX,SR>'l.DSPL«6,O.F2,ENTRY-=CMDM 

110 101 110 XX,SR«1,DSPL«6,0,F2,X,ENTRY=CMDM 

110 001 HI XX, SR«l,DSPL-e.SM,F2, ENTRY-CMS 

110 101 111 XX, SR-1, DSPL»6,SM,F2,X, ENTRY-CMS 



CMS SR UBA ADD 
CfOM UBA DSPL ADSB 
CM02 UBA SM CAD 



ADD 

REQN SUB 

ADD 



ROD 


SR 
UBB 


SM 

UBA 


ADD 
ADD 
BNDE 


CTR 


TICB 


NOFL 
NEXT 


RH 
RA 


DL 
UBB 


BNDE 

INC 

lOR 




EPOP 
CCA 



RA 

RA REQN SUB CCA ADD ^ 

CMPM; Compare TOS with memory. Indirect DB, 0, and S relative 



SLUT INSTR' 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR. 
SLUT INSTR: 



CMPM(DB+):0110 0110 XXXX .SR-1 ,DSPL-8 ,DB , INDR , ENTRY=CMID 
CMPM(DB+):0110 1110 XXXX , SR-1 ,DSPL-8 ,DB , X , INDR ,ENTRY-CMID 
CMPM(O+):0U0 0111 OXXX , SR-1 ,DSPL-7 ,Q, INDR ,ENTRY-CMID 
CMPM(Q+) :0110 1111 OXXX , SR-1 ,DSPL«7 ,0, X , INDR , ENTRY-CMID 
CHPM(Q-| :0110 0111 lOXX , SR-1 , DSPL-e , , INDR , F2 , ENTRY-CMID 
CMPM(O-) ;0110 1111 lOXX. SR-1. DSPL-e. 0,X, INDR. F2, ENTRY-CMID 
CMPM(S-) :0110 0111 IIXX , SR-1 , DSPL-e , SM, INDR .F2 ,ENTRY»CMIS 
CMPM(S-) :0110111111XX.SR-1,DSPL-6,SM.X,INDR.F2,ENTRY.CMIS 



CMIS SR SM ADD 
CMID UBA DSPL ADSB 
UBA SM CAD 



XC DB ADD 
UBA REGN ADD 



RH 



ROD 



SR SM 
UBB UBA 


ADD 
ADD 
BNDE 




SP3B 

CTR TICB 


RH DL 
SP3B 


BNDE 
JSB 


C^®2 


STFF 



UBA:-SR + (SM + XC) ; 

RH: -UBA: -(BASE + XC) +/- DSPL, READ; UBB:-S 
; BOUNDS CHECK S>-ADDR. CTR:-IF ADDR>SM AND 
S>«ADDR AND NOT (FSS AND (DB REL ADDR OR 
TFF)) THEN (S-ADDR) ELSE CODE FOR OPERAND 
; BOUNDS CHECK ADDR >• DL , POP TOS 
SKIP IF NO OVERFLOW ON (S) - MEMORY; UBB;.= 1 
NEXT IF OVERFLOW; 

SET CCL ON (S). UBB CANNOT EQUAL ZERO 
SET CCA ON ((S) - MEMORY) IF NOFL; NEXT 



UBA:-SR + SM; 

RH;»UBA;-BASE +/- DSPL. READ; SP3B:-UBB:=S 
; BOUNDS CHECK S>-ADDR, CTR: -IF ADDR>SM AND 
S>-ADDR AND NOT (FSS AND DB REL ADDR) 
THEN (S-ADDR) ELSE CODE FOR OPA AND NOP 
UBA:-XC + DB; BOUNDS CHECK ADDR >- DL. STFF 
RH: -UBA: -TARGET ADDR. READ; UBB:=S. JSB 
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RECORD 

NO 

7622 
7623 
7624 
7625 
7626 
7627 
7628 
7629 
7630 
7631 
7633 
7635 
7636 
7638 
7640 
7641 
7643 
7644 
7645 
7646 
7647 
7648 
7649 
7650 
7651 
7652 
7653 
7655 
7657 
7658 
7660 



OS 

ADDR 



0780 
0781 



0782 
0783 



C785 
0/86 



Memory Reference Instructions 

....«..•.«. ^LU A ••••••••«•• .«••««•*«.*»• ALU B •••••«•«•••••• 

LABL RREQ SREG FUNC SFNC STOR SPSK RREQ SREG FUNC SFNC STOR SPEC SKIP 

• CMPM; Compare TOS with memory, P relative * 
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SLUT INSTR.CMPM(P+) 

SLUT INSTR-CMPM(P+) 

SLUT INSTR»CMPM(P-) 

SLUT INSTR»CMPM(P-) 



110 000 OXX XX,SR«1,DSPL«8,P,ENTRY»CMPM 

110 100 OXX XX,SR-1,DSPL'=8,X,P,ENTRY=CMPM 

110 000 IXX XX,SR=1,DSPL=8,P,F2,ENTRY=CMPM 

110 100 IXX XX,SR»1,DSPL=8,X,F2,P,ENTRY=CMPM 



CMPM UBA 
CMPl UBA 



DSPL ADSB 
PB UBNE 



SUB 
ADD 



RH 



ROP 



NOFL 
NEXT 



ADD 
UBNE 



INC 
I OR 



RA OPA SUB 



CMPM; Compare TOS with memory, Indirect P relative 



RH:-UBA:-(P ♦ XC ) +/- DSPL, READ, 
BOUNDS CHECK ADDR > > PB ; CHECK PL >= ADDR 
POP OFF TOP OF STACK 

SKIP IF NO OVERFLOW ON (S) - MEMORY; UBB:«1 
NEXT IF OVERFLOW; 

SET COL ON (SI, UBB CANNOT EQUAL ZERO 
NEXT SET CCA ON ((S) - MEMORY) IF NOFL; NEXT 



SLUT INSTR-CMPM(P+) 

SLUT INSTR=CMPM(P+) 

SLUT INSTR=CMPM(P-) 

SLUT INSTR=CMPM(P-) 

CMIP UBA DSPL ADSB 
XC UBA ADD 



:0110 0100 XXXX,SR-1 ,DSPL=8,INDR,P,ENTRY^CMIP 
:0110 1100 XXXX,SR«1,DSPL=8,X,INDR,P,ENTRY.CMIP 
:0110 0101 XXXX,SR=1,DSPL=8,INDR,F2,P,ENTRY=CMIP 
,0110 1101 XXXX.SR=1,DSPL=8,X,INDR,F2,P,ENTRY=CMIP 



RH 



UBA OPA JSB CMPl 



ROP 
ROP 



ADD 
UBA PB UBNE 



PL RH UBNE 



RH:»UBA:«P +/- DSPL, READ; 

UBA:»XC + INDIRECT CELL ADDR; 

BOUNDS CHECK INDIRECT CELL ADDR >- PB 

READ XC + CELL ADDR + CELL CONTENTS, JSB 

BOUNDS CHECK PL>> INDIRECT CELL ADDR 
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RECORD 


C S. 


NO 


ADDR 


7662 




7663 




7664 




7665 




7666 




7667 




7668 




7669 




7670 




7671 




7672 




7673 




7674 




7675 




7676 


0788 


7678 


0789 


7680 


078A 


7682 


07BB 


7684 


078C 


7686 


0780 


7688 


078F 


7690 


07 8F 


7692 




7693 


0790 



Microcode Lo 



Init ructon 



LABL RREG SREG FUNC SFNC STOR SPSK 



tm 



•••••••••••A* ALU B •»•••••«••••«• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



MICROCODE LOGGING instruction (020104 000006) 

This instruction pushes four 32-bit counters onto 
the stack and then zeros those counters 

TOS-6 t of clocks spent in channel microcode (XR34) 

TOS-4 i of clocks spent in PAUSE instruction (XR35) 

TOS-2 • of clocks of 'normal execution' (XR36) 

TOS • of CSRQ'S (XR37) 



JSZ 
SM INC 
REQN ADD 
UBB ADD 

ADD 
00A5 ADDL 

ADD 

ADD 

ADD 





SRNZ 


00A2 




ADDL 




WRS 


00A6 




ADDL 




DATA 




REQN 


ADO 




DATA 


0002 


SM 


ADDL 






RA 


CTRS 


JSBS 


RA 




00A2 




ADDL 


REGN 








ADD 






RA 


CTRS 


JSBS 



CTR 
RA 



CTR 

REGN ICTR 



XR34 REGN code 
RA : - s t oppe r 



Empty TOS if SR <> 0; CTR := 
Start writing data at SM + 1 
Write msw of data; inc CTR 
Write Isw of data; SM : » SM + 2 
; Loop back if CTR was <> A5 
, CTR : = XR34 REGN code 
Clear extended register pair 
; Loop back to clear another XR if CTR was 

<> A5 
. Take a slow path to the next instruction 
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RECORD 


C S 


NO 


ADDR 


7696 




7697 




7698 




7699 




7700 




7701 




7702 




7703 




7704 




7705 




7706 




7707 




7708 




7709 




7710 




7711 




7712 


0791 


7714 




7715 


0792 


7717 


0793 


7719 


0794 


7721 


0795 


7723 


0796 


7725 




7726 


0797 



Power on / Power fail routines 

........... ALU A ...*«««.... ............. ALU B •«•«•••••«••«• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



1) 
2) 
3) 
4) 
5) 
6) 
7) 

Entered with RA 



Read (ZI+1) 

Set RUNFF, clear PONINT* 

Ext . Plabel , Par amete r = 

Initialize TCLK to 1 

Go to HALT if not running 

Set up ICS 

Trap to segment 1 

IC606 



!A301 (%12 
at Power 



1401 ) 
Failure 



JSL CKSM BNKD 



RA ADD 


RRZ 


SPOA CSL 




OPA INC 




XR12 ADD 


LSL 


JSZ 


ICS 



ADDL 

INC 

ADD 

ADD 

JSL 



LLZ 
STOP 



CTR 

REGN 

SPIB 



JSL IIU BNKS 



XR12=4000/2 iBNKD-O (2324) 

Init module map, do WCS & LUT checksum 

Read abs(6); CTR :» TCLK optn 

SPOA := %121401 (seg 1, STT %43 ) ; TCLK = 1 

Read (ZI + 1); SPIB := %121401 (seg l.STT 7.43) 

XR12=4000 ; CLEAR PONINT*, SET RUNFF 

Clear Fl for «IR1, 

halt if not running, else set up ICS 

Clear XR15; BNKS := 0, trap to segment 1 
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RECORD 

NO 

7729 
7730 
7731 
7732 
7733 
7734 
7735 
7736 
77.T7 
77-^8 
7739 
7740 
7741 
7742 
7743 
7744 
7745 
7746 
7747 
7749 
7/51 
7753 
7755 
7757 
7759 
7760 
7762 
7764 
7766 
7768 
7770 
7771 
7772 
7774 
7776 



C.S. 
ADDR 



0798 
0799 
079A 
079B 
079C 
079D 

079E 
079F 
07A0 
07A1 
07A2 



07A3 
07A4 



Power Fail Routine 
LABL RREG SREG FUNC SFNC STOR SPSK 



.....•*>••*•• ALU B ••••••••*•••«• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



POWER FAIL: 



Go BUSY 

Send IDOL (I/O Clear) to all IMB's that are 

present 

Set PWFINH to disable further interrupts 

Set MSBit of ZI+1 to 1 if running 

else set it to 

Set parameter to 

Set up ICS type interrupt trap to segment 1, 

STT %11 



Entered with USA 



!0C02, BKX3 » and F4 set 



PFWO 0006 
UBA 
0200 



0006 
RH 



ADDL 

ADD 

ADDL 

OPA INC 

SP2B ADD 

UBA JSB 

ADD 
ADDL 

CPX2 AND 
ADD 

OPA INC 



ADD 
ADD 



RH 


R0X3 

ROXS 

CFl 

NEQ 


UBA 
BOOO 
009 8 
RREG 

0080 


SP2B 


ADD 

ADDL 

ANDL 

ADD 

JSL 

ADDL 


L2PF 


SP3B 
SP2B 

BKX5 
SP2B 


BUSC 
CCPX 


UNC 




ZERO 

SFl 

FIHB 


RH 

UBA 

8901 


SP2B 


JSL 

JSBS 

ADD 

ADDL 

ADD 


lOMS 
•-3 


SPIB 


CCPX 


UNC 
NZRO 


SPOA 


DATA 
SF2 






ADD 
JSZ 


INT9 




CF4B 


UNC 



UBA :• giZI, Go BUSY 

Read ZI ; SP3B :• lOCL command 

RH :• RUNFF mask; SP2B :• 

Read ZI+1, Clear MSGINT & PFWINT 

UBA :• IMBI; BKX5 :- 0, go see if it's there 

If this one not there jump over lOCL code. 

SP2B :« next IMB« 
: Send the lOCL message 

UBA :• CCPX mask; Loop back if not done 
Skip if halted, set PWRFINH (no more ints) 
Set Fl if running; SPIB :» %104401 (4 »INT9) 
If running set msb of ZI+1 else clear it, 

set Isb of ZI+1 to indicate a powerfail 

has occurred 
Write ZI+1 back; Clear F4 for «INT9 
SPOA :- 0; Do PFW trap to 

segment 1, set F2 for «INT9 
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RECORD 


C S 




NO 


ADDR 


LABL 


7778 




*.>• 


7779 






7780 






7781 






7782 






7783 






7784 






7785 






7786 






7787 






7788 






7789 






7790 






7791 






7792 






7793 






7794 






7795 






7796 






7797 






7798 






7799 






7800 






7801 






7802 




**** 


7803 






7804 


07A5 


FISH 


7806 






7807 


07A6 




7809 


07A7 




7811 






7812 


07A8 




7814 






7815 


07A9 




7817 






7818 


07AA 




7820 






7821 


07AB 




7823 


07AC 




7825 






7826 






7827 




• 


7828 




* 


7829 




* 


7830 


07AD 


OlDC 


7832 


07AE 


OlDl 


7834 






7835 


07AF 




7837 






7838 


07B0 




7840 







FLUSH inst ruction 

........... ftLU A **«•»..«.•«• 

LABL RREG SREG FUNC SFNC STOR SPSK 



............. ^Lg Q .............. 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



FLUSH is executed as the last instruction of a 

software power fail routine. (%020104 000005) 



9) 
10) 



Push TOS registers into memory, 

FLUSH OK := false, SFFFF . (so that the DCU will 

not aTtempt to auto-restart MPE after a bad flush) 

Read cache status, CACSTAT , to determine cache 

type - old, or new. 

Flush CPU cache, (use NEWC to flush new cache) 

Clear FLUSH bit in CPX2 . 

Initiate flush of lOA cache(s). 

FLUSH_OK ;= true, $AAAA (so DCU can enable an 

auto-rest art ) 

Flush FLUSHOK to main memory by reading two other 

memory banks at the same address 

Send SHUTDOWN message to main memory. 

Wait for Certain Death, (PON goes to 0.) 



Entered with SPAA - 11000, BKX5 > 
Re-written for new 128K cache, 8/6/85, 



JSZ PSHA 



Chris Shaker (25271 



USA 


ADDL 
ADD 

CAD 




RA 


WRX3 
DATA 


0009 
ICOO 


ADDL 
ADDL 

ADD 


RA 


ADD 
ADD 






R0X3 


SP3B 

RA 


ADD 
ADD 


OPA 
REGN 


ADD 
JSB 


NEWC 




ODD 


0070 

UBB 


ADDL 
ADD 






Flush 


the 


old CPU cache 




UBB 


ADD 
JSB 


lOAF 




ZERO 


0800 


ADDL 
REPN 


SP2B 


I OR 






R0X3 


UBB SP4A 


ADD 




JSB 


OLD! 




UNC 


FFF8 SP2B 


ADDL 



CTR 
SP3B 



WRX3 
BUSC 



0003 
DCTR CTRO 



Empty TOS registers; BKX3:«0, Set F4B (2527) 

for lOMS and L2PF routines. (2527) 

Adr of FLUSH OK; CTR for CACSTAT REGN (2527) 

Set up to write FALSE to FLUSH OK; (2527) 

BUSC opcode to read CACSTAT. (2527) 

FLUSH_OK :• FALSE (SFFFF) ; Set addr (2527) 

for BUSC (addr does not matter) (2527) 

Read FLUSH_OK (to wait for write); (2527) 

Request cache status. (2527) 

Wait one cycle before reading OPA; 2527) 

SPIB :- AFLUSH OK; (2527) 

Mask to set FLUSH in CPX2 ; (2527) 

Go flush new cache or fall into code (2527) 

that flushes the old cache; Set the (2527) 

FLUSH bit in CPX2 . (2527) 



SP2B:« last block address (2527) 

If block adr<0 exit; (2527) 

Repeat next line 4 times. (2527) 
lOR blk adr into adr, do read; 

inc adr by ilOOO. 
Loop back; SP2B :■ next lowest block (2527) 

address. (2527) 



PAiU is: (LUSH the I/O system 10/ 2/86 9 26 AM 

RICORO C S ........... ALU A ••«•••««•«« .,.....,,.... ^l^ r .............. 

NO rtPDK LARL RNtG SiJLG FUNC SFNC STOR SPSh RRtU SRtG FUNC SF NC SIOR SPEC SKIP COMMENT 

' s 4 ; « 

7 34 J " Flush lOA caches 

'S44 ' 

'S4^ 0/Bl lOAF OPA APP OOFO ADDL Wait for flush. UBB - mask to clear (2S27) 

7S4/ the FLUSH bit in CPX2 (2S2/) 

7S4S C17B2 ADD RH UBB APP CCPX RH -0, Clear the FLUSH bit in CPX2 (2S2/) 

7SS0 117B3 FFEB ADDL RA 6000 ADPL SP3B RA • -21 (loop count for for lOA;' ) , (2S27) 

yss.' SP3B » IDA flush message (2*127) 

?>•!'<.; 07B4 lOAl RH ADD JSL L2PF UNC USA « logical IMB» , Is lOA thpte' (2'.27) 

^S'.". 07B5 UBA JSB I0A3 NEG 0080 RH ADDL RH If this one not there ) ump over (2'i2/) 

7SS; the flush code, RH - next IMB» (2'i27) 

r$'^» 07B6 0040 XR9 lORL XR9 JSL lOMS UNC XRA9 - Send adr to lOA, Send the 

7860 messatje to the lOA 

7861 07B7 I0A2 ADD RA JSBI I0A2 RA NZRO Wait 64 clocks for lOA to flush (2527) 
7863 07B8 I0A3 0200 ADDL RG AAAA ADDL SP2B RG - lOA flush message, (2527) 
7S6S SP2B: "Constant for FLUSH flag (2S27) 
7866 07B9 FFEB ADDL RA UBA RH JSBS lOAl NZRO RA = -21 (loop cnt). Loop back (2527) 

7868 if not done (2527) 

7869 * 

78^0 •>• Set FLUSH OK to TRUE (SAAAA) for the DCU 

7871 • 

7872 07BA ADD SPIB ADD WRX3 Write FLUSH success flag to 0000 0353 (2527) 
7874 07BB ADD SP2B ADD DATA SAAAA Flags successful flush for DCU (2527) 

7876 • 

7877 •«« Now, flush this word out to main memory 
7878 

7879 07BC ADD BKX3 INC BKX3 BKX3 :« 1 (next bank) (2527) 

7881 07BD ADD SPIB ADD R0A3 Read 1:0353 into the other cache set (2527) 

7883 07BE ADD BKX3 INC BKX3 BKX3 ■ Z (next bank) (2527) 

7885 07BF OPA ADD SPIB ADD R0A3 Read 2 0353 into the set that 0000 (2527) 

7887 0353 was In (2527) 

7888 07C0 INC SP4A ADD SP4A -1 (Shutdown Main Memory' (2527) 

7890 message tor ECM) , Wait for Read (2527) 

7891 to complete) (2627) 

7892 07C1 DIE OPA ADD JSL ECM UNC . Send memory shutdown msg. (2527) 
7894 07C2 WDIE JSB WDIE UNC ADD Walt here until the bitter end (2527) 

7896 ( PON <- ) (2527) 

7897 - 

7898 

7899 • * 

7900 ' NEWC - flush the new (128Kb) cache to main memory ♦ 

7901 ' 

7 902 

7 903 

7904 07C3 NEWC JSB lOAF ZERO ADD R0A3 Flush the lOA caches (slow jump tor 

79nt- Read); Send START to cachp to 

790' initiate the new cache FLUSH 
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RECORD 

NO 

7909 
7910 
7911 
7912 
7913 
7914 
7915 
7916 
7917 
7918 
7919 
79:0 
7921 
7922 
7923 
7924 
7925 
7926 
7927 
7928 
7929 
7930 
7932 
7933 
7935 
7937 
7938 
7940 
7942 
79 4 4 
7 15 45 
7946 
7947 
7948 
7949 
7951 
7953 
7955 
7957 
7959 
7961 
7963 
7965 
7967 



C S 
ADDR 



C7C7 
07C8 
07C9 



07CA 
07CB 
07CC 
07CD 
07CE 
07CF 
07D0 
07D1 
07D2 
07D3 



Diagnostic Control Unit Command Processor 

...i....... ALU A ••«• •* ............. ALU B <«•••*•««•••«• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



DCU Interrupt Command Processing Modules 

These modules will process a DCU command interrupt tor the 
following commands; 

DCU code Description 

1 Single Step command 

2 Update ms byte of switch register 

3 " Is '■ " 

4 Replace contents of switch register 

5 DCl) log to MPE ( left byte) 

6 (right byte) 

7 Overfemp warning and condition 

8 DCU log termination 

9 Start DCU log to MPE processs 



10/ 2/86 9:26 AM 



07C4 DCMD 



07C5 
07C6 





DBUS 


ADD 


LRZ 


SP4A 


DCUO 




ADDL 


LBL 


USA 


UBB 
STA 


ADD 
ADD 


LSL 


WRX3 
RAR 


0009 


UBA 
SREG 


SUBL 
JSZ 


BDCC 


UBA 
0080 




ADD 

ADDL 

ADD 




SP4A 

RSB 


00B2 


UBA 


ADD 

ADDL 

ADD 





CRRY 
UNC 



DCU Command Table 



JSB 


CBEl 


UNC 


0200 


ADDL 




Rest a 


JSB 


DCUl 


UNC 


0600 


ADDL 




Jump ; 


JSB 


DCU2 


UNC 




ADD 




Jump 


JSB 


DCU3 


UNC 




ADD 




Jump 


JSB 


DCU4 


UNC 




ADD 




Jump 


JSB 


DCU6 


CF2 


00E5 


ADDL 


CTR 


Jump , 


JSB 


DCU6 


SF2 


00E5 


ADDL 


CTR 


Jump , 


JSB 


DCU7 


UNC 




INC LSL 


SPIB CRF 


Jump ; 


JSB 


DCU8 


CFl 


0018 


ADDL 


CTR 


Jump , 


JSB 


DCU9 


CFl 


00E5 


ADDL 


CTR 


Jump . 



UBA := DCU bus value; UBB ;= p DCU cmd table 
SP4A <- COMMAND CODE ERROR (2635) 

UBA ; s: table addr; Check for legal command 
set up for RSB to 
jump table; SYSHALT it bad DCU code 
SP4A <- STA & LSL(l) (2635) 

UBA := mask to clear DCUINT; CTR := sw reg 
Jump to table; Clear DCU interrupt 



rt insfr if DCU cmd = 0; RUNFF mask 
UBB := mask to clear RUNFF 



clear F2; CTR :• (J control words 
set F2; CTR :■ (3 control words 
SPIB :■= 2, clear RFLAG 
clear Fl; CTR := DCUSTOR code 
clear Fl; CTR := (3 control words 
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RECORD 


C S 


NO 


ADDR 


7970 




7971 




7972 




7973 




7974 


07D4 


7976 


07D5 


7978 




7979 




7980 




7981 




7982 




7983 


07D6 


7985 


07D7 


7987 


0708 


7989 




7990 


07D9 


7992 




7993 




7994 




7995 




7996 




7997 


07DA 


7999 


07DB 


8001 




8002 


07DC 


8004 




8005 




8006 




8007 




8008 




8009 


07DD 


8011 


07DL 


8013 




8014 


07DF 


sni'"^ 




8C1 




8018 




8019 




8020 




8021 


07E0 


8023 


07E1 


8025 


07E2 


8027 




8028 


07E3 


8030 


07E4 


8032 


07E5 


8034 


07E6 


8036 


07E7 


8038 


07E8 



Diagnostic Control Unit Coimnand Processor 
...;......<, ALU A «•••••••••• ...•..*... 

LABL RREG SREG FUNC SFNC STOR SPSK 



ALU B •••••*••«••••• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



Single Step command 



ADD 

JSZ RSRT UNC 



Update ffls byte of switch register 



OOFF DBUS ANDL 

USA ADD RLZ SP4A 
OOFF REGN ANDL 



UB6 ADD 
ADD 



ADD 
ADD 
ADDL 



UBA SP4A lOR 



REGN 



UBB JSB CBE CTR 



Update is byte of switch register 

OOFF DBUS ANDL SP4A 

FFOO REQN ANDL 0018 

UBA SP4A lOR REQN 

Replace Contents of Switch Register 

REGN ADD 
0018 ADDL 

ADD 

DCU log to MPE command 

DBUS ADD RLZ RH 00E4 

REQN ADD LSR 
UBA REQN ADD NF2 

DBUS ADD RRZ RH 
ADD 

REGN INC REGN 

ADD RH 

ADD 0018 

SPOA ADD REGN 





ADD 
ADDL 




CTX 


UBB 


JSB 


CBE 


CTR 


i«*«< 







.««••• 


command 


,.... 




UBA 


ADO 
ADO 




CTX 
REQN 



UBA JSB CBE CTR 





ADDL CTR 






ADD 




REQN 


ADD BKX3 ICTR 




UBA 


ADD WRX3 


NF2 


UBB 


ADD R0X3 


UNC 


RH 


ADD DATA 


UNC 


OPB 


lOR DATA 
ADDL CTR 






JSZ RSRT 


UNC 



10/ 2/86 9:26 AM 



; Set RUN FF for DCU 

Restart Instr; Inform DCU that system is 
ready to start Instruction 



Mask of; the data byte from DCU; CTX - 
SP4A.(0:8) :■ DBUS . ( 8 : 8 ) , shifted data byte 
MasK off nts byte of Switch Update Register, 

(SUR): UBB - DCUSTORE code 
Merge new ms byte with old SUR and store SUR 
; Set counter to DCUSTORE and jump to exit 



MasK off data byte from DCU; CTX := 

MasK off Is byte of switch update register. 

(SUR); UBB :• DCUSTORE code 
Merge new is byte with old SUR and store SUR 
; Set counter to DCUSTORE and jump to exit 



Read th« Switch Update Register; CTX 
UBA :• DCUSTORE code; Replace Switch 

Register with SUR contents 
; Set counter to DCUSTORE and exit 



1st data byte; CTR :• buffer address 

UBA : > word count 

Current buffer addr, skip if for 1st byte; 

Set up bank. CTR ;« @ control words 
2nd data byte, Set up addr. skip if 1st byte 
; Read the 1st byte location 
inc the byte count; Store 1st data byte 
; Store two data bytes 
; CTR : = DCUSTORE code 
AcKnowledge to DCU, restart instruction 
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RECORD 

NO 

8041 
8042 
8043 
8044 
8045 
8047 
8048 
8050 
8051 
8053 
8054 
8055 
8056 
8057 
8058 
8060 
8062 
8064 
8065 
8067 
8069 
8070 
8071 
8072 
8073 
8074 
8075 
8077 
8079 
8080 
8081 
8082 
8083 
8084 
8086 
8087 
8089 
8091 



C S. 
ADDR 



07E9 
07EA 
07EB 



Diagnostic Control Unit Command Processor 
LABL RREG SREQ FUNG SFNC STOR SPSK 



ALU B •••••*••••«•*• 
RREG SREQ FUNC SFNC STOR SPEC SKIP 



• Overtemp Warning and Condition 
DCU7 



SP4A JSB 

DBUS ADD 

ADD 



CBE 
RRZ 



POS 0018 
SPOA SF2 8A01 
REGN CFl 



ADDL CTR 
ADDL SPIB 
JSZ INT8 



DCU Log Termination 



» DCU Log Termina 



07EC DCU8 
07 ED 



07EF 
07F0 



ADD 

ADD 

REGN ADD 

ADD 
INC 



REGN 
SPOA 



REGN 
SPOA CFl 



DOES 
8F01 



ADDL 

ADD 

ADDL 

ADD 
JSZ 



CTR 

SPIB 

REGN 



> Start DCU to MPE log process 



07F1 DCU9 
07F2 SPOA 



ADD SPOA 8F0I ADDL SPIB 
JSZ RSRT UNC REGN JSZ INT8 



DCU Commands Exit Routine 



07F4 CBiEl UBB CPX2 AND 
07F5 ADD 

07F6 SPOA JSZ RSRT 



ADD 

UBA JSL STOP 

ADD 
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Ignore DCU interrupt it interrupts are 

disabled: Set DCU acknowledge 
SPOA :> param (data byte from DCU), set F2: 

SPIB -.' external label (%105001) 
Acknowledge to DCU; Trap to segment* 1 



Acknowledge DCU; CTR 
Wait tor CTR 



; = @ cont rol words 



Parm.(0:15) :» byte count; 

STT» :■ %17, segment* 1 
Zero byte count; Clear start flag 
Parm. (15:1) :■ 1, clear Fl; 

Jump to terminate the process 



Parm :■ 0; STT« 17, segment* 1 
Jump to start DCU log process if start flag 
not set else ignore the whole thing 



Inform DCU that command has been processed: 

Mask for RUN FF 
Isolate RUN FF 

If not running then stop processing 
Rest art inst rue t ion 
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RECORD 

NO 

8094 
8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 
8108 
8110 
811:? 
8113 
8Ji5 
8116 
8118 
81 19 
8121 
8122 
8124 
8125 
8127 
8128 
3130 
8132 



C S 
ADDR 



Read DCU Logging Facility 
..*.*...... Jlu a ........... 

LABL RREG SREG FUNC SFNC STOR SPSK 



............. ALU B •••••«••••*•*• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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07F7 
07F8 

07F9 

07FA 

07FB 

07FC 

07FD 



Read DCU Logging Facility -- RDCU 

Entered with RA . ( 8 : 8 ) , RB « bank, address of buffer 
RA (0:8) has a control parameter, (0 to transmit data, 
1 to enable DCU logging to MPE ) Normally, the first time 
thru is with a 1, then all remaining calls are with 

XRAIOO, XRBIOO are used for address, bank 

XRAlOl, XRBlOl are used for byte count, start flag 



RA 


JSZ 
ADD 


PULM 
LRZ 




SRL2 
EPOP 


UBA 


JSB 


XDCU 




ZERO 




ADD 




REGN 


EPOP 




JSB 


JDCU 




UNC 




ADD 






EPOP 


RB 


ADD 

ADD 
ADD 




REGN 
REGN 


CF2 



JSZ 
ADDL 


PUL2 


CTR 




INC 




P 


RONP 


ADD 




REGN 




ADDL 




CTR 




INC 




REGN 


DCTR 


ADD 


RRZ 


REGN 




ADDL 
JSZ 


NEXT 


CTR 





Pull 2 rOS if SR - else pull 1 if SR = 1 
Isolate control parm, pop 1 TOS ; 

CTR : ■ control wo rds 
If parm > then jump to enable transfer; 

Read next instruction 
Byte count :< logging started flag :< 0, pop 

2nd TOS 
Jump to exit routine; 

CTR : « !1E (for DCUSTOR 6) 
Pop 2nd TOS; Set logging started flag, 

CTR :- IE4 (buffer address) 
XRAIOO :• mem addr, clear byte position fig; 

XRBIOO : • mem bank 
; Set DCUSTOR 4 param 
Notify DCU to start (!1C) or enable (!1E) 

Jump to next instruction 
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Floa 


ting Point 


Inst 


ruct ions 














RLCORD 


c s. 




* * * * 1 


...*,.*. ALU A •' 


* * * * * 


* * * * * 


* * * * 


»....*»»* ALU B 


* * * * I 


k * * * * ) 


h * * * * 


NO 


ADDR 


LABL 


RREG 


SREG FUNC 


SFNC 


5T0R 


SPSK 


RREG 


SREG FUNC 


SFNC 


STOR 


SPEC 


SKIP 


8134 




. 
























81.35 




«0800 






















8136 




* 
























8137 




* * * * 1 


i * -k k *i i 


HAHtAikAAAAAll 


[****] 




****** 


ft A A * * : 


**********) 


k * * A A 1 


K A * * * 1 


k A * * * 1 


k * ft ft 


8138 




• 


DFLT 


(Double f] 


.oat) 


Inst 


ruct ion 










A 


8139 




A A A A « 


k * * * * ; 


****ik ****** 


1****1 


* * * * * 


****** 


A A A A A ; 


**A*A*A**Al 


k * * A A 1 


it A A * * 1 


k A * * * ) 


k * * * 


8140 




* 
























8141 




SLUT 


INSTR=DFLT:0 000 Oil 000 


XXX XXX. ENTRY=DFLT. 


SR.2 








814? 




* 
























8143 


0800 


OFLT 




RB ADD 






HBF2 


RA 


RB lOR 








NZRO 


8145 


0801 






ADD 




SP4A 






JSB 


DFLZ 






UNC 


8147 


0802 






RB ADSB 




SPOA 






RA LINK 




SPIB 






8149 


0803 






RB ADD 






CCA 


4780 


ADDL 




SP2B 






8151 


0804 






SP1I3 ADD 


RLZ 


SPOA 






ADD 




SP3B 






8153 


0805 




SPOA 


ADD 


RLZ 








SPIB ADD 


LRZ 








8155 


0806 




RREG 


ADD 


LRZ 




BITS 


UBA 


UBB REPC 




SPIB 






8157 




























8158 


0807 






UBA QASL 






BITS 




UBB LINK 




SPIB 


DCTX 




8160 




























8161 


0808 






SREG ADD 






NF2 




CTRS ASR 










8163 




























8164 


0809 




UBB 


SREG lASR 






SFl 




SPIB LINK 




RA 






8166 




























8167 


080A 




UBA 


SP2I3 ADD 




RB 


FIHB 




RA ADD 






DCC 


NEXT 


8169 




























8170 


080B 


DFLZ 




ADD 






CCA 




ADD 








NEXT 


8172 




• 
























8173 




***** 


It ft Ht * * 1 


• *** Ik ****** 


1****1 


*****: 


****** 


*****) 


ikAik***AAA*t 




^ * * A * 1 


k * * * ft 1 


k * A A 


8174 




« 


FLT 


(Float) Ins 


;t ruC 


tion 














A 


8175 




***** 


k * * * * i 


ti*A* Ik ****** 


1****1 


Ik * * A * : 


****** 


*****! 


DAilk******** 


k * * * A 1 


k ft * A A jl 


k * * A * il 


k * * A 


8176 




* 
























8177 




SLUT 


INSTR.FLT;0 000 100 


111 ; 


KX,ENTRY.FLT.SR=1 










8178 




* 
























8179 


080C 


FLT 




RA ADD 






HBF2 




JSZ 


PSHM 






SR7 


8181 


080D 






ADD 




SPOA 


NF2 




RA JSB 


FLTZ 






ZERO 


8183 


080E 






JSB 


FLTN 




UNC 


4380 


ADDL 




SPIB 






8185 


080F 






RA ADD 










RA ADD 


RLZ 








8187 


0810 


FLTl 




UBA ADD 


LRZ 




BITS 




UBB REPC 




SP2B 


SFl 




8189 




























8190 


0811 






UBA QASL 






BITS 




UBB LINK 




SP2B 


DCTX 




8192 




























8193 


0812 






SREG ADD 






F2 




CTRS ASR 






EPSH 




8195 




























8196 


0813 




UBB 


SREG lASR 






CFl 




SP2B LINK 




RH 






8198 




























8199 


0814 




UBA 


SPIB ADD 




RA 


FIHB 




RA ADD 






CCA 


NEXT 


8201 




























IV 2 


0815 


FLTN 




RA JSBS 


FLTl 




UNC 




RA SUB 


RLZ 








a.:04 


0816 


FLTZ 




JSZ 


NEXT 




CCA 




ADD 




RH 


EPSH 
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F2:-SIGN{U) ; SKIP IF U <>0 

SP4A:»0; JSB IF U • 

SP0A:=ABS(MSU) ; SPIB : =ABS( LSU ) 

CCA ON MSU; SP2B . ^EXPONENT OFFSET 

SPOA (0:8) :=LSU; SP3B:=0 

UBA. (08) :=MSU; UBB : =LSU (0 : 8 ) 

UBA:=MSU. (0:8) , REPEAT IF NOT BITS; 

SPIB: --UBB :=LSU 

NORMALIZE TO BITS; 

SP1B:=LSW, DECREMENT CTX FOR EACH SHIFT LEFT 

SREG:=MSW, SKIP TO SET Fl SAME AS F2; 

UBB. (0:9) :-EXP ADJUSTMENT - 2 

ROUND BY INCREMENTING BIT32, ASR, F1:=F2, 

UBA (0: 10) :=EXP ADJUSTMENT - 2; (S);=LSW 

(S-1) :=MSW+(EXP(U)+EXP(V)-256+2) . SET SIGN; 

DCC ON LSU. NEXT 

SET CCA ON 0; NEXT 



F2:»SIGN (SI; JSZ IF SR = 6 

SP0A:=0, SKIP IF fS) >= 0; JSB IF (S) = 

JSB IF (S) < 0; SP1B:=EXP0NENT OFFSET 

UBA:-(S), JSB IF (S)<0, UBB . ( ; 8 ) : = ( S ) 

UBA:»MSW. (0:8) , SKIP REPEAT IF BITS; 

SP2B:'UBB:=LSW, SFl 

NORMALIZE TO BITS; 

SP2B:-LSW, DECREMENT CTX FOR EACH SHIFT LEFT 

SREG:=MSW, SKIP TO SET Fl SAME AS F2 ; 

UBB. (0:9) :»EXP ADJUSTMENT - 2 

ROUND BY INCREMENTING BIT32, ASR. F1:=F2, 

UBA (0:10) :=EXP ADJUSTMENT - 2; (S):=LSW 

(S-1) :=MSW+(EXP(U)+EXP(V)-256+2) , SET SIGN; 

CCA ON U, NEXT 

UBA =-(S), JSB, UBB (OS) =-(S) 

JSB TO NEXT, CCA ON 0; NEW (S) =0, EPSH 



PAGE 168 
RECORD 



8207 
81:08 
8709 
8 .' 1 
8211 
8212 
8213 
8215 
8216 
8218 
8219 
8221 
8222 
8224 
8226 
8227 
8228 
8229 
8230 
8231 
8232 
8233 
8235 
8237 
8239 
8241 
8242 
8243 
8245 
8246 
8247 
8249 
8250 
8252 
8253 
8255 
8256 
8258 
8260 
8261 
8263 
8264 
8266 
8767 
8269 
8270 
8272 
8274 



Floatina Point Instructions 

C S. .......J... ;^Lu ft ........... 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



0817 

0818 

0819 

081A 
081B 



081C 
081D 
081E 
081F 



0820 

0821 

0822 

0823 

0824 
0825 

0826 

0827 

0828 

0879 
082A 



............. ftLu B •*•••••••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



• FCMP (Floating compare) Instruction 

ILUT INSTR=FCMP:0 000 101 000 xxx xxx, ENTRY-FCMP, SR«4 

FCMP RD CIR lOR CCA RD RB XOR 

RD RB SUB RC RA LINK 

FCMO UBA ADD CCA UBB RD XFRS 



RB 



RD 



ADD 

JSBS FCMO 



UNO 



RREG 
RA 



RC 



ADD 
LINK 



DCC NEXT 



FADD (Floating add) Instruction 



JLUT INSTR-FADD:0 000 101 001 XX . ENTRY«FADD , SR-4 



FADD 



RD ADD 
UBA UBB SUB 
FFCO SP2B ANDL 
RD RB XOR 



SP4A FIHB 
CTFl 



003F SP4A ANDL 



RB ADD SP2B F2HB 
RC RA LINK CLO 

FFCO SP4A ANDL SPIB 

UBB UBA SUB LSL XRO Fl 



SREG JSB EXUV SPIB 



0040 


UBA 


lORL 


003F 


SP2B 


ANDL 




RC 


ADD 




UBB 


ADD 
ADSB 




UBB 


AOSB 


UBA 




OASR 


RREG 


XRl 


ADD 


UBA 


UBB 
SP4A 


lOR 
JSB 



XRl 






XRO 


ADD 


RH 




OCOO 


XRO 


SUBL 


RA 




RA 


SP2B 


I OR 


SPOA 


CTFl 


RREG 
0040 


RH 


JSB 
lORL 




FITC 


UBA 
UBB 




RE PC 
LINK 


SP4A 


SFl 


RREG 


RA 


LINK 




NZRO 
UNC 


RD 
RB 


SP2B 


ADD 
XFRR 



NCRY 

DCTR NZRO 

UNC 
SP3B 

DCTX CTXO 

DCTX CTXO 

SP2B CCTX FSB 

HBF2 UNC 
HBF2 
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SET CCG OR CCL ON MSU ; 
SKIP NEXT IF (SIGN(U) = SIGN(V) 
COMPARE U - V; 

NEXT IF (SIGN(U) <> SIGN(V)) 
SET CCA ON MS WORD; 
RREG: -UBB, SKIP IF MSU < 
DCC ON LS WORD, NEXT IF MSU 



UNC COMPARE V - U; SKIP TEST AT TARGET 



UBA:«SP4A:«ABS(U) ; UBB : -SP2B : •ABS(V) 

SFl IF U>.V; CLO 

UBA:-EXP(V); SPIB : «EXP( U ) • ( EXP(W) IF U>=V) 

F2:«SIGN(W) : -(SIGN(U) <> SIGN(V)); 

XR0:=(EXP(U) - EXP(V)) 4 LSL(l). 

SKIP IF U>-V 
RH: 'MANTISSA OF U; 
SP1B:«EXP(V) AND JSB TO EXCHANGE U AND V 

IF U<V 
XRi:-MAN(U) WITH LEADING 1, 
CTX: -EXPONENT DIFFERENCE 
RH: -MANTISSA OF V; 
SKIP IF EXPONENT DIFFERENCE > 24 
RA:-LSU; 

ANSWER IS U IF V«0, SKIP IF NOT, DCTR TO %FF 
SPOA:=0; UBB:=LSV, JSB IF ANSWER IS ZERO 
UBA:«IF F2 THEN -LSV ELSE LSV; 
UBB:>MAN(V) WITH LEADING 1, SP3B . (0 . 9 ) : -0 
UBA:-IF F2 THEN -MSV ELSE MSV; UBB:=LSV 

NORMALIZE V BY DIFFERENCE IN EXPONENTS 
SHIFT RIGHT TO NORMALIZE UNTIL CTX IS 

DECREMENTED TO 
SP4A:=MSV + MSU, SFl; SP2B:=LSV + LSU, 

CTX:=0; SKIP IF U AND V WERE EXCHANGED 
SKIP IF W <> 0; F2:«SIGN OF ORIGINAL U 
SREG:»MSW, JSB IF W • 0; 
SREG:=LSW, F2 : "SIGN OF V IF U A V SWITCHED 
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RECORD 

NO 

8276 
8277 
8278 
8279 
8280 
8282 
8283 
8285 
8286 
8288 
8289 
8290 
8291 
8293 
8294 
8295 
8296 
8297 
8299 
8300 
8301 
8302 
8304 
8305 
8307 
8309 
8310 
8312 
8313 
8314 
8315 
8317 
8318 
8320 
8321 
8322 
8324 
8326 
8327 
8329 



ADDR I.ABL RREG SREG FUNC SFNC STOR SPSK 



«*.*.*......* ALU B •••••K •••••<.«• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



082B 
082C 
082D 



0831 
0832 



0834 
0831 



0836 
0837 



0838 
0839 



" Normalize result of floating point operation 



NORM SREG ADD 
UBA QASL 
RREG CIR XFRS 

RREG UBB lASR 

UBA SP18 ADD 
RA UBB lOR 



BITS 
BITS 
SP4A F2 



SREG REPC 
UBB LINK 
CTRS ASR 

SP2B LINK 



FIHB UBA SPIB CSL 



SP2B ICTR 
SP2B DCTX 
POP 



SP2B LBF5 



JSZ 
FOV JSZ 

EXUV 003F SP2B ANDL 



TRP3 
TRP3 



0040 UBA lORL XRl 
JSB FADJ 



2:R0W JSB UANl 

LIANS ADO 



ADD 
ADD 



N2R0 


UBA 


SP4A 


lOR 






CCA 


F5B 


UNO 
UNO 




SP2B 


ADD 
JSZ 


TRP2 






NEXT 
POS 






XRO 


SUB 


LSL 


CTX 


SF5B 






OCOO 


XRO 


ADDL 








NEG 


UNO 


RC 


SP4A 


lOR 






DCTR 


NZRO 


CCA 

Fl 




RD 


ADD 
ADD 




RD 


EPP2 
CCA 




CCA 
NEXT 




RA 
UBB 


ADD 
ADD 




RC 


EPP2 
DCC 
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UBA:.MSW, NO REPEAT IF BIT8; 

SP1B:-LSW, ICTR TO 

RREG: -NORMALIZED MSW; 

SP2B;«LSW, DECREMENT CTX FOR EACH SHIFT LEFT 

RREG: -MSW, SP4A:-CIR TO SET CC LATER, 

SKIP ON F2 TO SET Fl THE SAME; 
UBB. (0:9) : -EXP ADJUSTMENT - 1, POP 

(MINUS 1 DUE TO NORMALIZATION TO BITS) 
ROUND BY INCREMENTING BIT32, ASR, F1;=F2, 
UBA. (0:10) :«(EXP ADJUSTMENT - 1) + (1 FROM 

BITS OR 2 IF ROUNDING CAUSED CARRY NTO 

BIT9) ; 
NEW (S) AFTER POPS :• LSW, POP 
(S-1):-MSW ■ SIGN AND EXPONENT PLUS 

MANTISSA AND EXPONENT ADJUSTMENT; 
IF UNDERFLOW THEN SP2B . (0 1 ) : -1 , 

IF UNDERFLOW OR OVERFLOW THEN F5B:-1 
SKIP IF ABS(W) <> 0; SET CCL OR CCG ON MSW 

SKIP NEXT IN UNDER /OVER FLOW 
UNDERFLOW TRAP IF ABS(W) » 0; NEXT OTHERWISE 
JSB FOR UNDERFLOW TRAP UNLESS OVERFLOW: 
JSB FOR OVERLFOW TRAP IF NOT SP2B.(0:1) 
UBA:=MANTISSA OF OLD U » NEW V; 
CTX:- -(EXP(U) - EXP(V) ) = 

rEXP(NEW(U) - EXP(NEW(V)), SF5B TO 

INDICATE U AND V WERE EXCHANGED 
SP4A:=MAN(U) WITH LEADING 1; 
SKIP IF EXPONENT DIFFERENCE 
JUMP BACK; 
ANSWER IS NEW U IF NEW V=0, 

DCTR TO r,FF 
JSB, CCA; (S-1) AFTER EPP2 
SKIP IF U AND V WERE NOT EXCHANGED; 
CCA ON MSU 

(S-1) AFTER EPP2 :- MSU; UBB:=LSU, EPP2 
NEXT; (S) AFTER EPP2 :- UBB, DCC 



24 
SKIP IF NOT, 



UBB:=0, EPP2 
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RCCORD 


C S 


NO 


ADDR 


8332 




8333 




8334 




8335 




8336 




8337 




8338 


083A 


8340 




8341 




8 342 




8343 




8344 




8345 




8346 




8347 


083B 


8349 


083C 


8351 


083D 


8353 


083E: 


8355 




8356 


083F 


8358 




8359 




8360 




8361 


0840 


8363 


0841 


8365 


0842 


8367 


0843 


8369 


0844 


83 71 




8372 




8373 




8374 




8375 




8376 




8377 




8378 




8379 


0845 


8331 


0846 


83 83 




8384 


0847 


R ',8?, 


0848 


R 3 f ; R 




8 183 


0849 


8391 


084A 


8 3 '(3 


084B 


8335 




8396 


084C 


8338 


084D 


8 41)0 


084F 


840;' 


034F 


8404 




3 4 05 


0850 


8 40 7 


0851 


R4fl9 


085? 


841 1 


085 3 



Floating Point instructions 

........... ftLu ft ...,..,,»., 

LABL RREG SREG FUNC SFNC STOR SPSK 



............. ftLu B ..».*..*«..... 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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* FSUB (Floating subtract) Instruction 

JLUT INSTR=FSUB:0 000 101 010 XX , ENTRY=FSUB , SR=4 

FSUB JSB FADD UNO 8000 R8 ADDL RB 

* FMPY (Floating multiply) Instruction 

SLUT INSTR=FMPY: 000 101 Oil XX . ENTRY-FMPY , SR=4 

FMPY RD ADD F 

FFCO UBA ANDL SPAA 
FFCO SP2B ANDL 



003F RB ANDL 



RREG RD 
RA 



UBA 
UBA 



AND 

ADD 

ADD 

MPAD 

JSB 



UBA 

RA 
UBA 


RB 
RC 

SP2B 
SP4A 


ADD 
I OR 
lOR 
JSB 


SP2B 
ZROW 


F2HB 
CLO 


ZERO 
NZRO 
UNC 


C040 


UBB 


ADDL 


SPIB 






0040 
RREG 

RC 


UBA 
UBA 

UBB 
UBB 


lORL 

lOR 

RCPN 

LINK 

ADD 


SP3B 
RH 


DCTR 
ICTR 


16 
CTRO 



• FDIV (Floating divide) Instruction 

JLUT INSTR=FDIV: 000 101 100 XX , ENTRY=FDIV . SR=4 



ADD 
ANDL 



JSB ZROW 



RD 
FFCO UBB 



RD RB 
003F RD 



0040 UBA lORL 
UBA SP2B DVSB 
UBA SP2B SUB 
ADD 



ADD 

XOR 
ANDL 



UBB 



ADD 
ADD 
ADD 



RH 
SP4A 


FIHB 




RB 
RA 


ADD 
JSB 


FDZR 




NZRO 
UNC 


003F 
0040 


RB 
UBB 


ANDL 
lORL 




SPOA 


CCO 
HBF2 


FFCO 

UBB 

3fC0 


RH 

SP4A 

UBB 


ANDL 

SUR 

ADDL 




SPOA 


CTFl 
FIHB 


UBB 
UBB 

SP3B 


RC 
RA 
RA 


RFPN 

LINK 
LINK 
ADD 


RRZ 




SFl 

CCA 
UNC 




';P4A 
KB 


ir.R 

ADD 
ADD 
ADD 


NORM 



F2HB NZRO 
ZtRO 



SP3B 
SP2B 



17 
DCTR CTRO 
ICTR 



POP 
POP 
DCC 



TOGGLE SIGN OF V 



UBA=ABS(U), SP2B:=ABS(V) 
SP4A:==EXP(U) ; CLO, SKIP IF ABS(U) = 
UBA =EXP(V), SKIP IF ABS(V) t> 
F2:=SIGN(W), UBB:=EXP(V) + EXP(U) 

JSB IF W - (ABS(U)=0 OR ABS(W)=0) 
UBA:=MANTISSA OF V. 
SP1B:»EXP(V) + EXP{U) -256+1 

(PLUS 1 TO COMPENSATE FACT MANTISSA 
IS SHIFTED RIGHT ONE BIT BY MPAD) 
UBA =MANTISSA OF U; SP3B =MSV WITH LEADING 1 
SP4A:^=LSV, RH =MSUWITH LEADING 1 
UBA:=0; UBB =0, REPEAT 23 TIMES 
MPAD U UNTIL CTR IS DECREMENTED TO 
SREG-=MSW, JSB TO NORMALIZE, SFl; 
SREG: 'LSW, ICTR TO 7.FF 



RH =ABS(MSU); UBB : «ABS (MSV ) 

SP4A: =EXP(V) ; 

JSB FOR DIVIDE BY TRAP IF ABS (MSV ) = LSV=^0 

SKIP IF ABS(U) <> 0; SP3B 'MANTISSA OF V 

JSB IF W = 0; 

SP2B ^MANTISSA OF V WITH LEADING 1 

SPOA:=0, CLO A CARRY, UBB:=EXP(U) 

F2 =SIGN(W), UBB -EXP(U) - EXP(V) 

UBA =MANTISSA OF U; 

SPIB. =(EXP(U) ^ EXP(V)) +256-1 

UBA =MANTISSA OF U WITH LEADING 1. UBB -ISU 

DVSB 24 TIMES UNTIL CTR IS DECREMENTED TO 

Fl =CARRY (24TH ANSWER BIT). tCTR TO --FF 

St I 24 TM ANSWER Bll IN SPnA(O), 

UBB (88) =MSW. ICTR TO ■'•I F 

SREG =MSW, SFl, SREG =LSW, JSB TO NORMALIZE 

, POP 

SET CrA 0'- MSU, POP 

FLOATING '. H BY ZERO TRAP, SET DCC ON LSU 
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RECORD 


C S 


NO 


ADDR 


8414 




8415 




8416 




8417 




8418 




8419 




8420 


0854 


8422 


0855 


8424 




8425 


0856 


8427 




8428 




8429 




8410 




8411 




8432 




8433 




8434 


0857 


8436 


0853 


8438 




8 4 3 9 


0859 


844: 




8442 




R443 


085A 


'-i445 




ii.'MB 




8447 


085B 


8449 




8450 


085C 


8452 




8453 


085D 


8 455 




8456 


085E 


8458 


085F 


8460 


0860 



Floating Point Instructions 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



FNEG (Floating negate) Instruction 



SLUT INSTR=FNEG 000 101 101 xxx xxx 
FNEG RA RB 



ENTRY=FNEG, SR=2 



I OR 
JSB 



NZRO 
UNC 



8000 
UBB RB 



ADDL 
XOR 



CCA 
DCC 



FIXR (Fix and round) Instruction 



SLUT INSTR=FIXR 000 111 000 XX , ENTRY=FIXR , SR=2 



UBA 


RB 
UBB 


ADD 
JSB 


LSL 
FUNZ 




RB 


ADD 




003F 


RB 


ANDL 




0040 


UBA 


lORL 






UBA 


ADD 






UBA 


OASR 






SREG 

UBA 

UBA 


lASR 
ADSB 
JSB 


FTST 



NCRY 


8080 
F700 


ADDL 
ADDL 


HBF2 


F500 


SP4A ADDL 




UBB 


UBB JSB 



UBB 

RA 

UBB 



CAD 

REPC 

LINK 



FXSL CTX 
CTX 



POS 

UNC 



DCTX CTXO 
DCTX CTXO 



SREG LINK 
UBB LINK 
UBB LINK 



CLO 
CCRY 
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SKIP IF FLOATING POINT WORD <> 0; UBB ; =MASK 
JSB IF = 0; 

UBB:=(S-1) AND TOGGLE SIGN BIT, CCA 
(S-1):=UBB, NEXT, SET DCC ON (S) 



UBA; >SP4A: "MSU & LSL(l); UBB:=%B080 

JSB IF NOT (EXPONENT >= -1); 

SP3B: -CONSTANT TO TEST FOR OVERFLOW LATER 

F2: -SIGN(U) ; 

UBB:=EXPONENT - 22, 

SKIP IF (EXPONENT - 256) <= 
SP4A: =UBA:=MS MANTISSA; 
CTX =LS 8 BITS OF EXPONENT, JSB IF 

ADJUSTED EXPONENT < 
UBA:=MS MANTISSA WITH IMPLIED LEADING 1; 
CTX: '-ADJUSTED EXPONENT - 1 
UBA: =MS MANTISSA; 

UBB:-LS MANTISSA, REPEAT IF CTX <> 0, DCTX 
UBA A UBB: 'MANTISSA SHIFTED RIGHT, 
END REPEAT WHEN CTX IS DECREMENTED TO 
UBA, UBB: 'ROUNDED ABSOLUTE ANSWER 
SP4A, RA:'- (ABSOLUTE ANSWER) IF < 0, CLO 
UBA:=MSW + LSW(O), JSB; CCRY 
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RECORD 

NO 

8463 
8464 
8465 
8466 
8467 
8468 
8469 
8471 
8472 
8474 
8475 
8476 
8478 
8479 
8481 
8482 
8484 
8485 
8487 
8488 
8490 
8491 
8493 
8495 
84Q6 
8498 
8499 
8501 
8502 
8504 
8506 
8508 
8509 
8511 
8'>13 
8h 15 
8516 
8518 
8519 
8521 
8523 



C.S 
ADDR 



0861 
0862 

0863 

0864 

0865 

0866 

0867 

0868 
0869 

086A 

086B 

086C 
086D 
086E 

0a6F 
0870 
0871 



0873 
0874 
0875 



ALU A »••••*••••• 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



• FIXT (Fix and truncate) Instruction 

SLUT INSTR-FIXTO 000 111 001 xxx xxx , ENTRY-FIXT, SR«2 
FIXT RB RB JSB FUNZ POS F700 ADDL SP3B 
RB ADD HBF2 F500 UBA ADDL 



003F 


RB 


ANDL 


0040 


UBA 


lORL 




UBA 


ADD 




UBA 


QASR 




UBA 


ADSB 




UBA 


JSB 
ADD 



SP4A 



0040 SP4A lORL 

UBA ADD LSL 

SREG ADSB 
UBA ADD 
UBA ADD 

ADD 

ADD 

RA SP4A lOR 



ADO 
ADD 
ADD 



NEXT 
NEXT 
F2 



NEXT 

COO 

NEXT 



UBB UBB 
UBB 



UBB 

UBB 

UBB UBB 
SP3B CTRS 

RA 

UBB 

SREG 
UBB UBB 
SP4A 

RA 

SPIB 

UBA 

UBA 



JSB 

CAD 

REPC 

LINK 

LINK 

LINK 
JSB 

REPC 

LINK 

LINK 
LINK 
ADD 

ADD 
ADD 
JSZ 



FXSL 



CTX 
CTX 



FOVZ SPIB 



RA 
RB 



IRO 
IRO 



DCTX 
DCTX 
CLO 
CCRY 

DCTX 

DCTX 

CLO 

CCRY 

CCA 

DCC 
SCRY 



CTXO 
CTXO 



CRRY 
CTXO 
CTXO 



NZRO 
NZRO 



CSR 
ADD 
ADD 
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UBA:.MSU & LSL(l), JSB IF EXPONENT < 0; 
SP3B: -CONSTANT TO TEST FOR OVERFLOW LATER 
F2:.SIGN(U) ; 
UBB: -EXPONENT - 22, 

SKIP IF (EXPONENT - 256) <= 
SP4A:-MS MANTISSA; CTX:-LS 8 BITS OF 

ADJUSTED EXPONENT, JSB IF >= 
UBA: -MS MANTISSA WITH IMPLIED LEADING 1; 
CTX: --ADJUSTED EXPONENT - 1 (I'S COMPLEMENT) 
UBA: -MS MANTISSA; 

UBB:-LS MANTISSA, REPEAT IF CTX <> 0, DCTX 
UBA 4 UBB: -SHIFTED MANTISSA, END REPEAT WHEN 

CTX IS DECREMENTED TO 
SP4A & RA:-- (ABSOLUTE ANSWER) IF < 0. CLO 
(CALLING FOR UBA & UBB SHIFTS ONCE MORE) 
UBA:-MSW + LSW{0), JSB; CCRY 
SPOA;-0; 

JSB IF SHIFT COUNT >• 9, SPIB -0 IF - 9 
UBA: -MS MANTISSA WITH IMPLIED LEADING 1; 
UBB:«LS MANTISSA, REPEAT IF CTX <> 0, DCTX 
UBA & UBB: -MANTISSA SHIFTED LEFT, 
END REPEAT WHEN CTX IS DECREMENTED TO 
SP4A, RA:=- (ABSOLUTE ANSWER) IF < 0, CLO 
UBA:-MSW + LSW(O) : CCRY 
SKIP IF MS 17 BITS ARE NOT THE SAME; 
(S-1):»MSW, CCA 

NEXT IF MS 17 BITS ARE THE SAME; DCC ON LSW 
NEXT IF MS 17 BITS ARE NOT THE SAME; SCRY 
UBA:-ZERO IF MANTISSA - 0, SKIP IF W < 0; 
OVERFLOW TRAP IF EXPONENT <> 9 
UBA:-1, OVERFLOW TRAP IF W > 0; 
OVERFLOW TRAP IF MANTISSA <> 
NEXT; (S-l) :-%8000, W IS -2**31, CCRY 
CLEAR OVERFLOW AND CARRY; (S):=0 
NEXT; (S-1) -0 
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RLCORD 


C S 


NO 


ADDR 


8526 




S527 




8528 




8529 




8530 




8511 




8532 




8533 


0876 


8535 


0877 


8 ' , 3 7 


0878 


8 '.3 9 




8540 


0879 


8542 




8543 




8544 




8545 




8546 




8547 




8548 




8549 




8550 


087A 


8552 


087B 


8554 


087C 


8556 




8557 


087D 


8559 




8560 




8561 




8562 




8563 




8564 




8565 




8566 




8567 


0S7E 


8569 


087F 


8571 


0880 


8573 




8574 


0881 


8576 




8577 




85 7 8 




85 79 




3580 




8581 




8582 




8583 




8584 


0882 


8585 


0883 


8588 


0884 



ALU A *««••••»••« 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKICP 
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* ASL (Arithmetic shift left) Instruction 

$I.UT INSTR=:ASL:0 001 000 000 XX , ENTRY=ASL , SR = 1 ,DSPL = 6 
SLUT INSTR=ASL X 001 100 000 XX , ENTRY=ASL , SR==1 . DSPL = 6 , X 

;L XC DCIPL JSB *+3 zero 003F 



xc 


DGPL JSB 


UBA 


U6B AND 


UBA 


CAD 



ZERO 
ZERO 
ZERO 



ADDL 
RA REPC 
UBB ASL 



• ASR (Arithmetic shift right) Instruction 

JLUT INSTR=ASR:0 001 000 001 XX , ENTRY=ASR , SR= 1 , DSPL=6 
SLUT INSTR = ASR X;0 001 100 001 XX , ENTRY=ASR , SR» 1 .DSPL=6 , X 



XC DSPL JSB 
UBA UBB AND 
UBA CAD 



ZERO 
ZERO 
ZERO 



ADDL 
RA REPC 
UBB ASR 



* LSL (Logical shift left) Instruction 

JLUT INSTR.LSLO 001 000 010 XX , ENTRY=LSL , SR«1 ,DSPL=6 
SLUT INSTR-LSL X:0 001 100 010 XX , ENTR Y=LSL , SR = 1 ,DSPL«6 , X 



LSL 



XC 

UBA 

UBA 



DSPL JSB 

UBB AND 

CAD 



•+3 



ZERO 003F 

ZERO 

ZERO 



ADDL 
RA REPC 
UBB ADD LSL 



• LSR (Logical shift right) Instruction 

SLUT INSTR.= LSR:0 001 000 Oil XX , ENTRY = LSR , SR-1 ,DSPL = S 
SLUT INSTR=LSR X:0 001 100 Oil XX , ENTRY=LSR , SR=1 ,DSPL»6 , X 



XC 

UBA 

UBA 



DSPL JSB 

UBB AND 

CAD 



0885 



ZERO 
ZERO 
ZERO 

NEXT 



ADDL 
RA REPC 
UBB ADD LSR 

SREG ADD 



UBA;. SHIFT COUNT, JSB IF 0; UBB:«%003F 
UBA;«SHIFT COUNT MOO 64; UBB : = ( S ) 
REPEAT UNTIL UBA IS DECREMENTED TO 0; 
ARITHMETIC SHIFT LEFT 
NEXT; (S) "SHIFTED (S), CCA 



UBA: -SHIFT COUNT, JSB IF 0; UBB : ■=%003F 
UBA: -SHIFT COUNT MOD 64; UBB:=(S) 
REPEAT UNTIL UBA IS DECREMENTED TO 0; 
ARITHMETIC SHIFT RIGHT 
NEXT; (S):=SHIFTED (S), CCA 



UBA:=SHIFT COUNT, JSB IF 0; UBB : =«003F 
U8A:=SHIFT COUNT MOD 64; UBB : = ( S ) 
REPEAT UNTIL UBA IS DECREMENTED TO 0; 
LOGICAL SHIFT LEFT 
NEXT; (S) :-SHIFTED (S) , CCA 



UBA: -SHIFT COUNT, JSB IF 0; UBB:=%003F 
UBA;=SHIFT COUNT MOD 64; UBB : = ( S ) 
REPEAT UNTIL UBA IS DECREMENTED TO 0; 
LOGICAL SHIFT RIGHT 
NEXT; (S):=SHIFTED (S), CCA 
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RECORD 


C.S 


NO 


ADDR 


8594 




8595 




8596 




8597 




8598 




8599 




8600 




8601 


0886 


8603 


0387 


8605 


0388 


3607 




8608 


0889 


8610 




8611 




8612 




8613 




8614 




8615 




S616 




8617 




8618 


088A 


8620 


088B 


8622 


088C 


8624 




8625 


088D 



Single Word Shift Instructions 

««.£••«•••• ALU A ••••••••••• 

LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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CSL (Circular shift left) Instruction 



SLUT INSTR.CSLiO 001 000 100 XXX xxx , ENTRY-CSL, SR-1, DSPL«6 
SLUT INSTR-CSL X:0 001 100 100 xxx xxx, ENTRY-CSL, SR-1, DSPL- 



XC 

USA 

UBA 



DSPL JSB 

UBB AND 

CAD 



ZERO 
ZERO 
ZERO 



ADDL 
RE PC 
CSL 



UBB 
SREG ADD 



CSR (Circular shift right) Instruction 



SLUT INSTR»CSR:0 001 000 101 XX , ENTRY=CSR , SR«1 ,DSPL«6 
SLUT INSTR=CSR X:0 001 100 101 XX , ENTRY=CSR , SR-1 ,DSPL>6 , X 



XC 

UBA 

UBA 



DSPL JSB 

UBB AND 

CAD 



ZERO 
ZERO 
ZERO 



RA 
UBB 



ADDL 
REPC 
CSR 



UBA: -SHIFT COUNT, JSB IF 0; UBB:=%003F 
UBA: -SHIFT COUNT MOD 64; UBB:=(S) 
REPEAT UNTIL UBA IS DECREMENTED TO 0; 
CIRCULAR SHIFT LEFT 
NEXT; (S):-SHIFTED (S), CCA 



UBA: -SHIFT COUNT, JSB IF 0; UBB:=%003F 
UBA: -SHIFT COUNT MOD 64; UBB - ( S ) 
REPEAT UNTIL UBA IS DECREMENTED TO 0; 
CIRCULAR SHIFT RIGHT 
NEXT; (S) : -SHIFTED (S) , CCA 
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RECORD 

NO 

8628 
8629 
8630 
8631 
8632 
8633 
8634 
8635 
8637 
8639 
8641 
8642 
8644 
8645 
8647 
8648 
8649 
8650 
8651 
8652 
8653 
8654 
8655 
8657 
8659 
8661 
8662 
8664 
8665 
8667 
8668 
8669 
8670 
8671 
8672 
8673 
8674 
8675 
8677 
8679 
8681 
8682 
8684 
8685 



Double Word Shift instructions 

C.S .».*..«.... f^nj A ........... <,.....•...... /^nj B •••« ••<• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

* DASL (Double arithmetic shift left) Instruction • 
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088E 
088F 
0890 

0891 

0892 



0893 
0894 
0895 

0896 

0897 



0898 
0899 
0S9A 

089B 

089C 



SLUT INSTR=DASL 
SLUT INSTR=DASL 



001 010 000 XX,FNTRY=DASL,SR=2,DSPL=6 
X;0 001 110 000 XX,ENTRY=DASL,SR=2,DSPL=6 , 



DSPL JSB 

ADD 

RB ADD 



UBA 
RA 



ADD 

ANDL 

REPC 



UBB LINK 
SREG JSB DSFT 



DCTR CTR'O 



003F UBA 
RA 


ADD 

ANDL 

REPC 




CTR 


DCTR CTRO 


UBB 


LINK 






DCTR CTflO 


SREG 


JSB 


DSFT 




UNC 



• DASR (Double arithmetic shift right) Instruction ' 

SLUT INSTR.DASRO 001 010 001 XX , ENTRY-DASR , SR-2 ,DSPL = 6 
SLUT INSTR'DASR X:0 001 110 001 XX , ENTRY-DASR , SR-2 ,DSPL-6 , 

DASR XC DSPL JSB "+4 Z 
ADD 
RB ADD 

UBA ASR 

SREQ ADD RB Ci 

• DLSL (Double logical shift left) Instruction 

SLUT INSTR=DLSL:0 001 010 010 XX , ENTRY=DLSL , SR=2 ,DSPL=6 
SLUT INSTR=DLSL X:0 001 110 010 XX , ENTRY=DLSL , SR=2 ,DSPL=6 , X 

DLSL XC DSPL JSB *+4 Z\ 
ADD 
RB ADD 

UBA ADD LSL 

SREG ADD RB Ci 



003F UBA 
RA 


ADD 

ANDL 

REPC 




CTR 


DCTR CTRO 


UBB 


LINK 






DCTR CTRO 


SREG 


JSB 


DSFT 




UNC 



UBA;«SHIFT COUNT, JSB IF =0; 

. CTR:=SHIFT COUNT MOD 64 
UBA;=i(S-l) , UBB:-(S) , 
REPC CTR <> 0, DCTR 
ARITHMETIC SHIFT LEFT 

UNTIL CTR IS DECREMENTED TO 

(S-1) :=SHIFTED (S-1), CCA; UBB;=SHIFTED 



(S) 



UBA; "SHIFT COUNT 
; CTR;=SHIFT COUNT MOD 64 
UBA ;= (S-1); UBB:=(S), 
REPC CTR <> 0, DCTR 
ARITHMETIC SHIFT RIGHT 

UNTIL CTR IS DECREMENTED TO 
(S-1) :«SHIFTED (S-1), CCA; UBB:=SHIFTED (S) 



UBA; -SHIFT COUNT 
; CTR: 'SHIFT COUNT MOD 64 
UBA;»(S-1); UBB;-(S), 
REPC CTR <> 0, DCTR 
LOGICAL SHIFT LEFT 

UNTIL CTR IS DECREMENTED TO 
(S-1) ;-SHIFTED (S-1), CCA; UBB:=SHIFTED (S) 
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RtCORD 

NO 

8688 
8689 
869D 
8691 
8692 
8693 
8694 
8695 
8697 
8699 
8701 
8702 
8704 
8705 
8707 
8708 
8709 
8710 
8711 
8712 
8713 
8714 
8715 
8717 
8719 
8721 
8722 
8724 
8725 
8727 
8728 
8729 
8730 
8731 
8732 
8733 
8734 
8735 
8737 
8739 
8741 
8742 
8744 
8745 
8747 
8749 



003F UBA 
RA 


ADD 
ANDL 
RE PC 




CTR 


DCTR CTRO 


UBB 


LINK 






DCTR CTRO 


SREQ 


JSB 


DSFT 




UNC 



Double Word Shift Instructions 
C S. «....•*.»«* ALU ft «•«.*..»>•* •«•«•*•..««•• ALU B ••••••••••»••• 

ADDS LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

DLSR (Double logical shift right) Instruction * 

LUT INSTR-DLSR:0 001 010 Oil xkk xxx, ENTRY-DLSR, SR«2, OSPL-6 

LUT INSTR-DLSR X:0 001 110 Oil xxx xxx, ENTRY-DLSR. SR-2, DSPL-6. X 

089D DLSR XC DSPL JSB "+4 
089E ADD 

089F RB ADD 

08A0 UBA ADD LSR 

08A1 SREG ADD I 

DCSL (Double circular shift left) Instruction 

LUT INSTR-DCSL:0 001 010 100 XX , ENTRY-DCSL , SR-2 .DSPL-6 
LUT INSTR-OCSL X:0 001 110 100 XX .ENTRY-DCSL , SR-2 , DSPL-6 , 

08A2 DCSL XC DSPL JSB "+4 
08A3 ADD 

08A4 RB ADD 

08A5 UBA CSL 

08A6 SREG ADO I 

* DCSR (Double circular shift right) Instruction 

SLUT INSTR-DCSR:0 001 010 101 XX , ENTRY-DCSR , SR-2 .DSPL-6 
SLUT INSTR-DCSR X:0 001 1 

08A7 DCSR XC DSPL JSB »+4 
08A8 ADD 

08A9 RB ADD 



08AB SREG ADD 

08AC DSFT ADD 
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003F UBA 
RA 


ADD 

ANDL 

REPC 




CTR 


DCTR CTRO 


UBB 


LINK 






DCTR CTRO 


SREG 


JSB 


DSFT 




UNC 



1 XX 


ENTRY-DCSR 


.SR-2 


DSPL 


• 6.x 






ZERO 


003F UBA 
RA 


ADD 

ANDL 

REPC 




CTR 


DCTR 


CTRO 




UBB 


LINK 






DCTR 


CTRO 


CCA 
NEXT 


SREG 
UBB 


JSB 
ADD 


DSFT 


RA 


DCC 


UNC 



UBA: -SHIFT COUNT 
; CTR -SHIFT COUNT MOD 64 
UBA:-(S-1), UBB:=(S), 
REPC CTR <> 0, DCTR 
LOGICAL SHIFT RIGHT 

UNTIL CTR IS DECREMENTED TO 
(S-1) :-SHIFTED (S-1), CCA; UBB:-SHIFTED (S) 



UBA: -SHIFT COUNT 
; CTR -SHIFT COUNT MOO 64 
UBA:-(S-1); UBB:-(S), 
REPC CTR <> 0, DCTR 
CIRCULAR SHIFT LEFT 

UNTIL CTR IS DECREMENTED TO 
(S-1) :-SHIFTED (S-1), CCA; UBB-SHIFTED (S) 



UBA:=SHIFT COUNT 
, CTR: -SHIFT COUNT MOD 64 
UBA:»(S-1); UBB:-(S), 
REPC CTR <> 0, DCTR 
CIRCULAR SHIFT RIGHT 

UNTIL CTR IS DECREMENTED TO 
(S-1) :-SHIFTED (S-l). CCA; UBB 'SHIFTED (S) 
NEXT, (S) :-SHIFTED (S) , DCC 
; STORE S. SET CC ON DOUBLE WORD 
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RECORD C.S 
NO ADDR 



5751 
B752 
B753 
B754 
B755 
B756 
B757 
B759 
8761 
8763 
8765 
8767 
8769 
8771 
8772 
8773 
8774 
B775 
S776 
B777 
B778 
B780 
5782 
5784 
B786 
B738 



08AD 
08AE 
08AF 
08B0 
08B1 
08B2 
0883 



08B4 
08B5 
0886 
08B7 
0SB8 



Quadruple Word Shift instructions 

• •.<,<,..«•>. ALU A ........... ............. ALU B ............... 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• OASL (Quadruple arithmetic shift left) Instruction " 

$LUT INSTR=OASl.;0 001 001 111 XX , ENTRY = OASL , SR=^4 ,DSPL = 6 

OASL ADD SP4A 

X DSPL JSB QAS2 UNO 
UBA OASL 
QASl SREG ADD RD CCA 
SPOA ADD 
ADD 
ADD NEXT SP3B 

* QASR (Quadruple arithmetic shift right) Instruction 

DSPL=6 





ADD 




RA 


ADD 


SP3B 


UBB 


LINK 


DCTR CTRO 


SREG 


ADD 




UBB 


ADD 


RC DCC 


UBA 


ADD 


RB DCC 




ADD 


RA DCC 



SLUT INSTR=OASR 
QASR 



001 101 111 XX,ENTRY=QASR ,SR 

UNC 

CCA 



DSPL JSB QAS2 
UBA QASR 
SREG ADD RD 
RB ADD SPOA 
RD ADD 



RA ADD SP3E 
UBB LINK 
SREG JSB QASl 
003F UBA ANDL CTR 
RSB RC REPC 



DCTR CTRO 
UNC 
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SP4A:=0; 

UBA ;=SHIFT COUNT, JSB; SP3B:'(S) 

QASL UNTIL CTR IS DECREMENTED TO 

STORE (S-3), CCA; UBB =(S-2) 

UBA =(S-1); STORE (S-2), DCC 

. STORE (S-1 ) , DCC 

NEXT; STORE ( S ) , DCC 



UBA: "SHIFT COUNT, JSB; SP3B:=(S) 

QASR UNTIL CTR IS DECREMENTED TO 

STORE (S-3), CCA; SREG:=(S-2), JSB TO FINISH 

SP0A:=(S-1); CTR:=SHIFT COUNT MOD 64 

UBA:»(S-3). RSB; 

UBB:»(S-2), REPC IF CTR <> 0, DCTR 
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RECORD C.S. .«....*»».* ALU A •••»*••»••• ».«*.«*...... ALU B ••••»•••••••«• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

8790 .*..»»».»«»**•••.»»»...».»..*«»......»........»...« ..>..»««i.««i, 

3791 « Delete B (DELB) Instruction • 

879;^ ..*«»...»..».•»*............»..».........».»..«.•.«.«.»..«..«««....«. 

8794 SLUT INSTR-DELBO 000 000 001 xxx xxx, ENTRY-DELB, SR>2 

8795 * 

8796 08B9 DELB JSZ NEXT UNO RA ADD RB EPOP Jump to NEXT; New (S) ;• (S), pop 1 TOS 
8798 

8799 ..*...•......«..»...»... ..•.«...>.>«*«.■>*•••«».*>«««..*>. 

8800 • Double Delete (DDEL) Instruction * 

8 801 

8802 « 

8803 JLUT INSTR«DDEL:0 000 000 010 xxx xxx. ENTRY'DDEL, SR«2 

8804 • 

8805 08BA DDEL JSZ NEXT UNC ADD EPP2 Jump to NEXT; Pop 2 TOS 
8807 • 

8809 * Delete A (DEL) Instruction • 

gSlO ...........».....<,........*......................«•............»»..«, 

8811 • 

8812 SLUT INSTR-DEL.O 000 100 000 xxx xxx, ENTRY=DEL, SR=1 

8813 ' 

8814 08BB DEL JSZ NEXT UNC ADD EPOP Jump to NEXT; Pop 1 TOS 
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RECORD 


C S. 




NO 


ADDR 


LAB 


8817 




... 


8818 






8819 






8820 






8821 




... 


8822 


08BC 


SEF 


8824 


08BD 




8826 


08BE 


SEL 


8828 


08BF 





Privileged Bounds Checking Instructions 



ALU A 
LABL RREG SREG FUNC SFNC STOR SPSK 



ALU B .•....«««..«** 
RREG SREG FUNC SFNC STOR SPEC SKIP 



Set Bounds Flag and Set Bounds Limit - Priv Mode Instrs 



RA 


ADD 


UBA 


ADD 


RA 


ADD 


UBA 


ADD 



EPOP 
EPOP 



JSZ 
JSL 
JSZ 
JSL 



PULM 
NEXl 
PULM 
NEXl 



SR2 
UNO 
SRZ 

UNO 



:= RA 
Pop 1 TOS 
UBA : = RA 

1 TOS 



UBA 
Pop 
UBA 
Pop 
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Pull 
Jump 
Pull 



1 TOS if SR = 

to exit routine 

TOS if SR = 



Jump to exit routine 
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RECORD 


C S 


NO 


ADDR 


8831 




8832 




8833 




8834 




8835 




8836 




8837 




8838 




8839 




8840 




8841 


08C0 


8843 


08C1 


8845 


08C2 


8847 


08C3 



Enable/Disable CNTL 
*. <,•<,•.**«. ALU A *«.«.««.... 
LABL RREG SREG FUNC SFNC STOR SPSK 



B ' Ins t rue t ion 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



Allows a user to disable CNTL 'B' recognition by the DCU. 

This will allow binary data to be transmitted through the 

terminal connected to the DCU without causing problems. 

Entered with CTR = ! 19 



ADD 
ADD 
ADD 
ADD 



JSZ 
ADD 
ADDL 
JSL 



SRZ 
EPOP ZERO 



UBA :- RA; JSB to pull 1 TOS if J 
; Pop 1, sKip if TOS • 
; CTR :• DCUSTOR to disable 
inform DCU; Jump to exit routine 
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RECORD 

NO 

88'50 
8;-i51 
8852 
8853 
8854 
8855 
8856 
8857 
8858 
8859 
8860 
8861 
8862 
8863 
8864 
8865 
8868 
8867 
8868 
8869 
8870 
8872 
8874 
8876 
8878 
8880 
8881 
8883 
8885 
8887 
8889 
8 891 
8893 
8895 
8897 
8899 
8901 



C S 
ADDR 



08C4 
08C5 
08C6 
08C7 
08C8 

08C9 
08CA 
08CB 
08CC 
08CD 
08CE 
08CF 
08D0 
0801 
08D2 



MESSAGE COMMAND instruction 

........... ALU A .**.«.«•.•• 

LABL RREG SREG FUNG SFNC STOR SPSK 



MCMD : Message Command 



««•.>.«.<,...• ALU B ••««<.««•••*«•» 
RREG SREG FUNG SFNC STOR SPEC SKIP 



020104 000004 
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RB 
RC 



I TO CODE I IB I BF I RE 



LSW OF MESSAGE 
MSW OF MESSAGE 



IB = IGNORE BUSY 
BF = GO BUSY FLAG 
RE = REPLY EXPECTED 



Entered with SP4A 



JSZ PULM 
SR SP4A JSZS PULM 

JSZ PSHM 
0090 AODL RG 
0802 ADDL SP4A 



0038 



MCM2 0400 



ADDL 

JSZ IRDN 

JSB MCMl 

JSB MCM2 

JSB MCM2 

JSBC *-l 

ADDL 

ADD 

ADD 

ADD 



RH 



SRL2 






JSZ 


Pill? 






SRZ 


NEG 


0C02 




ADDL 




RH 






SR7 






ADD 






CCA 






RH 




REPN 






BUSC 


0003 




RC 


OPB 
RB 


XFRR 
ADD 




BKX4 


DCTR 
WRX4 


CTRO 


MSGI 


FFFE 




ADDL 










ODD 


RREG 


RA 


AND 






BUSC 




UNC 






ADD 






EPP2 




MSGI 


RH 




JSBI 


*-l 


RH 




ZERO 


CCA 




SP4A 
RG 


ADD 
ADD 






BUSC 
CCPX 




CCA 


UBA 


OPB 


XFRR 






BUSC 








SREG 


ADD 




RB 


EPOP 





OPB JSL NEXl RC 



IF SR.l THEN PULL 1; IF SR-O THEN PULL 2 
IF SR<3 THEN PULL 1; RH:- GO BUSY CMD 
PUSH 1 IF SR=7; SET CCE 

RG:=CCPX MASK: GO BUSY .REPEAT NEXT 3 TIMES 
SP4A:=BUSC CM6 ; BKX4;=MSW OF MSG 

WAIT HERE TO GO BUSY 
RH: 'TIMEOUT CONSTANT; YREGB:=LSW OF MSG 
HANDLE ANY EXISTING MSGI; UBB=CMD WRD MASK 
SEND CMD WORD; JMP IF RE BIT «1 
JUMP TO FINISH ; POP 2 WORDS 
SKIP IF REPLY MSG RCVD ; EXIT IF TIMEOUT 
SET CCL (IN CASE OF TIMEOUT); READ REPLY LSW 
UBA := read upper word, go unbusy; Clr MSGI 
SET CCE ; READ MSW OF REPLY, GO UNBUSY 

, RB:«LSW OF REPLY, POP CMD WORD 
RC:=MSW OF REPLY 
READ NEXT INSTRUCTION 
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Channel P 


roqram Processor Communications 










RtnORD 


C S 




* * » * 




•• ALU A ••*•••*««•* 




••** ALU B •••• 


II A * * * 


* A A A 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC STOR SPSK 


RREG SREG 


FUNC 


SFNC STOR 


SPEC 


SKIP 


8903 




.••• 


• •••* 


.>..« 


• •••« 


••*••••••.*•••• 




«..>> 


»«..*»«>ii 




8904 




« 




















8yo^ 




• 


CCPP 


- Communicate with Channe 


1 Program 


Processo r 






SOOfi 




* 




















8')n7 




* 




Th 


is is 


a mac hine-depen 


dent ins t r 


uction which 






8!308 




* 




communicates with the Channel Pro 


qram Processor 


Kia 




8'iO'l 
8 1 1 J 
8'U I 




* 




th 


ree parameters passed 


and returned on the TOS 








«««. 


«•••> 


• •••• 


• •••• 


• *•*>•<*•• t*** « 




«.««« 


*••>«*••> 


tAAAAAAAA 


5')12 




« 




















8013 


08D3 


CCPP 


0003 




ADDL 


RH 




JSL 


ADJS 




UNC 


8915 


08D4 




0008 




ADDL 


RD 




ADD 


BKX3 


SF4B 




8917 
























R918 


08D5 




0180 


RA 


ANDL 


RE 




JSL 


L2PF BKX5 




UNC 


8920 


08D6 






UBA 


JSB 


CCPA NEG 




ADD 


SP3B 


CF4B 




8922 
























8923 


08D7 




0C02 




ADDL 






ADD 








8925 


08D8 








ADD 




UBA 


REPN 




BUSC 


0003 


8927 


08D9 








ADD 






ADD 




DCTR 


CTRO 


8929 


08DA 








JSZ 


IRDN MSGI 




ADD 








8931 


08DB 




RE 


RE 


ASL 


RE 




JSL 


lOMS 




UNC 


8933 


08DC 




2000 


RG 


ANDL 




RD 


ADD 




R0X3 




8935 


08DD 






UBA 


JSB 


CCPA ZERO 


1000 


ADDL 


SP3B 






8937 


08DE 






RD 


INC 


R0B3 


OPB 


ADD 


BKX3 






8939 


08DF 




0018 


RE 


ADDL 






ADD 








8941 


08E0 








ADD 




UBA OPB 


ADD 


RD 






8943 


08E1 






UBB 


ADD 


R0X3 


UBB 


INC 




R0X3 




8945 


08E2 








CAD 


DATA 




CAD 




CCA 




8947 


08E3 






OPA 


ADD 


SPOA 


F008 


ADDL 


RG 






8949 


08E4 








ADD 




UBA 


JSL 


NEXl 




NEG 


8951 


08E5 






RA 


JSB 


CCPW POS 


OPB 


ADD 


RF 






8953 
























8954 




* * * * 


t * « * * 


h * * * * 


* A A • * < 










8955 






















A 


8956 






CCPR 


is the 


read path of CCPP 








* 


8957 






















A 


8958 




• • * « 


k A * * A 


K A * * * 




***«*lkAlt*A*A*A* 




A * * A * 


A**AA**AA 


ft A A A A 


AAA 


8959 
























8960 


08E6 


CCPR 


0006 


RD 


ADDL 






ADD 




DATA 




8962 


08E7 






UBA 


ADD 


R0X3 


UBA 


INC 




R0X3 




8964 


08E8 








ADD 


CCA 


RF 


ADD 


RC 






8966 


08E9 








ADD 


DATA 


OPB 


ADD 


RA 






8968 


08EA 






OPA 


ADD 


RB 


8007 UBB 


ANDL 








8970 


08EB 






RD 


ADD 


WRX3 


UBB 


ADD 




DATA 




8972 


08EC 




SPOA 




ADD 


DATA 




JSL 


NEXl 




UNC 
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Call lADJS to make exactly 3 TOS valid 
BKXS.RD ■ DRTBANK (38; 

Set F'l so no NRSM if module not there 
Mask out IMBK ; Convert to physical 
If module not there abort (UBA from subr); 

Setup for »I0MS 
Constant to set BUSY 
. Go BUSY, repeat next line 3 times 
: Wait here to go BUSY 

Exit to interrupt handler if MSGINT present 
Adjust RE left 2 bits; Read IMBI regl 
Mask out CPP bit; Read DRTBANK into OPB 
Abort it no CPP; Set SP3B for write command 
Read DRTOFFSET; Save DRTBANK in BKX3 (2319) 
Add offset for MBO; BKX3 :- DRTBANK (2319) 
; BKX6 RD : - MBO 

Semaphore read MBO; Also read MBl (2319) 
Write semaphore to lock; Set CCL 
Skip if sem not locked; RG :• CPPATN erand 

. else return CCL to user 
If GET = then write; Save MBl 



UBA :« BMB2; Zero MBl 
Read MB2 . Read MB3 
Set CCE ; RC : • MBl 
Zero MB2; RA :- MB3 
RB ;- MB2; Zero MB3 error bits 
Write MRO with orig data: MB3 w/ no errot 
... to unlock semaphore: Done 
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RECORD 

NO 

8075 
8976 
8977 
8978 
8979 
8980 
8981 
8983 
8985 
8987 
8989 
8991 
8992 
8994 
8996 
8998 
9000 
9001 
9002 
9003 
9004 
9005 
9006 
9007 
9008 
9009 
9010 
9011 
9013 
9015 
9016 
9017 
9018 
9019 
9020 
9021 
9022 
9023 
9024 
9025 
9026 
9028 
9030 
9032 
9034 
9035 
9037 



C.S. 
ADDR 



08ED 
08EE 
08EF 
08F0 
08F1 
08F2 
08F3 
08F4 
08F5 
08F6 



08F7 
08F8 



08F9 
08FA 
08fR 
08FC 

08FD 
08FE 



Channel Program Processor Communicaf ions 

.«.«..«...* ALU ft .»«.»,«..., .».......,.,» ftnj B ....«..«..,... 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



is the write path of CCPP 



ADD 
UBA REPN BUSC 0003 

ADD DCTR CTRO 

MSGI ADD 

JSL lOMS UMC 

ADD 
CCA UBA ADD R0X3 

WRX3 8000 ADDL 

use OPB lOR DATA 

DATA JSL NEXl UMC 



is the restart path of CCPP. The semaphore is 
unlocked and control passes to tIRDN to handle a 
pending MSG interrupt. In this event, the CCPP 
instruction is eventually restarted from the 
beginning . 



0C02 




ADDL 

ADD 

ADD 








JSB 


CCPI 






ADD 




0007 


RD 


ADDL 
ADD 






RD 


ADD 




007F 




ADDL 




UBA 


RA 


AND 





CCPI RD 
SPOA 



ADD 
ADD 



WRX3 
DATA 



ADD 
JSZ 



CCPA is the abort path of CCPP. TOS is set to -1 if the 

abort is due to a missing lOA , else it is set to zero 
(indicating the IDA is present, but that a CPP is not 
ins t ailed ) . 



JINOWARN 
CCPA 



XR9 ADD 
ADD 
ADD 
ADD 

ADD 
ADD 



RC 
RA 



ADD 
UBA ADD 
CAD 
JSL NEXl 

ADD 
ADD 



POS 
UMC 



10/ 2/8 



Send command routine 

Go BUSY; Repeat next line 3 times 

. Wait here to go BUSY 

Unlock semaphore and handle interrupt 

, Send CPPATN to CPP 

Set CCE; Read CPP status (MB3) 

Setup to write MBO; UBB := bit 

Isolate cmd; Rewrite MB3 w/ upper bit - 1 

Clear semaphore lock and send command; Done 



Setup semaphore address 

Restore semaphore; Handle interrupt 



No CPP. . abort , RB : = 

RC :■ 0; Set CCG & setup store of RA 

RA := -1 else RA := 

; Jump to exit routine 

NOP to keep system happy 
NOP to keep system happy 



(2555) 
(2555) 
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I/O Channel Program 


Code 


















RECORD 


C S. 




* * * * ) 


.....*. ALU A •' 


k * * * * 1 




* * * * 1 




t « * • 


ALU 8 


* A * * « 


■ • * ** 1 




NO 


ADDR 


LABL 


RREG 


SREG FUNG 


SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


9041 




7.0900 
























9042 




* * * * 1 


k * * A * 1 




(AAA*) 


k * * * A* 


t * A A A * ] 






k A A A A 




t A A A A II 


1 A A A A 1 


A A A A 


9043 




* 




INSTRUCTION JUMP 


TABLE 










* 


9044 




* * * * 1 




k*ft**A)tft**« 


I * * A * ] 


%***** 


t A A A A A : 




It A A A A 1 


k A A A A 




[ A A A A f 


1 A A A A 1 


A A A A 


9045 


0900 


I TAB 




ADD 








UBA 


SP2B 


JSB 


FCHl 


SP2B 




NZRO 


9047 


0901 


INTl 




XRO JSB 


INTH 




UNC 


OFFF 


UBA 


ANDL 




RH 




NFl 


9049 


0902 






JSBC 


WAIT 




UNO 




XR27 


ADD 




RH 


WRS 




9051 


0903 




0060 


XR12 ADDL 




SP4A 






XR27 


JSL 


READ 






UNC 


9053 


0904 




0060 


XR12 ADDL 




SP4A 






XR27 


JSL 


WRIT 






UNC 


9055 


0905 




COOl 


ADDL 




XR2 






XR26 


JSB 


DSRJ 






UNC 


9057 


0906 




C002 


ADDL 




XR2 






XR26 


JSB 


IDY 


XRO 




UNC 


9059 


0907 




0070 


XR12 ADDL 




SP4A 






XR27 


JSL 


READ 






UNC 


9061 


0908 




0070 


XR12 ADDL 




SP4A 






XR27 


JSL 


WRIT 






UNC 


9063 


0909 




003F 


XR12 ADDL 




SP4A 








JSB 


CLER 






UNC 


9065 


090A 






OPA ADD 




XR2 


SF3A 






JSB 


RMW 






ZERO 


9067 


090B 






JSB 


RRG 




UNC 






ADD 










9069 


090C 






JSB 


low 




UNC 




UBA 


ADD 




RG 


SF4B 




9071 


090D 






JSB 


CMD 




UNC 


4000 




ADDL 




RH 






9073 


090E 






SP2B INC 






R0X3 






JSL 


XDMA 


BKX6 




UNC 


9075 


090F 






JSB 


WRIM 




UNC 




RH 


ADD 


SWAB 






NEQ 


9077 


0910 


CRCJ 


003F 


XR12 ADDL 




SP4A 






XR22 


JSB 


CRCI 


SP3B 




UNC 


9079 


0911 


CRCD 


0071 


XR12 ADDL 




XR2 






XR22 


JSB 


CROC 


SP3B 




UNC 
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OREL. JMP;ADD TO <POINT> 

1. INTERRUPT/HALT/RUN, XRO'CPVA COUNT; INT CODE 

2. WAIT, -1 ;DRTO AS ADDR 

3. READ, SEC ADDR %4060,DRT0 ADDR 

4. WRITE. SEC ADDR %4060,DRT0 ADDR 

5.DEV-SPECIFIED REL JMP.REC 1 BYTE ;DEVIt 

6. IDENTIFY, XR2:-REC 2 BYTE;DEV« 

7. READ CONTROL, SEC ADDR «4070;DRT0 ADDR 

8. WRITE CONTROL, SEC ADDR %4070;DRT0 ADDR 

g.CLEAR.UNLISTEN CMD %403F , 

A. READ-MOD-WRITE ;F3A FOR RMW RETURN TO FCHl 

BREAD REGISTER, 

C. WRITE REG:F4B FOR lOW TO FCHl ;M( <POINT> ) 

D. COMMAND HP-IB;HP-IB CMD FORMAT 

E. XDMA, READ Mr <P0INT>+1 1 DATA CHAIN 

F.WRT REL IMMED; SKIP IF DSP<0 

10 CRC INIT,SP4A: r%403F ,UNLISTEN;REG»7 

ll.CRC COMPARE, SEC ADDRESS %4071;REG)t7 
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CHANNEL PROGRAM PROCESSOR 
















RECORD 


C.S. 


A * A * ) 




•• ALU A • 


AAAAAAAAAA 


A A A A 1 


« A A A A 


•«•• ALU B 


A A A A « 


t A A A A 1 


k A A A A 


NO 


ADDR 


LABL RREG 


SREG 


FUNC 


SFNC 


STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


9082 




•••••••••, 


>AAAA 


* A A A A I 


lAAAA 


AAAAAAAAAAA 


AAAAA, 


kAAAA 




, » A A A . 


tA*AA< 


.AAAA, 


kAAA 


9083 




« 
























9084 




* 




OBSI 1 


RESPONSE--- 
















908S 




* 
























9086 




* 


1 


2 3 4 


5 6 7 8 


9 10 11 


12 13 


14 15 






9087 
9088 




* 1 . 




l^-I 






















1 
1 





ITOIDAIO |DR|CR|NV| CHAN NO 


. 1 DEV NO 


-- 1 
. 1 






9089 
9090 




A 1 . 








1 - - 1 - 1 - - 1 - 


















1 




1 . 


._ 1 -_ 
\ \ 


1 1 1 1 
\ \ 


\--l = ' 


"NOT ' 


VALID' 


■ (jsb'cpex) 




9091 




* 






\ ' 


\ \ \- 


---!=' 


•CHANNEL REO"(JSB DMCK) 




9092 




* 






\ 


\ \--- 


---! = ' 


"DEVICE REO" (JSB EXAM) 




9 09 3 




A 






\ 


\ 
















909 4 




A 








\ \ 


---1 = ' 


"DMA , 


ABORT' 










9095 




A 








\ 


---! = ■ 


"TIMEOUT" 










9096 




* 








IF BIT(6:2)^ 


=0 (JSB CHRS 








9097 




A 
























9098 






*l A A A A 


A A A A A 1 


k A A A A 


AAAAAAAAAAA 


A A A A A 1 


k A A «i A 


A A A * A M 


1 III A A A 1 


« A A A A « 


( A A A A 1 


k A A A 


9099 




A 
























9L00 


0912 


PAUL 


RG 


ADD 


LSR 


CF3A 


0300 




ADDL 




XR18 






nio;' 


0313 




UBA 


ADD 


LSR 


CF2 


0700 




ADDL 




XR22 






9104 


0914 




UBA 


ADD 


LSR 




0200 




ADDL 




XR17 






9106 


0915 


OOOF 


UBA 


ANDL 




REGN 


OAOO 




ADDL 




XR25 






9108 


0916 


GDRT 0008 




ADDL 








BNKS 


ADD 




XR15 






91 JO 


0917 




UBA 


ADD 




R0B3 




RG 


ADD 


SWAB 






PCS 


9112 


0918 




UBA 


INC 




R0B3 






JSB 


CPEX 






UNC 


9114 


0919 


FFF8 




ADDL 








OPB 


ADD 




BNKS 






9116 


091A 


RRFG 


XR9 


ADD 




ZERO 




BKX5 


REPC 




RH 






9118 


0918 


RKtG 


UBA 


ADD 




ZERO 


0080 


UBB 


ADDL 




RH 






9120 


091C 


RG 




ADD 


LRZ 


SPOA NF3A 


RH 


RH 


ADD 


LSL 






FSB 


9122 




























9123 


091D 






ADD 




RSB 


UBB 


OPB 


ADD 




XR27 


ROS 




9125 




























9126 


091E 


UBB 




INC 




ROS 


0007 


RG 


ANDL 




XR26 






9128 


091F 




UBB 


ADD 




XR6 




OPB 


ADD 




SP2B 


R0X3 




9130 


0920 




OPA 


ADD 




XR3 


1000 


BKX5 


lORL 




XR19 






9132 


0921 


0003 




ADDL 




XRIO 






INC 


SWAB 


SP3B 


CF4B 




9134 


0922 


UBA 


OPA 


INC 




WRX3 


UBA 


XR27 


ADD 




XR28 


ROAS 




9136 


0923 


SPOA 




ADD 


LSR 


RH 




OPB 


JSB 


lOR 


SPIB 




UNC 


9138 


0924 




RH 


ADD 


LSR 


RG 




RG 


REPN 








0003 


9140 


0925 




OPA 


ADD 




XR4 


UBB 




ADD 


LSR 




DCTR 


CTRO 


9142 


0926 


UBB 




ADD 




XR8 FIHB 


UBA 




CSR 




XRl 


CFl 




9144 


0927 


EOOO 


UBB 


ANDL 






0004 


UBB 


ANDL 








ZERO 


9146 


0928 


RG 




ADD 


LSR 


SP4A 




UBA 


ADD 






SF2 




9148 


0929 


SPOA 




JSB 


DMCK 


ODD 


COOO 


UBB 


SUBL 




XRO 






9150 


092A 






JSB 


EXAM 


UNC 




RH 


JSB 


CHR 






EVEN 
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SHIFT CHAN* LEFT TWICE; REG«3 

SHIFT CHAN« TO BITS 13-15, REG«7 

SHIFT CHAN#; REG(»2 

SAVE CHANS TO BE SERVICED; REGSA 

UBA;=ADR OF DRT PTRS; XRB15:=BNKS 

READ DRT BANK; SKIP IF NO DNV 

READ DRT OFFSET; EXIT IF DNV 

UBA;«-8; BNKS:=DRT BANK* 

UBA :»M0D«-8, SKIP IF 0; REPEAT TIL MOD=0 

M0Di-8.SKIP IF 0; UBB : -CDEVS+SO 

SP0A;=OBSI INFO, SKIP IF F3=0 (IN CPGM) 

;UBB:=MCDEV*4, SKIP IF NOT IN CPGM 

RSB IF CALLED FROM «IRX 

■ UBB:-MCDEV» M + OFFSET ,READ DRTO 

READ M(<DRT1>) ,CPVA ADDR;DEV» 

DEV«;SP2B:=<P0INT>-1,READ M( <P0INT>-1) 

M( <DRT1> ) ;CDEVi FOR lOW 

%0003j^REG»l 

M(<DRTl>)+5 FOR (DMCK 1 ; READ M( <DRT3>) , STATUS 

SP4A(15:1) ; 'OBSI (6:1) ; SPIB : «M( < POINT) -1 ) 

XR0(15:1) :-DRT3(S:l) ;SHIFT <REG«1> RIGHT 4X 

<DRT3> :UBB:'<REQ«1> SHIFTED 4 TIMES 

XR8:=?18000+<SHIFTED REG«1>;CSR STATUS 

MASK DRT3.(15:3); CHECK IF FROM DATA SUSP 

SP4A(1S:1) :=0BSI(4:1) ;SET F2 IF DATA SUSP 

DMCK IF CHAN REQ ;DRT3 ( 10 . XXXI ) ??? 

CHR IF ILLEGAL CSRQ;EXAM IF DEV REO 
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RECORD 

NO 

9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9161 
9162 
9163 
9164 
9165 
9166 
9167 
9168 
9169 
9171 
9173 
9175 
9177 
1)179 
9181 
9183 
9185 
9187 
9188 
9189 
9 190 
9191 
9192 
9193 
9194 
9195 
9196 
919 7 
9198 
9199 
9?:J0 
9201 



C.S. 

ADDR 



092C 
09 2D 
092E 
092F 
0930 
0931 
0932 
0933 



0934 
0935 
0936 
0937 



CHANNEL PROGRAM PROCESSOR 

»***»....»* ALU A ««*•••••«.« 

LABL RREG SREG FUNG SFNC STOR SPSK 



«*>.•....•... ALU B «»*«•.**«»•**» 
RREG SREG FUNG SFNC STOR SPEC SKIP 
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0BSI(7 1)=1,IF REO IS DUE TO COMPLETION OF 
DMA TRANSFER, OR OCURRENCE OF SOME ANTICIPATED 
EVENTS OF THE CHANNEL 

IN GENERAL, EITHER OF 0BSI(3 2) WILL ALSO SET, 
IF THERE IS AN ERROR . 

1. CHECK PGM STATUS IF 0BSI(3 :2)=00, 

2. GO HANDLE THE HARDWARE TIMEOUT IF 0BSI(3:1)=1, 
JSB CHR, ERROR CODE E004 

3. THEN, STORE DMA EXTENDED ADDR (FROM REG«8) TO 
CPVA L0CATI0N4, 

4. STORE DMA ADDRESS (FROM REG«9 ) TO CPVA 
LOCATIONS, 

5. READ REGIB.iSHIFT RIGHT 3 TIMES, i'lOR' %C000 
AS THE DMA ABORT MESSAGE 



092B DMCK £004 



E020 



RG 
UBA 



ADDL XR13 
ADD 
ADD 
ADDL 
SP4A JSB 
RH ADD 
RG ADD 
RG ADD 
DMAS COOO SP4A lORL SP4A 



LSR 
LSR 



EXAM 
LSR 





SP38 


XR25 


JSB 


lOR 


SP3B 




NZRO 






SP4A 


ADD 
JSB 


LSR 
CHR 






EVEN 
UNC 




RH 




ADD 




BKX7 


SFl 




EVEN 






ADD 












SP3B 


XR18 


JSBS 


lOR 


SP3B 




NZRO 


DATA 




XR24 


JSB 


I OR 


SP3B 




NZRO 


DATA 






ADD 
JSL 


DCER 




CFl 


ZERO 



ROUTINE TO EXAMINE THE PROGRAM STATUS AND • 

DECIDE HOW TO SERVICE THE CSRQ BASED ON THE • 

RESULTS OF OBSI' AND DRT3(F0URTH DRT WORD). ' 

1. READ THE DRT3,& MASK DRT3(12:4) ' 

2. JSB NRUN IF DRT3(0:I)-0 HALT OF CHAN PGM , 

3. JSB STRT IF DRT3(0:2)-11 (START OF CHAN PGM, • 
AND/OR THE SIOP/HIOP HAS STARTED BUT NOT YET ' 
SERVICED), ' 

4. JSB AE IF DRT3(0:2)«10 & (DRT3 ( 12 ; 4 ) =0000 OR' 
BIT15=i) iMEANING REQUEST OF START CHAN PGM, • 
A (IF CP IS IN WAIT STATE OR NO CP SUSPENDED. • 

5 JSB CHR IF OBSI(7:1)-0 , NO CHAN REQUEST. • 



EXAM OOOF XR4 ANDL SP4A 

XR4 JSB NRUN POS 

SP4A JSB AE ODD 

JSB CHR NFl 



ADD 
OFOO ADDL XR30 
UBA UBA JSB STRT BKX6 
SP4A JSB AE 



TIMEOUT ERR CODE; READ REGttB.DMA STATUS 
REG«B(5HIFTED ONCE):SKIP IF OBSI(3:1)-0 
REG»B(3HIFTED TWICE) ;CHR IF 0BSI(3:2)=1X 
ERROR CODE ;BKX7: 'SHIFTED (1) REG«B 
EXAM IF OBSI(3:2) :='00; 

REG«B(SHIFTED 3X);READ REG«8,EXT DMA ADDR 
DRTl+4: =<REG»8> ;READ REG«9,DMA MEMORY ADDR 
<CPVA>>5: '<REG«9> .EXT MEM ADDR 
ABORT WITH INTERRUPT WITH ERROR CODE 



MASK DRT3(1Z;4) ; UBB( 15 : 1 ) ; "-DRT3 ( 13 : 1 ) 

NRUN IF DRT3;'<0XX. .XXXX> iREGKF 

AE IF <10X. 0001>;STRT IF <11X..XXXX> 

CHR IF 0BSI(7 ;1)«0,DEV REQ,AE IF <10X 0000> 
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Rl CORD 

NO 

9?10 
371 1 
9712 
&?)-! 

n :•■ 1 4 
9 ;' 1 6 

97' 17 

9 ;■ 1 8 
5;n 
orvo 

9?22 
9223 
9224 
922'. 
9226 
9227 
9 2 2 8 
9229 
9211 
9233 
9235 
9237 
9239 
9241 
9 243 
9245 



CHANNEL PROGRAM PROCESSOR 

ALU A *•••«••«*•• 
LABL RREG SREG FUNC SFNC STOR SPSK 



0938 t:XMl 0040 RG 



• A. •«.«•<,*<.<,<. ALU B ••«•••«•••*••• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



JSB DMAM IF DRT3(14: 1)=1 ,CP SUSPENDED WHILE 
CHAN DMA TRANSFER IN PROGRESS 



XRl JSL DMAM 



CHECK DRT3(12:2) .THERE IS ONLY ONE 
DRT3(12:4) CAN BE SET AT ANY ONE TIME] 



RG 



XR30 JSB lOW SP3B 



MASK OFF THE DRT3(0:3), & RETURN IT BACK 
TO DRT3 ADDRESS, ENABLE RECOGNITION OF PHI 
CONDITIONS BY WRITING REGtt3 : =%7FF F 
JSB CRCI IF THE FIRST INSTR BIT8 SET .OTHERWISE , 
GO FETCH SP2B:=CP POINTER 



093A AE CAD LSR RG 

093B EOOO XR4 ANDL XR4 

093C SP2B ADD R0B3 

093D 0040 SPIB ANDL 

093E UBA JSB CRCJ NZRO 

09;iF JSB FCHl ZERO 

0940 NRUN XR4 JSB NRNB NF 1 

0941 SP4A JSB CHRA ODD 

0942 JSB EXMl UNC 



XR18 


JSB 


lOW SP3B 


NZRO 


XR28 


ADD 


WRS 




UBA 


ADD 


DATA 




XRO 


JSB 


ECHO 


NZRO 


SP2B 


INC 


SP2B 




SP2B 


ADD 






SREG 


ADD 


CFl 




UBA 


JSB 


CHR 


POS 


SP4A 


JSB 


CHRA 


ZERO 
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MASK REG»B(9:1) ;DMAM IF DMA .DRT3 ( 14 : 1 ) =1 



NZRO WRT REG«F : =DEV(t 



WRITE TO REG«3:=%7FFF 

MASK DRT3 ;DRT3 ADDR 

READ M( <POINT> -1) ;SAVE DRT3 

MASK;GO FETCH 

DO CRCJ IF SPIB (9;1) SET;INC <POINT> 

FCHl IF DRT3:>=<10 .XXX1>;<P0INT> 

NRNB IF OBSI(7:1)=0, <P0INT>-1 FOR ECHO 

HLT PGM IF <01X.0001> ;CHR IF<OOX XXXX> 

GO CONTINUE PROGRAM;HLT PGM IF <01X . . 0000> 
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RECORD 


C.S. 


NO 


ADDR 


9248 




9^49 




9250 




9251 




9252 




9253 




9254 




9255 




9256 




9257 




9258 




9259 




9260 


0943 


9262 


0944 


9264 


0945 


9266 


0946 


9268 


0947 


9Z70 




9271 




9272 




9273 


0948 


9275 


0949 


9277 




9278 




9279 




9280 




9281 




9282 




9283 


094A 


9285 


094B 


9287 


094C 


9289 


0940 



CHANNEL PROGRAM PROCESSOR 

A A Ik A ft A * A Aft A ALU A AAAAAAAftAAft 

LABL RREG SREG FUNC SFNC STOR SPSK 



A AA AAftftftft A AAA f^\_\) g A A A A A A A A A * A A A A 

RREG SREQ FUNC SFNC STOR SPEC SKIP 
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STARTING THE CHANNEL PR0GRAM,DRT3 : - <HX . XXXX> 



e. 



ISSUE 'SIOP' FOR THE CHAN WITH BIT12 SET IN 

DATA TO CLEAR THE CSRQ, 

SET DRT3-«8000, REQUEST START OF THAT CHAN PGM 

JSB AD IF NOT CONTROLLER IN CHARGE, 

IF CIC, ASSERT 'REMOTE ENABLE' AND THE PARITY 

LOCKUP, REG«6.»%0060, 

THEN, ENABLE DEVICE PARALLEL POLL RECOGNITION 

SET CORRESPONDING PPRNI IN REGt4, 

JSB AD, SET DRT3(0:1)>1. 



XR4 



XR14 ADD 

JSB low 
XR8 JSB AD 
0018 XR6 AODL 

JSB RMW 

ftAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

OBSI(7:1)-0(NF1) ,WITH DRT3-<0X 



XR2 



CFl 

UNC 
EVEN 

UNC 



4000 ADDL 

0008 XR26 ADDL 

0060 ADDL 

XR21 JSB lOW 

0400 ADDL 



SP3B 

RG 

RG 

SP3B 

SP3B 



UBB JSB 
SP4A JSB 



CHR 
HLTP 



POS 
ZERO 



ADD 
SP4A JSB 



HLTP 



tAAAAAAftA* 



CHECK THE CPVA ADDRESS. 

IF < %40,NO INTERRUPT IS GENERATED IN CHR, 
SINCE THAT WOULD WRITE INTO CPU RESERVED MEMORY 
AREA;OTHERWISE CONTINUE WITH INTERRUPT. 



CHR FFEO XR3 ANDL 

SREQ ADD WRX3 

XR13 JSB lOW DATA 

CHRl JSB CHRA UNC 



OCOO ADDL SP3B 

UBA JSB CHRl 
0008 XR26 ADDL RG 
JSB HLTP XR9 



SET DRT3:-X8000;SP3B:»X40O0,SIOP CMD 

SEND THE SIOP CMD 

JSB IF NOT CONTROLLER ;%0060 

%0018+DEVt:WRITE TO REG»6 

SET BIT FOI^ DEV TO 1 IN REGt4 



CHR IF DRT3(0:21-00;BKX6 FOR RMW RETURN 
HLTP IF DRT3(12:4)-0 OR BIT15-1 



TEST IF THE INTERRUPT IS WITHIN %20;REG«C 
<DRT1> AS ADDR;CHRI IF THE INT ADDR <%20 
CPVA; -ERROR CODE;WRITE TO REG»C : "%0008+DEV« 
CHRA IF CONTINUE W/O INT;HLTP RTN( XR9-CLFF ) 
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INSTRUCTION 


FETCH ROUTINES 


RECORD 


C S, 




* * A A 


k * A ft * 


•• ALU A «..••«.•«»«• ...ft....*.... ALU B »••••»•••••••• 


NO 


ADDR 


LABL 


RREQ 


SREG 


FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 


9292 




• •** 


«**•• 


>**A* 


ftftftftftftftftftfttftftftftftftAftfttftftftAftftftftftftftftftftftllAftftftftftftftftftftftftft**.. 


9293 










INSTRUCTION FETCH ROUTINES • 


9294 










THIS ROUTINE FETCHES THE NEXT CHANNEL INSTRUCTION* 


9295 










TESTS FOR POWER FAILURE INTERRUPT .CHECKS VALIDITY* 


9296 










OF THE INSTRUCTION CODE AND BRANCHES TO THE 


9297 










EXECUTE CODE THROUGH THE DECODE TABLE. 


9298 










FCH4 « WILL INCREMEMT POINTER BY 3 * 


9299 










FCHl » WILL INCREMENT POINTER BY 1 * 


9300 










FCHO - WILL INCREMENT POINTER BY 1 


9301 




* » n ti 


« * * * * 


fc * * * ft 


*ftftftftftftftA*ift**ftftft*ftft*ft*ftftft*ft*A*ftftftA|ii*ftAftft)kftftftAftft|ltftftftft*ftft 


9302 


0g4E 


FCH4 






JSB FCHl ZERO 0003 SP2B ADDL SP2B 


9304 


094F 


FCHl 






ADD CF2 SP2B INC R0X3 


9306 


0950 


FCHO 


0008 


CPXl 


ANDL UBB INC SP2B R0A3 


9308 


0951 




UBA 




JSB CPEX NZRO OPB ADD LRZ RG CF5B 


9310 


0952 




EOOl 




ADDL SP4A ITAB UBB ADDL LBL 


9312 


0953 




UBB 




ADD WRX3 OPB ADD RLZ SPIB CF4B 


9314 


0954 






UBB 


ADD LRZ RH RAR OFOO UBB ANDL SP3B 


9316 


0955 






XR5 


ADD RG CF3A SPIB CAD SPIB CFl 


9318 


0956 




0003 


RH 


ANDL XRO FFEE RG ADDL XR23 NEG 


9320 


0957 






OPA 


ADD SPOA RSB JSL V UMC 


9322 












9323 




A A * * 


t X * •• 


ft * ft ft ft 


*AftAAft*ftftftIkftAftftftftAAA**ftftAAA*ftftftftftAftftftrtAft*A*ftA*AAAftftAftftft 


9324 










READ REGISTER INSTRUCTION * 


9325 
9326 










T__ T »___»_«. «T_«___«_^« T TA 










lOOOOlOllXXXX REG.NUMBERI* 


9327 










I I I I I* 


9328 










I RETURNED WORD I* 


9329 










I I I I I* 


9330 




* * * « 


* * * * * 


ft * ft ft ft 


ftftA**ftA*ft*ftftftftftftAftAft*ftftftAftftAftftftAAAA*ftAftAAft*ftft**ftftftftftftAft 


9331 












9332 


0958 


RRG 




SP2B 


ADD WRX3 JSB lOR UMC 


9334 


0959 






RG 


ADD DATA JSB FCHl UHC 


9336 












9337 




A A A * 


• it* • It 


tftftftft 


AftAAAftAAAftAAlllAAAAAAftAAAAAftftAAAAftAAAftAAAAAftAAAAAAAAAftftAft 


9338 










READ-MODIFY-WRITE INSTRUCTION * 


9339 










I I I 1 I* 


9340 










lOOOOlOlDXXXX REG.NUMBERI* 


9341 
9342 




















IXXXXXXXXXXXSBIT NUMBERI* 


9343 










^I I I 1 I* 


9344 




A A * ft 








9345 












9346 


09 5 A 


BMW 


OOOF 


XR2 


ANDL RH JSB lOR UNC 


9348 


.'.B 






XR2 


ADD 002F RH SUBL CTR 


9350 


095C 




FF9F 




ADDL RH 0010 UBA ANDL ZERO 


9352 


09 5D 








ADD RG REGN lOR RG UNC 


"354 


095E 








JSB low UNC UBB REGN XOR RG 


9 3 5ft 


035F 








JSB FCHl F3A JSB CHRS FSB 


935ii 


0960 








JSB CHRX UNC BKX6 JSB AD NEG 
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INC POINTER BY 3 

;INC POINT AND READ M(<P0INT>-1) 

CHECK POWER FAIL;READ M( <POINT> ) 

JSB IF POWER FAIL. UPPER BYTE 

ERROR CODEIFOR JSB V);JSB ITAB IF VALID 

ITAB ADDR; SPIB -SWAPPED M(<P0INT>-1) 

SEND ADDR TO RAR , RH : =OPB( LOWER BYTE);REG« 

<DRT3> ; 

CPVA COUNTS ;CHECK VALID I/O INSTR 

SAVE M(<POINT>);V TO ABORT IF INVALID INST 



<POINT> AS ADDR; JSB TO READ THE REG 
<POINT> :»<WORD> ;REFETCH NEXT INSTR 



MASK WD( 12:4); JSB TO READ 

CTR: -MASK ADDRESS 

TIMER FOR CHRSI ABOUT 20US);SKIP IF CLEAR 

; RG:=RG WITH BIT SET 

JSB TO WRITE TO REG»: RG : =RG WITH BIT CLEAR 

FCHl IF FROM RMW;CHRS IF FROM INT/HLT(CIC) 

CPXl IF FROM NRNB.FOR STRT RETURN 
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RECORD 

NO 

9361 
9362 
9363 
9364 
9365 
9366 
9367 
9368 
9369 
9370 
9371 
9372 
9373 
9374 
9375 
9376 
9377 
9378 
9379 
9381 
9383 
9385 
9387 
9389 
9391 
9393 


C.S. 
ADDR 

0961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 


COMMAND HP- IB I 
LABL RREG SREG FUNC 

• 

• 

* \ 

CMD SP2B ADD 
JSB 

CHDO OPA ADD 
OPA ADD 

CMDl SPOA INC 
JSB 
JSB 
ADD 


'JSTRUCTION 

J A *•*««•••«*• «•••«•«•.*«•. ALU B ••......• 

SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC 

• ll]««lt**lkltlt«*llliaitli<**«*it*ititit*lti>*it ••<•••••• AUK** 

COMMAND HP-IB INSTRUCTION 


SKIP 


lOOOOllOlXXXXX COUNT 
I I I I 

I COMMAND NO.l I COMMAND NO 2 


"ii 


I CONWAND NO. 3 I CO»*tAND NO. 4 




I CONWAND NO. 5 I COMMAND NO 6 




I COMMAND NO. 7 I COMMAND NO. 8 




=^IRST, CHECK IF FIFO EMPTY • 
THEN XFER POINTER TO SPOA, UNPACK THE COMMAND * 
rfORDS, AND SEND THEM OUT OVER HP-IB VIA WRITING * 
REGISTERtO (FIFO DATA BUFFER) * 

SPOA 0007 RH ANDL SPIB NZRO 
SUSP UNC RREG INC SPIB 
LRZ ADD SP3B 
RRZ SP4A UNC UBA RH lOR RG CFl UNC 

SPOA R0X3 RH SP4A lOR RQ SFl 
low UNC FFFF SPIB ADDL SPIB 
CMDl NFl SPIB JSB FCH4 ZERO 
JSB CMDO UNC 
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<POINT> ;SKIP IF NOT 

CHECK FOR FIFO R00M;SPlB:-8 

SETUP LEFT BYTE CMD;REGt0 

SETUP RIGHT BYTE CMD ; RG : • ( ATN+LBYTE ) ,CF1 

NEXT MEM READ;RQ;-=(ATN+RBYTE) ,SF1 

GO TO WRITE REG«0; DECREMENT COUNT 

GET RIGHT BYTE IF NF1:FCH4 IF DONE 

CMDO FOR THE NEXT BYTE 
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RECORD 


C S. 


NO 


ADDR 


9396 




9397 




9398 




9399 




9400 




9401 




9402 




9403 




9404 




9405 




9406 




9407 




9408 




9409 




9410 




9411 




9412 




9413 




9414 




9415 




9416 




9417 




9418 




9419 




9420 




9421 




9422 




9423 




9424 




9425 




9426 




9427 




9428 




9429 




9430 




9431 




9432 




9433 




9434 


0969 


9436 


096A 


9438 


096B 


9440 


096C 


9442 


096D 


9444 


096E 


9446 


096F 


9448 


0970 


9450 


0971 



WAIT INSTRUCTION 

...••..«..,. ALU A ••••••••••• 

LABL RREG SREG FUNC SFNC STOR SPSK 



•...•..•.««•• ALU B ••••««•••«•«<• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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0080 XR6 ADDL 
2000 XR14 ADDL 
RH XRIO ADD 
UBB XR4 AND 
USA INC 
XR8 JSB 
JSB 
OOAO XR14 XORL 
FFF6 ADDL 



WAIT INSTRUCTION 

I I I--I--I I--I I' 

lOOOOOOlOCCCIXXXS CPVAI* 

I I -I- -I- -I -I--I I' 

10 OISERIAL POLL RESPONSE/INTERRUPT CODEI' 

I I --I' 

THIS INSTRUCTION CAUSES A SUSPENSION OF THE ' 
CHANNEL PGM EXECUTION UNTIL THE DEV AGAIN ' 

REQUESTS SERVICE IT MERELY ALLOWS THE CHANNEL ' 
TO START POLLING ALL THE DEVICES ' 

1 FIRST UPDATE THE DRT TABLE; SAVING DRT3(0;3), ' 
4 SET BITIS.SAVE THE POINTER IN DRTO ' 

2 IF DRT3=<0X. .XXXX> , JSB CHRiWHICH MEANS THE ' 
THE PGM IS IN NON-RUN STATE AND TERMINATES ' 
ITSELF WITH INTERRUPT CODE %A000 

3. IF BIT13 OF INSTR. IS 1 , THE CHAN WILL WAIT FOR* 
WHATEVER CONDITIONS ARE SELECTED PRIOR TO THE ' 
WAIT INSTR TO CAUSE ASSERTION OF CSRO (E.G. ' 
DMA rOMPLFTION OR SOME CONDITIONS SELECTED IN * 
REG«3 OF THE GIC).THIS MODE IS INVOKED TO ' 
FACILITATE OPERATING THE CHANNEL AS AN HP-IB ' 
DEVICE. THIS IS ACCOMPLISHED BY WRITING ' 
REG«F:=%0080+DEV » OF THE CURRENT CHANNEL PGM.' 

4. IF BITI3=0,AND IF IT IS NOT CONTROLLER -IN- ' 
CHARGE, SAME AS 3 , ABOVE , EXCEPT NO CHG IN REG F ' 

5. IF BIT13=0,AND IS CONTROLLER-IN-CHARGE , THEN • 
THE CHANNEL WILL BE SET TO ISSUE CSRO WHEN • 
PARALLEL POLL , SRQ, SIOP ,0R HIOP DEV REQ OCCURS « 
OR IF AN HP- IB STATUS CHANGE OCCURS ON THE • 
CHANNEL CONTROLLER, REG«3 : «X80A0. « 
THIS WILL HAPPEN PROVIDED BITS OF 1ST INSTR » 
IS AND OUTBOUND FIFO IS IDLE. ' 
IF NOT,BITS8,9 OF THE INSTR MAY BE USED TO • 
PERFORM CRC INITIALIZATION AND COMPARISON. • 

6. AFTER ALL THESE, WAIT ABOUT 2 USEC TO ALLOW • 
PRIOR CSRQ TO UNASSERT BEFORE EXIT. • 

RG UBA SP2B ADD DATA 

SP4A RG JSL DCER POS; 

WRS EODO ADDL 

0400 SPIB ANDL RH NZRO 

DATA XR30 JSB lOW SP3B NZRO 

CPX2 EVEN RH JSB CPX2 ZERO 

SUSP SF3A SPIB JSB CRCD POS 

RG XR18 JSB lOW SP3B NZRO 

RH JSB CPXl ZERO 



*0080+DEV» ; DRTO : - < POINT) - 1 

PGM IN NON-RUN STATE ; SP4A ; -ERROR CODE 

DRT3;MASK 

DRT3 AS ADDR;TEST Ml <POINT> -1 ) ( 13 : 1 ) 

DRT3-PGM STATUS+WAIT;REG«F.=%0080+DEV« 

CPX2 IF NOT CIC;CPX2 IF INSTR ( 13 : 1 ) «1 

CHECK FIFO;CRCD IF M( <POINT> -1 ) <0 (F3A) 

WRITE TO REG«3:»«80AO 

Allow about 2 us to unassert prior CSRQ 
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RECORD 

NO 

9453 
9454 
9455 
9456 
9457 
9458 
9459 
9460 
9461 
9463 
9465 
9467 
9469 
9470 
9472 
9474 
9476 
9478 
9480 
9482 
9484 
9486 
9488 
9490 
9492 
9494 
9496 



C.S. 
ADDR 



0972 
0973 
0974 
0975 

0976 
0977 
0978 
0979 
097A 
097B 
097C 
097D 
097E 
097F 
0980 
0981 
0982 
0983 



IDENTIFY INSTRUCTION 

*********** ALU A A********** 
LABL RREG SREG FUNC SFNC STOR SPSK 



•■«••*•«•*•*« ALU B •••••*«••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 
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DENTIFY INSTRUCTION « 
I I I !• 

OOOOOllOXXXXXXXXI* 

- I I' 

FIRST RETURNED BYTE I SECOND RETURNED BYTE 1' 
- - I I' 



DY 
DSR 



UBB 



ADDL 

JSB SUSP 

ADD 

JSB IDYB 



SP4A 



003E XR12 ADDL 
ADD 

JSB low 
JSB IGW 
XR2 ADD 
ADO 
ADD 

JSB DSJB 
ADD 
SP2B ADD 
RQ ADD RLZ 
005E XR12 ADDL 
SPOA UBB lOR 

JSB low 





403F 




ADDL 




SPIB 






UNC 


0004 


OPB 


ADD 
ANDL 










NZRO 




XR23 


JSB 


* + l 






ODD 








JSB 


low 


SP3B 




ZERO 








ADD 




SP3B 


PSHR 




ZERO 


4040 


SP4A 


ADDL 




RQ 






UNC 


4060 


XRO 


ADDL 
JSB 
ADD 
ADD 


lOW 


RG 


POPR 


UNC 
NF5B 


F3A 






ADD 








RSB 


CF2 






JSL 


SUSB 






UNC 


WRX3 




RG 


JSB 
JSB 

ADD 


I OR 
I OR 
RRZ 


SP3B 




ZERO 
UNC 


DATA 




UBA 


JSB 


low 


RG 




UNC 


UNC 




SPIB 


ADD 




RG 


SF4B 





SP4A:«DEV ADDR ;UNLISTEN CMD 

CHECK FIFO EMPTY 

CHECK REQ« 2. (13:1) 

NEXT LINE IF NOT IDY INSTR ELSE «IDYB IF 

REG» 2.(13:1) • 1 
X403E, ADDRESS CHAN TO LISTEN, REG«0 
;REGiO, ADJUST THE RAR 

JSB TO SEND UNTALK, ALL DEVICES AT STANBY 
JSB TO SEND THE SECONDARY ADDRESS 
JSB TO RECEIVE BYTE(S) FROM REGtO 
;POPR 

SKIP IF NF5B 

RETURN IF FROM DSRJ/CRCC, RETURN 
CF2; SUSPEND CHAN PGM FOR DATA TO BE RETRNED 
<POINT> AS ADDR;READ REQtO 
SPOA: -1ST BYTE;READ 2ND BYTE, 
SET CHAN TO TALK CMD ; SAVE THE 2ND BYTE 
RETURN TO M!<POINT>) -ADDR CHAN TO TALK 
JSB TO UNLISTEN AND REFETCH (F4B) 
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RECORD 

NO 

9499 
9500 
9501 
9502 
9503 
9504 
9505 
9506 
9507 
9508 
9509 
9510 
9511 
9512 
9513 
9514 
9515 
9516 
9517 
9518 
9519 
9520 
9521 
9522 
9523 
9525 
9527 
9529 
9531 
9533 
9535 



C.S. 
ADDR 



CONTROL BYTE 



CLEAR INSTRUCTION 

........... y^LU A ........... ............. ;^nj B .............. 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CLEAR INSTRUCTION 

I I ■ 

I 1 

I I - 

IXXXXXXXXXXXXXXXX 

1 

THIS INSTRUCTION COMMANDS THE DEVICE TO RESET ITS 
HARDWARE TO A PRE-DEFINED STATE BIT 15 OF THE 
INSTRUCTION IS THE HP-IB PARITY ERROR HANDSHAKE 
LOCKUP(0=NO LOCKUP, 1=ENABLED) WHEN ENABLED, THE 
DEVICE WILL NOT ACCEPT ANY HP-IB CMD ON WHICH IT 
SEES EVEN PARITY, WILL CAUSE HP-IB TO FREEZE AND 
TIMEOUT WILL OCCUR . THE SEQUENCE OF CLEAR IS: 

1. CHECK OUTBOUND FIFO ROOM AVAILABLE 

2. ADDRESS THE CHANNEL TO TALK 

3. ADDRESS THE DEVICE TO LISTEN 

4. ISSUE THE SECONDARY ADDRESS(MEANING , USE THE 
FOLLOWING DATA BYTE TO MODIFY THE DEVICE CLEAR 

5. SEND THE CONTROL DATA BYTE TO DEVICE 

6. ISSUE THE SELECTED DEVICE CLEAR 

7. UNLISTEN 

8. REFETCH NEXT INSTRUCTION. 
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0984 
0985 
0986 
0987 
0988 
0989 
098A 



CLER 
LJITA 



0070 XR12 AODL 
OOIF SP4A ADDL 

JSB 
SPOA ADD 
JSB 
JSB 
JSB 



lOW 

lOW 
lOW 
lOW 



SPOA 
RG 



UNC 
UNO 
UNC 



JSB 
JSB 
4020 XR26 ADDL 

JSB 
8000 RH ADDL 
4004 SPIB ADDL 
SP4A ADD 



SUSP SPIB 
lOW SP3B 



RG 
RG 
RG 



ZERO 
ZERO 



SEC ADDR %4070;CHECK OUTBOUND FIFO 

JSB TO SEND MESSAGE-ADDRESS CHAN TO TALK 

JSB TO ADDRESS DEVICE TO LISTEN 

JSB TO SEND SECONDARY ADDRESS 

JSB TO SEND CONTROL DATA BYTE TO DEVICE 

JSB TO SEND SELECTED DEVICE CLEAR 

SEND UNLISTEN CMD& REFETCH 
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RECORD 


C S 


NO 


ADDR 


9538 




9539 




9540 




9541 




9542 




9543 




9544 




9545 




9546 




9547 




9548 




9549 




9550 




9551 




9552 




9553 




9554 




9555 




9556 




9557 




9558 




9559 




9560 




9561 




9562 




9563 




9564 




9565 




9566 




9567 




9568 




9569 




9570 




9571 




9572 




9573 




9574 




9575 




9576 




9577 




9578 


098B 


9580 


098C 


9582 


098D 


9584 


098E 


9586 


098F 


9588 


0990 


9590 


0991 


9592 


0992 



DEVICE-SPECIFIED RELATIVE JUMP 
LABL RREG SREG FUNG SFNC STOR SPSK 



RREG SREG FUNG SFNC STOR SPEC SKIP 
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CONWENT 



DEVICE-SPECIFIED RELATIVE JUMP 








I 




1- 

10 1 


1 

MAXIMUM RESPONSE |N) 




X 


XXX 


X X X X 


RETURNED BYTE 






RELATIVE 


DISPLACEMENT 


FOR BYTE « 






RELATIVE 


DISPLACEMENT 


FOR BYTE « 1 








RELATIVE 


DISPLACEMENT 


FOR BYTE =■ N 



NOTE: IF RETURNED BYTE > N, THEN A DISPLACEMENT 

OF IS ASSUMED. 
THIS INSTRUCTION HAS A VARIABLE NUMBER OF WORDS 
A THE LEFT BYTE OF THE 1ST WO IS THE MAX RESPONSE 

& THE RETURNED BYTE IN THE 2ND WD(SP4A) IS 
READ FROM REQtO.THE SEQUENCE IS AS FOLLOWS 

1. JSB DSRJ IF NOT FROM SUSPEND;DSJB IF FROM 
SUSPEND(WHEN F2»l) 

2. IF DSRJ. FIRST CHECK THE FIFO(SUSP ROUTINE), 
THEN, ADDRESS THE DEVICE TO TALK ROUTINE ( TLK ) , 

3. THEN, ONE DATA BYTE IS RECEIVED FROM THE DEV 
(READ REG«0), AND STORED INTO THE RETURNED 
BYTE FIELD OF THE INSTRUCTION I N» MEMORY 

4. THE ENTRY IN THE JUMP DISPLACEMENT TABLE IS 
FOUND, WHICH CORRESPONDS TO THE RETURNED DATA 
BYTE, AND ADDS THAT REL DSP' WORD TO THE 
ADDRESS OF THE CHAN INSTR IMMEDIATELY 
FOLLOWING THE(DSJ). THE RESULT IS THE NEW ADDR 
WHICH WILL BE EXECUTED NEXT. 

HOWEVER. IF THE MAX RESPONSE IS LESS THAN THE 
RETURNED BYTE, THE INSTRUCTION IMMEDIATELY 
AFTER THE THE DSJ WILL BE DONE NEXT. 

5. JSB TO UNLISTEN,SP2B:=NEW CP POINTER ; REFETCH 



UBB ADD 

JSB 

SP2B ADD 

RG ADD 

UBA SP2B INC 

RH SP4A SUB 

RREG OPA ADD 

ADD 



SP4A SF3A 
NF2 
WRX3 

SP4A DATA 
R0X3 
NEG 

RH 



0010 



ADDL 




XRO 


ADD 




SP3B CF5B 


JSB 


I OR 




ADDL 




RG 


JSB 


TOW 




ADDL 




RG 


JSB 


lOW 





SP2B JSBI FCHl SP2B 



SP4A:«DEV«;SEC ADDR 

DSR IF NF2;ELSE DSJB,REG«0 

<POINT> AS ADDR; JSB TO READ REG«0 

RETURNED BYTE TO <POINT> ; UNTALK CMD 

READ <REL DSPL>;SEND UNTALK CMD 

MAX RESPONSE>RETURNED BYTE' UNLISTEN CMD 

NO,RH: =M( <P0INT>+1+REL DSP|;JSB UNLISTEN 

,<POINT) =<P0INT>+1+N+REL DSP 
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RECORD 

NO 

9595 
9596 
9597 
9598 
9599 
9600 
9601 
9602 
9603 
9604 
9605 
9606 
9607 
9608 
9609 
9610 
9611 
9612 
9613 
9614 
9615 
9616 
9617 
9618 
9619 
9620 
9621 
9622 
9623 
9624 
9625 
9626 
9628 
9630 
9632 
9634 
9636 
9638 
9639 
9640 
9641 
9642 
9643 
9f!44 
91. 4') 
9046 



INTERRUPT INSTRUCTION 

...>«•*.... ALU ft ....«....*. 

LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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INTERRUPT INSTRUCTION 

I I--- I---I I 1 

lOOOOOOO 1 R/H X X X X X CPVAI 
I I I ---I I 1 

I INTERRUPT CODE I 

I I I 

THIS INSTRUCTION WILL CAUSE THE CHANNEL TO ASSERT 

AN EXTERNAL INTERRUPT REQUEST TO THE CPU ON 

BEHALF OF THE DEVICE 

1ST WD: BITS INDICATES WHETHER THIS INTERRRUPT 
WILL CAUSE THE CHANNEL PGM TO HALT OR 
CHANNEL PGM TO CONTINUE AFTER THE 
INTERRUPT REQUEST IS INITIATED 
BITS14-15 INDICATES CPVA LOCATION FIELD, 
THE CHANNEL PGM CAN SPECIFY INTO WHICH 
OF THE RESERVED FOUR WORDS THE INTERRUPT 
CODE WILL BE PLACED 

2ND WD. B1TS4-15 INDICATES THE INTERRUPT CODE, 
TO RELAY INFORMATION TO SOFTWARE ABOUT 
WHICH TYPE OF INTERRUPTS 

WHEN THE INTERRUPT CODE IS WRITTEN INTO 
THE CPVA, BITSO-3 WILL SET TO 1000 

THE SEQUENCE OF THIS INSTRUCTION IS AS FOLLOWS: 

1. READ THE CPVA ADDRESS (DRT WORD 1), 
SAVE INT CODE (WD 2) COMPLIMENT tl IF 
FROM CRC MISMATCH, 

2. IF WO 1 BIT8=1,JSB TO CHECK THE FIFO;SAVE 
THE <P0INT>+1 IN DRTADRO. 

3. IF WD 1 BIT8=0,SET F4B , 



0993 
0994 
0995 
0996 
0997 
0998 



INTH 
INL2 



USA 
RH 



SPIB ADD 
JSB 
XRO ADD 
XR3 ADD 
XR14 ADD 
UBB ADD 



HBF2 RREG UBB XOR 
NF2 XR23 JSBI 

ADD 

WRX3 XR27 ADD 

DATA XR30 ADD 

SP2B INC 



RH 



CF5B 



WRS NF2 
SF4B F2 
DATA 



SET F2 IF INT/HLT;ERR CODE 
CHECK FIFO IF INT/H;INL2 IF FROM CRCC 
CPVA ADDR; 

DRTl+CPVA COUNTS AS ADDR;DRTO AS ADDR 
%8000+ERROR CODE;SKIP IF INT/RUN, F4 FOR FCHl 
;DRTO:»<POINT>+1 



4. PLACE THE INTERRUPT CODE+%8000 INTO THE 
CPVA LOCATION SPECIFIED BY WORDl (14 2) 
ADDED TO THE CPVA ADDRRESS OF DRTADRl 

SET INTERRUPT REQUEST 

BY WRITING INTO REG»C : =%0008+DEV« . 

GO FETCH IF IT IS INTERRUPT/RUN , SP2B : =CP POINTER 



0008 XR6 ADDL 



RG 



UBA XR18 JSBS lOW SP3B 



NZRO REG«C;»%0008+DEV« 
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RECORD 


C S 


NO 


ADDR 


9649 




96'.0 




9651 




9F,b2 




gesa 




9654 




9655 




9656 




9657 




9658 


099A 


9660 


099B 


9662 


099C 


9664 


099D 


9666 


099E 


9668 




9669 




9670 




9671 




9672 




9673 


099F 


9675 


09A0 


9677 




9678 




9679 




9680 




9681 




9682 




9683 




9684 


09A1 


9686 


09A2 


9688 


09A3 


9690 


09A4 


9692 


09A5 



INTERRUPT INSTRUCTION 

«...•«*.*•* ALU A •«•«*•••♦*• 

LABL RREG SREG FUNC SFNC STOR SPSK 



*••>•**..•..* ALU B •••»«•••«••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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NOW IT IS THE INTERRUPT/HALT ROUTINE , READY TO 
CLEAN THE CHANNEL TO ABORT THE CURRENT CP CLEANLY 

1 READ THE REG»B,AND MASK BITS9-11 +DEVi , 

2 4WRITE IT BACK TO REQ«F,4 SET REGt3 : -%7FFF , 
ENABLING PHI INTERRUPT 

3 JSB TO CHRC IF IT IS CONTROLLER IN CHARGE, 
ELSE CONTINUE. 



0070 
SPOA 



XRe 
XR8 



JSB lOR MEDJ OBOO ADDL 

ANOL SPOA 0300 ADDL 
CAD LSR RG CF2 JSB XOW 

lOR RG XR30 JSB lOW 

JSB CHRC ODD XR17 ADD 



SP3B 
SP3B 

UNC 
SP3B NZRO 
SP3B CF5B 



FOR HP-IB DEVICE(NON CONTROLLER IN CHARGE) 

CLEAR DEVICE REQUEST BITS AND KEEP PARITY FREEZE, 

BY WRITING REG«6:»(BIT 9. PARITY FREEZE THE SAME). 



JSB lOR 
ANDL 



RG 



XR21 ADD 
JSB 



low 



SP3B SF5B 



HALT SUBROUTINE 

THIS SUBROUTINE SERVES BOTH CIC AND NON-CIC 

1. ISSUE THE HIOP CMO WITH IT DATA BIT12-1,A 
THE DEV« IN BITS 13-15. 

2. SAVE DRT3(2:1) BACK TO DRT3 



0008 XR6 


ADDL 
ADD 




2000 XR4 


ANDL 




XR8 


ADD 






JSB 


RhM 



XR2 





6000 


ADDL 




UBA 


JSB 




XR28 


ADD 


EVEN 


UBA 


ADD 


CFl 


0400 


ADDL 



SP3B 
RQ 



WRS 
DATA 



READ REG»B 

MASK REG«B(9 3) ;REG»3 

WRITE TO REQ«3;-%7FFF; 

WRT REG«F;«REQ»B(9:3)+DEV« 

JSB IF CIC;CF5B BEFORE CLFF , REG«2 (CHRC ) 



READ REG«6;SF5B FOR Kf^l RETURN 

KEEP ONLY PARITY, CLEAR DEV REQUESTS ;WRT 



%0008+DEVtSEND HIOP CMD WITH BIT12= 

SEND HIOP;«0008+DEVt 

MASK DRT3(2:1) ;DRT3 AS ADDR 

SKIP IF NON-CIC; SAVE DRT3(2:1) 

RMW IF CIC;REG«4 FOR RMW 
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RECORD 

NO 

9695 
9696 
9697 
9698 
9699 
9701 
9703 
9705 
9707 
9709 
9711 
9712 
9714 
9716 
9717 
9718 



C.S. 
ADDR 



09A6 
09A7 
09A8 
09A9 
09AA 
09AB 

09AC 
09AD 



EXIT THE CHANNEL PROGRAM 

.«*... *«•>,>. ALU A «••••••«••• 

LABL RREG SREG l-UNC SFNC STOR SPSK 



«««>,»..•««•*« ALU B •«••*•••••«••« 
RREG SREG FUNC SFNC STOR SPEC SKIP 



ROUTINE FOR EXITING THE CHANNEL PGM. 

WRITE TO IMBI TO ENABLE THE CSRQ/IRQ MASKS. 



CPEX 0003 XR15 ANDL 
DCOO ADDL 
FFF8 XR9 ADDL 
RREG UBA ADD 
UBB XR15 AND 
RG ADD 



RH 
RG 



HBF2 
NZRO 
FIHB 



1000 STA 
UBA 



ANDL 
JSZ 



09AE CPXl 



UBB 
UBB 
XRlb 


ADDL 

INC 

REPC 

CSR 

ADD 

JSB 


LSL 
lOR 


BKX5 

BNKS 
SP3B 


XR21 
RH 


ADD 
JSL 


LSL 
CLLP 




RH 


JSBI 


CPXl 


RH 
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RH:«LOAD AND DUMP BIT; BKX5:=IMBI REGISTER 
RG.=MASK TO ENABLE CSRQ ; UBB . =2 , F2 . =0 
UBA.=M00«-8; UBB:«1 

REPEAT UNTIL MOD«<0; SHIFT DIV MASK RIGHT 
RRGA«DIV MASK FOR THIS MOD« , SKIP IF DIV 
RG:=%5C00 TO ENABLE IRQ AND CSRQ IF NO DIV 
;SEND MESSAGE 

UBA: -RIGHT STACKOP BIT; GO UNBUSY 
UBA := right stackop bit, restart instr 
thru measurement code; Return if from 
coldload or dump w/o measurement 
WAIT TO FINISH THE BUSOP 
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RECORD 

NO 

9771 
9722 
9723 
9724 
9725 
9727 
9728 
9729 
9730 
9731 
9732 
9733 
9734 
9735 
9736 
9737 
9738 
9739 
9740 
9741 
9743 
9745 
9747 
9749 
9751 
9753 
9754 
9755 
9756 
9757 
9758 
9759 
9760 
9761 
9762 
9763 
9765 
97C7 
9769 
9771 
9773 
9775 



C S. 
ADDR 



09B0 
09B1 
09B2 
09B3 
09B4 
09B5 



0OR6 
0'iB7 
09B8 
09B9 
09BA 
09BB 
09BC 



CIC HANDLER 
LABL RREG SREG FUNC SFNC STOR SPSK 



............. ftLU B ••••••*••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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IF IT IS THE CIC, CLEAR THE PHI INTERRUPT , REG«2= ■ 
RESETTING PHI INTERRUPT FLAGS 



09AF CHRC 



RG 



JSB low XR9 



ZERO REG«2«%FFFF;XR9:»0, SLOW JUMP 



CLEAR FIFO SUBROUTINE 

THIS ROUTINE CLEARS THE OUTBOUND 

FIFOS ON THE GIC (REG«a) TAKING INTO ACCOUNT THE • 

WORKING OF THE HP-IB INTERFACE THIS ROUTINE IS • 

USED ONLY WHEN THE CHANNEL IS CIC • 

FIRST, IT CHECK THE REG«2 BIT 14 (OUTBOUND FIFO) • 

IF BIT14.1, DO UNADDRESS HP-IB ROUTINE, 

ELSE JSB IFC THE REASON TO DO HP-IB ROUTINE IS " 

TO ASSURE THAT THE HP-IB DATA IS NOT MISTAKEN FOR* 

COMMANDS WHEN CLEARING THE OUTBOUND FIFO WHEN * 

IFC IS NOT USED. • 

IFC IS ASSERTED IF THE OUTBOUND FIFO IS NOT EMPTY* 



005F XR12 ADDL 

JSB 
003F XR12 ADDL 
0060 ADDL 
ADD 



I OR 



MEDJ 0200 



RG 
RG 





ADDL 




SP3B 




RG 


ADD 


LSR 




LBF5 




JSB 


IFCC 


SP3B 


NF5B 




JSB 


lOW 




UNC 


XR21 


JSB 


lOW 


SP3B 


NZRO 




JSB 


IFC 




NF5B 



THIS ROUTINE CHECKS THE INBOUND FIFO, 

AND CLEARS THE INBOUND FIFO BY CHECKING REG«2 

BIT13 («1,BYTE STILL AVAILABLE, =0 IF EMPTY) 

KEEP READING REG«0 UNTIL THE BITI3'0. 

IT IS STILL CONTROLLER IN CHARGE . THEN JSB TO 

HLTP(TO SEND HIOP CMD ) , AND CLEAR CORRESPONGING 

BIT» FOR THE DEVICE ON REGt4 . PARALLEL POLL MASK 

REGISTER* SERIAL POLL DISABLEDl REG«0»%4019 ) 



JSB lOR 
0004 RG ANDL 
UBA ADD 

JSB CLIF 
JSB CHRX 



JSB 
JSB 



lOW 
INTl 



MEDJ 0200 ADDL SP3B 

ADD SP3B CF5B 
ZERO UBA JSB TOR NZRC 

UNC 4019 ADDL RG 
F3A XR9 JSL RTCL ODD 

MEDJ ADD SP3B SF5B 

CF2 JSB HLTP NFl 



JSB TO READ REGt2 

UNTALK CMD, SHIFT BITI4 TO F5 

JSB TO WRITE REQ«0 UNTALK; IFCC IF BIT14= 

UNLISTEM 

WRITE TO REQIt6: -REN, PARITY FREEZE 

IFC IF REG«2(141) -0 



READ RE0*2 

MASK REG«2(13:1) .BYTE AVAILABLE' ; REGttO 

SKIP IF ZERO; ELSE READ REG<(0 AGAIN 

JSB TO CHECK AGAIN, FOR CHRC.WRT TO REG«3 

CHRX IF CHRS;RTCL FOR READ TERMINATION 

WRITE TO REG«0;INT1 IF FROM CRCC , 

JSB HLTP,BITll-0 TO CLE, FOR RMW , 
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II 


RECORD 


C S. 




NO 


ADDR 


LABL 


9778 




• «•*, 


9779 






9780 






9781 






9782 






978n 






9784 






9785 






9786 






9787 






9788 






9789 






9790 






9791 






9792 






9793 






9794 






979', 






979fi 






9797 




* * * * : 


9798 


09BD 


IPC 


9800 


09BE 




9802 


09BF 




9 8 04 


09C0 




9806 


09C1 


IFCl 


9808 


09C2 




9810 


09C3 




9812 


09C4 




9814 




* ft * * 1 


9815 




* 


9816 




* 


9817 




* 


9818 




* 


9819 




* 


9820 




* * * * 1 


9821 


09C5 


CHRS 


9823 


09C6 




9825 


09C7 




9827 


09C8 


CHRX 


9829 


09C9 





IFC ASSERT - CLEAR BUS 

*•*•«,•• ALU A •»••»•••«•« 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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THIS ROUTINE ASSERTS IFC ON THE HP-IB FOR ABOUT 
100 USEC TO CLEAR THE BUS 

1. READ THE REG«6, HP-IB CONTROL REGISTER. 

2. MASK OFF THE PARITY FREEZE & REMOTE ENA BITS 

3. ASSERT REMOTE ENABLE (IF DEV IS LOCAL) AND SET 
IFC VALUE, SO THAT THE HP-IB INTERFACE CLEAR 
LINE IS ASSERTED. 

4. SEND THE REGIt6 THE ABOVE CONTROL BITS, A WAIT 
ABOUT 100 USEC TO CLEAR THE BUS, 

5. CLEAR THE OUTBOUND FIFO BY ASSERTING BITSll, 
15=11 ON THE REG«6. THIS WILL TERMINATE ANY 
HANDSHAKES IN PROGRESS IN THE PHI WITH THE 
HP-IB 

NOTE: IFC MUST BE ASSERTED FIRST BEFORE CLEARING 
OUTBOUND FIFO, DUE TO THE ASYNCH TAKE CONTROL' 
SEQUENCE OF GICAND ANY DATA ON THE HP-IB WITH 

DAV LINE TRUE COULD BE INTERPRETED AS A CMD 
BY DEVICES NOT INVOLVED IN THE DATA TRANSFER. 







ADD 








JSB 


lOR 


0060 


RG 


ANDL 




0030 


UBA 


lORL 








JSB 


lOR 






ADD 




0011 


RG 


XORL 
ADD 







ADD 






PSHR 


XR21 


ADD 




SP3B 




FDFF 


ADDL 




XRl 






JSB 


low 




UNC 


XRl 


JSBI 
ADD 


IFCl 


XRl 


NZRO 
POPR 




JSB 


low 




UNC 




ADD 









RSB 

THIS ROUTINE WILL CHECK THE OUTBOUND FIFO EMPTY, * 

BY TESTING THE BIT14 OF REG*2 . • 

IF BIT NOT SET, JSB CLFF IF TIMEOUT; * 

IF EMPTY, SET REG»3 : =%80A0 ; FETCH NEXT MACHINE • 

INSTRUCTION. • 

0200 ADDL SP3B 

RG ADO LSR CF5B ODD 

UBA JSL CHRZ ZERO 

XR18 JSB low SP3B NZRO 

ADD CF5B 





JSB lOR 


MEDJ 


RH 


INC RH 


SF3A 


UBB 


JSB CHRS 


EVEN 


XR14 


lORL RG 






JSB CPEX 


UNC 



UPDATE RAR 

READ REG«6 IF OUTBOUND FIFO IS NOT IDLE 

SAVE REN, PARITY; TIMER FOR lOOUS 

SET IFC 4 CLEAR OUTBOUND FIFO,WRT TO REGIt6 

CLEAR IFC & FIFO;WAIT lOOUSEC TO CLEAR BUS 

ADJUST RAR 

REG«6:«CLR FIFO, NO IFC, KEEP PARITY FREEZE 

RETURN 



READ REG»2 

CLFF IF C0UNT(8:1)=1;SKIP IF BIT14-0,CF5B 

TRY AGAIN IF BIT14-0;CHRZ IF COUNT : =0 

WRT REG«3;«%80A0,ENA POLLS &STATUS CHANGE 

CPEX;CF5B 
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RECORD 

NO 

9832 
9833 
9834 
9835 
9836 
9837 
9838 
9839 
9840 
9841 
9842 
9843 
9844 
9845 
9846 
9847 
9848 
9849 
9850 
9851 
9852 
9853 
9854 
9855 
9856 
9857 
9858 
9859 
9860 
9861 
9862 
9863 
9864 
9865 
9867 
9869 
9871 
9873 
9875 
9877 
9879 
9881 
9882 
9884 
9886 
9888 
9890 
9892 



Sending & Receiving I/O Messages 

(^ 3 kk********* ALU A *********** 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



09CA 

ogcB 

09CC 
09CD 
09CE 
09CF 
09D0 
09D1 

09D2 
09D3 
0904 
0905 
09D6 
09D7 



************* ALU B •********••••* 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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SENDING & RECEIVING I/O MESSAGES 

THE I/O READ OR WRITE SEQUENCES ARE AS FOLLOWS 

1. SEND OUT THE 1ST WD WITH BKX4 AS BANK REG, 
USUALLY THE 1ST WD'REGISTERi+CHANi . 

2. SEND OUT THE 2ND WD WITH WRX4, 

USUALLY 'DON'T CARE' IN CASE OF I/O READ 
AND WILL BE DATA IN CASE OF I/O WRITE. 

3. SEND CMD WD( 0284 ); SEND WORD + MOD «, AND 
IGNORE BUSY. 

4. CHECK IF MESSAGE IS SENT BY TESTING 'MESS', 
IF NOT, LOOP UNTIL MESSAGE SENT OR TIMEOUT. 

5. THEN CHECK IF RETURNED MESSAGE IS PENDING 
BY TESTING CPXl ( 9 : 1 ) - 1 .MSGINT . 

6. CMD CODE(0C02) TO RECEIVE 1ST WD. 

IT WILL ALWAYS RETURN MESSAGE WHETHER OR NOT 

IT IS I/O READ OR WRITE. (0C02) MEANS TO REC 

THE FROM' CODE CM), AND GO BUSY. 

CLEAR THE MESSAGE PENDING BUFFER BY SENDING 

CCPX WITH 10090; 

CHECK IF THE FROM' CORRESPONDING TO THE 

'TO' MODt 

IF FROM CORRECT M00«, CMD CC»E(04021 TO REC 

THE IST(UPPER) WD TO OPB.AND KEEP BUSY. 

10. CHECK RETURNED 1ST WD VALIDITY; SUCH AS 
TIMEOUT, PARITY AND DATA NOT VALID 

11. CMD CODE(0802) TO REC 2ND(L0WER) WD TO OPB 
AND STORE IN RG AS READ DATA. 

IN CASE OF I/O WRITE, IT IS 'DON'T CARE'. 
JSB TO FETCH NEXT INSTRUCTION IF F4B SET, ELSE 
RETURN AS SUBROUTINE. 



lOW 
lOR 



ADD 
INC 
lORL 



EOOO XR4 ANDL XR5 
LOOP RG ,TSZ MSTO 
DNVL ADD 



0090 



JSB DNVL 
ADDL 





SP3B 


XR19 


lOR 




BKX4 


PSHR 


UNC 




SP3B 


BKX5 
RG 


lOR 
ADD 




BKX4 


PSHR 
WRX4 






UBA 




ADD 






BUSC 




ZERO 


0600 




ADDL 




XR21 






MSGI 




RG 


JS8I 


LOOP 


RG 




MESS 


UNC 




RG 


JSZI 


MR TO 


RQ 




ZERO 



XR21 INC LSL 



BUSC 



0401 ADDL 

XR5 INC 
OOID ADDL 
00C3 XR12 ADDL 
UBB JSZ 
XRll ADD 



XRll 
lOER NZRO 
RSB 



UBA ADD CCPX 

UBA INC BUSC 

RREG ADD LSL BUSC 
UBA OPB AND RG POPR NZRO 
OPB ADO RG 

JSB FCHl BKX3 F4B 



;I/0 WRITE 

RQ:«-(MESS TIMEOUT); WDl : -REG« + CHAN», PSHR 

UBA :> put mod* in coinmand word; Send 2nd wd 

MASK DRT3.(0:2); SEND CONTROL MESSAGE 

MSTO IF TIMEOUT; XR21:=REG« 6 

SKIP IF MSG RECEIVED; LOOP IF MESS NOT SENT 

LOOP IF NOT TIMEOUT; SUSPEND IF TIMEOUT 

UBA: -MASK TO CLEAR MSGINT; 

READ FRCW CODE (UBB;-%0C02) 

UBA;«RCV UPPER WD;CLEAR MSGINT 

<DRT3>+'WAIT' ; TO REC 1ST WD 

MASK FOR PARITY/TIMEOUT/DNV; TO REC 2ND WD 

%40C3; CHECK VALID RTN 

lOER IF ERROR; SAVE 2ND (LOWER) WORD 

%40C3(SUSP) .RETURN; JSB IF F4B.SET MEM BANK=0 
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SUSPEND 


CHECK ROUTINE 






RtCCRD 


C S 


* * * * 


* (k * * 


'• ALU A ••••••••«** 


..*........** ALU B «•*•••**» 


* * A A 


NO 


ADDR 


LABL RREG 


SREG 


FUNC 


SFNC STOR SPSK 


RREG SREG FUNC SFNC STOR SPEC 


SKIP 


9;; 3 1. 




•«.«*•••• 


• *•• 


i«*** 


>•»•<,<.<,*•••*•*•* 


• AAAAAAAAAAAAAtKAAAAAIlAAAAAA** 


AAA 


?896 










SUSPEND CHECK ROUTINE 


A 


9Rn7 










THIS ROUTINE CHECKS THAT THE OUTBOUND FIFO IS 


A 


9S98 










EMPTY BEFORE ALLOWING EXECUTION OF THE CURRENT * 


9899 










instruction.it 


IS CALLED BY EACH INSTRUCTION 




9900 










WHICH WRITES TO 


REGISTER«0 ON THE CHANNEL. 




9901 










IF THE FIFO IS 


NOT EMPTY, THEN THE PROGRAM IS 




9902 










SUSPENDED UNTIL 


THE FIFO IS EMPTY. 




9903 










FIFO IS CHECKED 


BY READING THE REG«2 BIT14. 




9904 










F2 IS SET IFF SUSB IS THE ENTRY POINT, WHERE 




9905 










IT IS SUSPENDED 


TO WAIT FOR DATA TO ARRIVE. 




9906 




AA*AAAMA* 


tax * * 


k A * A A 


kAAAAAAAAAAAAAAA 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


AAA 


9907 


09D8 


SUSP OOCl 


XR12 


ADDL 


XR13 


XR27 ADD PSHR 




9909 


09D9 


UBB 




ADD 


WRS 


XR17 JSB lOR SP3B 


NZRO 


9911 


09DA 


RG 


XR13 


AND 


ZERO 


RG UBA AND RG POPR 


NZRO 


9913 


090B 




SP2B 


ADD 


RH NZRO 


XR30 JSL SUSC 


UMC 


9915 


09DC 




UBB 


ADD 


RSB 


EOOO SP2B SUBL RG 




9917 


09DD 


RG 




ADD 


SWAB SP4A POS 


RG ADD SPIB 


EVEN 


9919 


090E 


0200 


RG 


ADDL 


RG 


0100 SP2B ADDL SP2B 




9921 


09DF 




SP4A 


ADD 


LSL POS 


SPIB ADD LSL 


POS 


9923 


09E0 


0080 


RG 


ADDL 


RG 


0400 SP2B ADDL SP2B 




9925 


09E1 


RM 




CAD 


DATA 


RH ADD SP2B 




9927 


09E2 


RG 


SP2B 


ADD 


XR13 CFl 


JSB CHR 


ZERO 



10/ 2/86 9:26 AM 



MASK BITS; ADJUST THE RAR,DRT3 ADDR 
WRITE TO DRT3 ADDR; READ REGtt2 
SKIP IF ZERO;CHECK INTERRUPT BITS+FIFO BIT 
SKIP IF RE6«2(14:1).0; SUSB IF ALL ZERO 
RTN IF SUBROUTINE, REG«F(INTH) ;ERR CODE 
SKIP IF NO STATUS CHG;SKIP IF DEV CLEAR 
ERR FOR STATUS CHG;ERR FOR DEV CLEAR 
SKIP IF NO HANDSHAKE ABORT; SKIP IF PARITY 
ERR FOR HANDSHAKE ABORT ; <POINT> 
DRT0;=<POINT>-l;RESTORE <POINT> 
ERROR CODE; JSB TO CHR 
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RECORD 

NO 

gn.TO 
91)31 
fl93Z 
9933 
9934 
993b 
9936 
99 3 7 
993 S 
9 9 39 
■1940 
9941. 
9942 
9943 
9944 
9945 
9946 
9947 
9948 
9949 
9950 
9951 
9953 
9955 
9957 



C S 
ADDR 



CRC INITIALIZE INSTRUCTION 

*•**•***•** ALU A ••••••••«•• 

LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



CRC INITIALIZE INSTRUCTION * 

I I -I« 

lOOOlOOOOXXXXXXXXI' 

I-- I -I' 

IXXXXXXXXXXXXXXXXI' 

I--- I 1' 

IT WILL FORCE THE CRC GENERATORS IN THE CHANNEL ' 

CONTROLLER AND DEVICE TO A KNOWN INITIAL STATE. ' 

THEN, THE GENERATORS WILL OPERATE ON ANY DATA ' 

TRANSFERRED BETWEEN THESE DEVICES. ' 

1 IT WILL CAUSE THE CHANNEL CONTROLLER TO BE 
EXAMMINED TO CHECK WHETHER THE CONTROLLER HAS ' 
THE CAPABILITY(REG»7(01) ) BEFORE PROCEEDING. ' 

2 IF NOT CAPABLE. THEN UNLISTEN 4 REFETCH. 
3. IF IT'S, THEN I ADDRESS THE DEV TO LISTEN, 

II ISSUE THE SEC ADDRESS, 

III. ADDRESS THE CHAN TO LISTEN, " 

IV. ISSUE THE SEC ADDRESS, 

V. THEN UNLISTEN, 4 REFETCH ' 



09E3 
09E4 
09E5 
09E6 



CRCI C03F 
RG 



ADDL RH 
JSB FIUL PCS 
JSB SUSP UNC 
0071 XR12 ADDL SPOA 



JSB lOR 
ADD SP3B 
ADDL SPIB 
JSB LSTA SP38 



UNC ADDR CHAN TO LISTEN;READ REG«7,DEV« 
FIUL IF HAS NO CRC , REG«0 FOR FIUL 
SUSP TO CHECK FIFO; SEC ADDR 

UNC SEND SEC ADDR; SEND THE HP-IB CMOS 
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CRC COMPARE 


INSTRUCTIOI 


^ 


















RECORD 


c s. 




* A * * * 


« A A * * 


•• ALU A •' 


« A * A * 1 


* * A A A 


* A A A > 


k * A * A 1 


IT A A A 1 


ALU B 


* A A A 1 


k * A A A 1 


k A * A ft 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


; SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SHIP 


9960 




• «••< 


>**•*. 


>•*«* 


*••*< 


,*•***. 


• AAAA, 


>**AAA. 


>****, 


>A*A*, 




AftAAA* 


!****> 


KAAAA, 


k»*A 


9961 












CRC COMPARE INSTRUCTION 










* 


9962 
9963 












T 








I-- 






















I I 


3 


1 





1 RH^IN^ 


X X 


X X 


CPVAI* 


9964 












T . 










T T 










i 




" ~ i. ' 






- 1 1 








- - 1 


9965 












I X ; 


< X 


X 




INTERRUPT ( 


CODE 






I* 


9966 
9967 










































THIS 


INSTRUCTION 


OBTAINS THE TWO-BYTE CRC 


FROM 


_ _ J A 


9968 












THE DEVICE 


AND CHANNEL AND 


COMPARES THEM. 




A 


9969 












IF THEY MATCH, THE NEXT INSTRUCTION ] 


[S EXECUTED • 


9970 












(BIT9 


OF THE INSTR=0) 


,0R INT/HALT INSTR. 


tS DONE * 


9971 












NEXT 


(BIT9: 


=1) IF CRC 


BYTES DO 


NOT MATCH. 


THEN 


A 


9972 












AN INT/HLT 


INSTR 


IS DONE, 


rAKING THE 


IS 




A 


9973 












COMPLEMENT 


OF THE SPECIFIED INTERRUPT CODE IN 


* 


9974 












2ND INSTR 


WORD. 














* 


9975 












CRC COMPARE AND CRC INITIALIZE 


SHOULD BE USED 


* 


9976 












TOGETHER AND SHOULD NOT BE 


SEPARATED 


WITH 




* 


9977 












INTERRUPT/HALT OR WAIT INSTRUCTIONS. 






* 


9978 




***** 


»****! 


« * * * * 


* * * * * 


1 * * * A A 


h A ft A A 1 


* * * A * III > 


k A A A A 1 




k A A A A 


A ft A ft A * 


( A A A A 1 


k A A A A 1 


K A A A 


9979 


09E7 


CROC 






CAD 


LSL 


SP4A 








JSB 


lOR 


XR9 




UNC 


9981 


09E8 








JSB 


SUSP 




UNC 


RG 




JSB 


CRC4 






POS 


9983 


09E9 




0004 


RG 


ANDL 








SP4A 


ADD 




XRO 


SF5B 




9985 


09EA 








JSB 


TLKI 




UNC 




UBA 


JSB 


CRC2 






NZRO 


9987 


09EB 








JSB 


lOW 




UNC 


8002 




ADDL 




RG 






9989 


09EC 








JSB 


TLKI 




UNC 


FFEO 


XR26 


lORL 




XRO 






9991 


09ED 








JSB 


lOW 




UNC 


8002 




ADDL 




RG 






9993 


09EE 


CRCl 






JSB 


SUSP 




UNC 




XRO 


JSBI 


CRCl 


XRO 




NZRO 


9995 


09EF 


CRC2 


OOSF 


XR12 


ADDL 


RG 








JSB 


low 


SP3B 




ZERO 


9997 


09F0 




003F 


XR12 


ADDL 


RG 








JSB 


low 






UNC 


9999 


09F1 








JSB 


lOR 




UNC 






ADD 






CF5B 




10001 


09F2 






RG 


ADD 


LLZ 


SP4A 


SFl 




RG 


JSB 


lOR 


RH 




UNC 


10003 


09F3 






RG 


ADD 


RRZ 


XRl 






SP4A 


JSB 


CLIF 






NZRO 


10005 


09F4 








JSB 


I OR 




UNC 




RG 


JSB 


CLIF 






POS 


10007 


09F5 




RH 


RG 


XOR 




RH 






RG 


ADD 








POS 


10009 


09 F 6 








JSB 


I OR 




UNC 


UBB 


UBB 


JSB 


CRC4 






NEG 


lOOU 


09F7 






RG 


ADD 


RRZ 








RH 


JSB 


CLIF 






NZRO 


loon 


09F8 




UBA 


XRl 


JSBS CLIF 




NZRO 




RG 


JSB 


CLIF 






POS 


10015 


09F9 


CRC4 






ADD 








FFFO 


XR23 


SUBL 










10017 


09( A 






UBB 


JSB 


CHRS 




ZERO 




SPIB 


ADD 


LSL 








10019 


09 FB 






OPA 


JSB 


INTl 




CFl 




UBB 


JSB 


FCHl 






NEG 



10/ 2/88 9:26 AM 



-2;READ REG«7,SET XR9 ; -0 

CHECK OUTBOUND FIF0;CRC4 IF REG«7(0:1)»1 
TEST REG«2(13; 1) ;XR0»:-2,F5B FOR TLKI RETURN 
ADDR CHAN TO TALKiCRC2 IF FIFO NOT EMPTY 
GO TO RECEIVE THE 2 BYTES FROM CHAN 
ADDR DEV TO TALK 

GO TO RECEIVE THE 2 BYTES FROM DEV 
WAIT 15 USEC FOR HP-IB TO SETTLE, CHECK FIFO 
CLEAR HP-IB, TO UNTALK 
TO UNLISTEN 

Fl FOR CLIF TO INT1;READ THE 1ST CHAN BYTE 
CHECK SP4A;=1CBYTE(0:8) ;RE:=1CB,READ 2CB 
SAVE XRl: =2CB(8:8) ;CLIF IF ICBfOiSl^O 
READ 1DB;CLIF IF 2CB(0.1)'0 
COMPARE 1CB=1DB?-,SKIP IF 1DV(0.1)=0 
READ 2DB;CRC4 IF 1DB(0:2)=11 
SAVE 2DB(8:8) ;CLIF IF ICBttlDB 
COMPARE 2CB = 2DB?CLIF <> ;CLIF IF 2DB(0:1)=0 
;CHECK IF FROM WAIT INSTR 
TEST 1ST INSTR(9:1) iCHRS IF FROM WAIT 
ELSE GO FETCH NEXT INSTR ilNTl IF BIT8«1 
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RECORD 

NO 

10022 
10023 
10024 
10025 
10026 
10027 
10028 
10029 
10030 
10032 
10034 
10036 
10037 
10038 
10039 
10040 
10041 
10043 
10045 
10046 
10047 
10048 
10049 
10050 
10051 
10052 
10053 
10054 
10055 
10056 
10057 
10059 
10061 
10063 
10065 
10067 
10069 
10071 
10073 
10075 



c s 

ADDR 



09FC 
09FD 
09FE 



09FF 
OAOO 



OAOl 
OA02 
0A03 
0A04 
0A05 
0A06 
0A07 
0A08 
0AO9 
OAOA 



WRITE AND READ COMMANDS 

• •*..«<*••• ;^LU A •«•••••••*• 

LABL RREG SREQ FUNC SFNC STOR SPSK 



»tn,tk******n ALU B •••«••••**•»•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



k*ftftAftft*A« 



t« A ft * ft ft A> 



WRITE RELATIVE IMMEDIATE 



I 
I-.. 

I 



DISPLACEMENT 



k ft ft ft ft ft ft A « 



RH 
OPA 



ADDL 

ADD 

JSB 



RH 
UBA 



SP28 INC 
SP2B INC 
UBA ADD 



WRX3 
WRX3 
DATA 



ft ft ft 
UNC 



RREC 
RREl 



COOO 



t ft ft ft ft ft «« 
ADD 
ADDL 



FOR INPUT(READ) RECORD MODE, 

JSB TO DMON(DMA TURN-ON ROUTINE) IF NOT CIC, 

IF CIC, THEN REG»0;-%C000,TO RECEIVE BYTES. 



SPOA 
RG 



JSL 
JSL 



DMON 

lOW SP3B 



EVEN 
ZERO 



DMA TURN-ON ROUTINE 



ROUTINE :REGtA 
REGt9 
REQ*8 
REGtB 



DRT3: 
THEN. 



DMON FOOO RH ANDL 
UBA ADD 
OBOO ADDL 
0800 ADDL 
OOFF SPIB ANDL 

OPA ADD 
SPOA ADD 
RH XR6 ADD 
UBB XRIO ADD 

XR5 INC 



SWAB RH 

SP4A 

RG 
RG 
RG 
RG 



BYTE COUNT, 
-MEMORY ADDRESS. 
-EXTENDED MEMORY ADDRESS. 
-X0100+CRTL(8:8) IF CRTL(12: 
-CRTL(8:8) IF CRTLI 12 ; 1 ) -0 , 

(WITH DEVi IN BITS13-15). 
•OLD' DRT3(0;3)+%0002. 
JSB CPEX TO LEAVE DMA ALONE 
TO FINISH 

XRIO INC RC 

0800 SPIB ANDL 

0100 UBA ADDL RH 

0900 ADDL SPIB 

UBA JSL lOW SP3B 

SPIB JSL low SP3B 

XR25 JSL low SP3B 
XR27 ADD CF 

SP4A JSL low SP3B 



1)-1, 



NZRO 
NZRO 
NZRO 



UBA:-%FF00+DSP IF RH<0 : SP2B : -NEW DSP IF>0 
Mi<POINT>) :SP2B:-NEW DSP IF RH<0 
SEND DATA TO MEM 



RECOVER BCOUNTjDMON IF NOT CIC 
REG«0:-«C000,t6 RECEIVE BYTES 



MASK THE <CRTL>;READ M( <P0INT>+3 ) ,MEM ADDR 

SWAP THE <CRTL>,TEST CRTL(4:1) 

REQ«B;«0100+<CRTL> IF CRTL(4:l).l 

REG«8.>EXT MEM ADDR -REGtQ : -MEM ADDR 

WRITE TO REG«8.*«EXt ADDR IS EIGHT BITS** 

WRITE TO REG»9 THE MEM ADDR 

REG«A;=BCOUNT 

NEW <CRTL>+DEVt;DRT0 AS ADDR.CF5B FROM TLKl 

DRT3 ADDR;WRITE TO REGtB 

SAVE DRT3(0:3,14.1«1);LEAVE ALONE TO FINISH 
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EXECUTE DMA 1 


NSTRUC 


:tion 


RECORD 


C.S. 




* * * • 


K * A « * 


•• ALU A «•••••«««•« ............. ftLU B ......»*«..'... 


NO 


ADDR 


I.ABL 


RREG 


SREGi 


FUNC 


SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 


10078 




,>>,•• 


ft**** 






• ...•.•••.*•.••....•.•..•.•.>•.**...»..........<,. 


10079 










EXECUTE DMA INSTRUCTION (INITIATION) • 


10080 
10081 












J 1 J i[* 












ooooiiioxxxxxxx xk* 


10082 
10083 












■„ T „_._Tft 












BYTE COUNT / RESIDUE COUNT 1* 


10084 
10085 












-.--_- ™. -T Tft 












TERMINATE DISPLACEMENT BURST LENGTH (0 =256) if 


10086 
10087 












J „_•[* 












RB LR SP RW SA UO X X EXTENDED MEMORY ADDR. 1* 


10088 












--I--I--I--I--I--I 1-- :[* 


10089 












MEMORY ADDRESS / RESIDUE ADDRESS :[• 


10090 
10091 






















BIT ABBREVIATIONS. • 


10092 












RB : = "RECORD MODE"^ 1 ■= "BURST MODE". • 


10093 












LR : = "START ON LEFT BYTE", 1 ■= "START ON • 


10094 












RIGHT BYTE" . 


10095 












SP ; READ : 1 • "TERMINATE ON ASCII LINE-FEED • 


10096 












(QIC ONLY)". • 


10097 












WRITE: 1 • "00 NOT TAG HP-IB END MESSAGE • 


1009 8 












TO LAST BYTE" . • 


100T9 












RW : = "READIINPUTl", 1 . "WRITE (OUTPUT )" . 

SA : 1 = "SEND/REC. ALL DATA WITH SINGLE MEMORY* 


10100 












10101 












ADDRESS". • 


10102 












UD : 1 = "DO NOT UPDATE INSTRUCTION WORDS AFTEI!» 


10103 












EXECUTION", 


10104 












JSB TO WRXD IF CRTL( 3 : 1 ) »1 , FOR OUTPUT(WRITE ) , • 


10105 












JSB TO RREC IF CRTL (0 ; 1 ) =0, RECODE MODE, • 


10106 












CONTINUE ON IF BURST MODE . • 


10107 




■k II m * 


* * * * * 


k ft ft ft II; 


ft ft ft ft ft 


ft**Aft*ftftftft***ftAAftAft*ftftftftftftftftftftftftft*ftftftftftftftfkAft«ftftUft 


10108 


OAOB 


XDMA 


E002 




ADDL 


SP4A UBA INC XRIO R0X3 


10110 


OAOC 








CAO 


RRZ SFl SP2B ADO RG 


10112 


OAOD 




UBA 


OPA 


AND 


XRl NZRO XR27 ADD WRS 


10114 


OAOE 








INC 


SWAB XRl RG CAD DATA 


10116 


OAOF 




SPOA 




ADO 


XRO OPB ADD SPIB 


lOllB 


OAIO 








ADD 


UBA JSL DCER ZERO 


10120 


OAU 


DMA 




XRl 


ADO 


RG 1000 ADDL 


10122 


0A12 




SPOA 


XRl 


SUB 


SP4A CRRY UBB SPIB AND XRl NZRO 


10124 


0A13 




SPOA 




ADD 


XRl UNC 48FF SPIB ANDL RH 


10126 


OAU 






XRl 


ADD 


SPOA XRl JSB WBXD NZRO 


10128 




.« * * A 


* * * * * 


h ft ft ft III 


ft ft ft ft ft 


ftftftft*AA*ftftftftft*Aftftft*AAft**AAAAftftftftftftft**ftftftftftftftAAftikft 


10129 












FOR INPUT (READ) BURST MODE WITH F2«l, • 


lono 












WRITE TO REG«0.-<BURST> IF CRTL(2.1)-1, • 
TERMINATE ON LINE-FEED, « 


10131 












10132 












=%8000+<BURST> IF CRTL(2:1)=0. • 


10133 




(1 * * * 


It ft A A A 


k ft ft ft <l 




AAAAftftftftftftftftftftftftftftAftftftAAAAAAAAftftftftftftAftftftftftftAftftftlkft 


10134 


0A15 






XR8 


ADD 


SPIB ADD NEG 


10136 


0A16 




UBB 


UBB 


ADD 


LSL POS UBA JSL RREC UNC 


10138 


0A17 






XRl 


ADD 


RG UNC UBB JSL DMON EVEN 


10140 


0A18 




UBA 


XRl 'I 


I OR 


RG JSL low SP3B ZERO 


10142 


0A19 








ADD 


JSL DMON UNC 
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ERROR CODE;READ <P0INT>+2 

MASK BITS; <POINT> 

SKIP IF BURST<>0;DRTO ADDR 

SET BURST :=%0100 IF ; <DRTO> : « <P0IN1 

SAVE BCOUNT; <CRTL> 

CHR IF DATA CHAIN«0; 

BURST LENGTH ;MASK 

SKIP IF BCOUNT> -BURST; SKIP IF WRITE 

BURST: -BCOUNT ;<CRTL> FOR READ 

BCOUNT; -BURST ;WBXD IF 'WRITE' 



CIC REQ;SKIP IF CRTL(0:1)=1 
UBB(0:1)»CRTL(2:1) ,LF;RREC IF RECORD, CIC 
REC UNTIL LINE-FEED DETECTED ;DMON IF NON-CIC 
REC BYTES UNTIL END 
JSB DMON FOR DMA TURN-ON ROUTINE 
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RECORD 

NO 

10145 
10146 
10147 
10148 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10160 
10162 
10164 
10166 
10168 
10170 
10172 
10174 
10176 
10178 
10180 
10182 
10184 
10186 



C S. 
ADDR 



OAIA 
OAIB 
OAIC 
OAID 
OAIE 
OAIF 
0A20 
0A21 
0A22 
0A23 
0A24 
0A25 
0A26 
0A27 



WRITE ROUTINE 

• ••••on*** ALU A •««•»•««»»• 
LABL RREG SREG FUNC SFNC STOR SPSK 



************* ALU B A************* 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



kAAftAAAAftlkftM 



OUTPUT(WRITE) ROUTINE 

JSB WRXD IF RECORD MODE, OR BCOUNT>BURST LENGTH, 

FOR BURST MODE 1 READ REGie, HP-IB CONTROL BITS, 

2, WRITE TO REG«6:-REQt6'AND'%0060, 

+%0022, 
3. WRITE TO REQf3:-X8002, SETUP PHI, 
4. IF DATA CHAIN-0,RH:-<CRTL>+X0010 
<CRTL> "EXTENDED MEM ADDR+L/R+S/P 
+R/W+S/A, 
5. THEN JSB TO DMON . 
FOR RECORD MODE: IDENTICAL TO BURST MODE, EXCEPT 

<CRTL>-EXTENDED MEM ADDR+L/R+R/W 
+S/A 



SPIB JSB W6X1 
RG XRO JSBS WRXl 



ADD 

ADD 

ADD 

lORL 

ANDL 

lORL 



POS 
CRRY 



WRXl 
WRXD 
WRXE 



UB6 

XRO 

1000 RH 

0060 RG 

0022 UBA 

0002 XR14 ADDL 
ADD 
RG JSB 
JSB 
ADD 
JSB 



RH 

SPOA 

RH 

RG 
RQ 



WRXE 
WBXl 



ZERO 

UNC 



58FF SPIB ANDL 
2000 SPIB ANDL 
78FF SPIB ANDL 
ADD 
XR21 JSL 
6KX8 ADD 
3000 RH lORL 
JSL 
XR18 JSL 
JSL 

58FF SPIB ANDL 

ADD 
78FF SPIB ANDL 



RH 
RG 



low 
low 

DMON 
WBXl 



RH 

BKX6 

RH 



NZRO 
ZERO 

UNC 
NZRO 
UNC 
Fl 



COMMENT 



WRXD IF 'RECORD' MODE;<CRTL> 
WRXl IF BCOUNToBURST LENGTH;TEST CRTL(2:1) 
WRXl IF BC=BL;<CRTL> 
<CRTL> FOR BOBL; 
RECOVER BCOUNT;READ REG«6 
RH:='%1000+<CRTL> ;SKIP IF DC:x0 
MASK REG»6( PARITY FRZ+REMOTE ENABLE) 
SETUP DMA+REN TO REG«6 ; 
REG«3:«DMA CSRO ON OUTBOUND FIFO IDLE 
;JSB DMON 

WRXE IF CRTL(10:1) :-0;WBXl IF XDMA INSTR 
<CRTL> ; 
SET DC:-0 
WBXl WITH <CRTL> 
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RECORD 

NO 

10189 
10190 
10191 
10192 
10193 
10195 
10197 
10U19 
10201 
10203 
10205 
10207 
10209 
10211 
10213 
10215 
10217 
10219 
10221 
10223 
10225 
10227 
10229 
10230 
10231 
10232 
10233 
10234 
10235 
10236 
10237 
10238 
10239 
10240 
10241 
10242 
10243 
10244 
10245 
10246 
10247 
10248 
10249 
10250 
10251 
10252 
10253 
10255 
10257 



C S. 
ADDR 



0A28 
0A29 
0A2A 
0A2B 
aA2C 
0A2D 
0A2E 
0A2F 
0A30 
0A31 
OA32 
0A33 
0A34 
0A35 
0A36 
0A37 
0A38 
0A39 



DMA REFETCH ROUTINE 

........... ALU A ••••«•«•..« 

LABL RREQ SREG FUNC SFNC STOR SPSK 



............. ALU B <.«•«•••«•*.««. 

RREG SREG FUNC SFNC STOR SPEC SKIP 



0A3A 
0A3B 
0A3C 



DMA ROUTINE-REFETCH DMA INSTRUCTION AND 
CONTINUE EXECUTION 



DMRR 
DMAM 



OOOA 

FFFD UBB 

EOOl 

SPOA XRO 
RQ 
OPA 

SPOA XRl 
UBA 
RG 
SP2B 

SPOA RG 

SPOA UBA 

RREG XRIO 
XRl 

RH RQ 
XR2 



ADD 

CAD 

ADDL 

ADDL 

ADDL 

AND 

JSB 

JSB 



SPOA 

RG 

XRO 

SPOA 

SP4A 

XR2 



CGE2 



JSBS DMRR 

ADD 

ADD 

ADD 

ADD 

XFRS 

ADD 

ADD 

ADD 

JSB WOT 



ZERO 
NZRO 
UNC 
NCRY 



SPOA 

XRl 

SPOA WRX3 

SPOA CF2 
DATA 
WRX3 
DATD 
DATA 
ZERO 



JSB 
XR18 JSL 
SPIB ADD 
OOOE UBB SUBL 
SPIB ADD 
SP2B INC 
OOFO SPIB ANDL 
SP3B BKX7 AND 
SPIB JSB 
XR24 JSL 
XR25 JSL 
0400 SPIB ANDL 

JSB 

BFFF SPIB ANDL 

RH ADD 

ADD 

ADD 

XR9 JSB 



DMRl 

low 

LRZ 



SP3B 

XR9 

RG 

SPIB 

SP2B R0A3 

SPIB 



UNC 
NZRO 



DMRR 
lOR 
I OR 



SP3B 
SP3B 



DMR2 RH 

RG 

RLZ RH 



RDT 



POS 

NZRO 

NZRO 

ZERO 

UNC 



ODD 



OPA 
0060 RG 
UBA 



DMA INSTRUCTION (TERMINATION FOR XDMA) 

1. UPDATE REGte, HP-IB CONTROL REG, CLEAR OUTBOUND 

FIFO.RESET DMA DIRECTION , KEEP 'REN' AND PARITY 
2. IF WRITErOUTPUT) : 

IF 'RECORD', DO REFETCH & EXECUTE NEXT INSTR. 

IF 'BURST, 4 BCOUNT=0,DO REFETCH & EXECUTE 

NEXT INSTR. 

IF 'BURST',* BCOUNToO.OO REFETCH & SKIP NEXT 

INSTR. 
3. IF READ(INPUT) :JSB XTIN 

IF 'RECORD',* DMST(5:2)»00, REFETCH AND EXECUTE 

NEXT INSTR. 

IF 'REOCRD' ,4DMST(5:2)=X1, JSB DMAB FOR ABORT. 

IF 'RECORD' ,&DMST(5:2i«10, REFETCH AND EXECUTE 

THE INSTR INDICATED BY <POINT>+TERM DSPL. 

IF 'BURST', & DMST(5:2)-00, REFETCH AND EXECUTE 

NEXT INSTR 

IF 'BURST', & DMST(5:2)«11.JSB DMAB FOR ABORT. 

IF 'BURST', & DMST(5:2i«01/10,4 IF BCOUNToO, 

SKIP NEXT INSTR, HOWEVER, IF BCOUNT-O , REFETCH 

AND EXECUTE THE INSTR INDICATED BY <POINT>+ 

TERMINATE DISPLACMENT. 

ADD LRZ RH XR21 JSL lOR SP3B 

ANDL 1000 SPie ANDL SPIB 

INC RG SPIB JSL low CTX UNC 
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SET BCOUNT-0;JSB DMRl 

WRITE REG«3;»X7FFF 

MASK BIT;XR0{8:8) 'IST INSTR(0.8) 

TEST FOR READ, RCON, WRIT, WCON &XDMA 

ERROR CGDEIJSB V);NO DC/MODI-XDMA 

SKIP IF READ/RCON/WRIT/WCON; <POINT> ,&READ 

V IF NOT XDMA; MASK OFF DC BITS 

CGE2 FOR DATA CHAIN UPDATE ;MASK REG«Bt5:2) 

DMRR IF BCOUNT<BURST; DMRR IF CRTL(0:1)=0 

BCOUNT;READ REG»9,MEM ADDR 

SAVE MEM ADDR; READ REG»A DMA BYTE COUNT 

<POINT> AS ADDR; TEST CRTL ( 5 : 1 ), UPDATE? 

SP0A:»BCOUNT + <REG(tA> ;DMR2 IF UPDATE 

STORE NEW BCOUNT TO <POINT> , <CRTL> 

<P0INT>+3 ADDR, MASKED REG«B(9 1) 

SAVE MEM ADDR TO <P0INT>+3 

<P0INT>+3;»MEM ADDR;RH:"0 

WDT IF WRIT/WC0N;RDT IF READ/RCON , XR9 (CLFl 1 



NZRO RH: -TERMINATE DSPL; READ REG»6,HP-IB CONTROL 
CLEAR FIFO.RESET DMA ,KEEP REN, PARITY 
RETURN TO REQ«6;<CRTL> 
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RECORD 

NO 

10260 
10261 
10262 
10263 
10264 
10266 
10268 
10270 
10271 
10272 
10273 
10274 
10276 
10278 
10280 
10282 
10284 
10286 
10288 
10289 
10290 
10291 
10292 
10294 
10296 
10297 
10298 
10299 
10300 
10301 
10302 
10303 
10304 
10305 
10307 
10309 
10311 
10313 
10314 
10315 
10316 
10317 
10318 
10319 
10320 
10321 
10322 
10324 
10326 
10328 
10330 
10332 



C S. 
ADDR 



0A3D 
0A3E 
0A3F 



0A40 
0A41 
0A42 
0A43 
0A44 
0A45 
0A46 



0A47 
0A48 



0A4g 
0A4A 
0A4B 
0A4C 



0A4D 
0A4E 
0A4F 
0A50 
0A51 
0A52 



DMA TERMINATION ROUTINES 

*•••••••••• ALU A ••••••••••• 

LABL RREG SREG FUNC SFNC STOR SPSK 



•••••••**••«« ALU B «•••••••» 

RREG SREG FUNC SFNC STOR SPEC 



DMA TERMINATION FOR XDMA WRITE (OUTPUT) 
CRTL(3:1)-1. 



SPIB JSB 

SPOA JSB 

JSB 



XTIN 
FCHL 
FCHL 



ZERO 
ZERO 
UNC 



XRO ADD LSL SPIB 
CTRS JSL FCH4 
0002 SP2B ADDL SP2B 



DMA TERMINATION FOR XDMA READ(INPUT) 
BURST MODE . 
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SKIP COMMENT 



XTIN OPA 
FFOO RH 
RG 
0600 UBB 
UBA 
SPOA 
XTll 



ADD 

ADDL 

ADD LSR 

ANDL 

JSB FCHL 

JSB FCHL 

JSB FCHL 



RH 

SP4A 

RG 



ZERO 
NZRO 
UNC 



BKX7 ADD 

SP3B SPIB XOR 

SPIB ADD 

CTRS JSB 

SPIB JSL 

0002 SP2B ADDL 

RH SP2B ADD 



RQ 
SPIB 



XTIR 
DMAB 



SP2B 
SP2B 



POS 
ZERO 



DMA TERMINATION FOR XDMA READ (INPUT) 
CRTL(3:l)-0, RECORD MODE. 



JSB 
JSB 



FCHL 
XTll 



ZERO 
UNC 



BKX7 ADD 
UBB JSL 



SWAB 
DMAB 



DMA INSTRUCTION (TERMINATION FOR READ) 
l.JSB TO RDTl IF IT IS RECORD MODE. 
2. BURST MODE TERMINATION: 

l.JSB TO CLFF TO CLEAR THE FIFOS, 
II JSB TO RDBE IF DMSTIS : 2)-01 , 
III. JSB TO RDEN IF DMST( 5 : 2 1 .00, 
IV. ELSE JSB TO DMAB WITH ERROR CODE 



RDT 
RDTB 



SPIB 


JSB 


ROTl 




POS 




ADD 


SWAB 


SP4A 


SF2 


RG 


ADD 


LSR 


SP4A 






JSB 


RDEN 




CF2 



BKX7 ADD LSR 

JSL CLFF 

XRO JSB RDEN 

SP4A JSL DMAB 



RG 



UNC 

ZERO 

ODD 



DMA INSTRUCTION (TERMINATION FOR READ) 
FOR RECORD MODE. 
l.JSB TO RDEN IF DMST(5 : 2 )-00 , 

2. JSB TO DMAB IF DMST(5:2)-X1 WITH ERROR IN SP4A, 
3. JSB TO RDT3 IF DATA CHAINoO, 
4. ELSE JSB TO CLFF TO CLEAR FIFOS, THEN 
JSB TO NEW <POINT> . 



RDTl 



ADD SWAB SF2 

ADD LSR SP4A CF2 

ADD LRZ BITS 

UBA ADD RH UNC 

FFOO UBA ADDL RH 

RDTA JSB FCHL UNC 



RG 
RG 
OPA 



XRO 


JSB 


RDEN 


ZERO 


UBA 


JSL 


DMAB 


NEG 


XR27 


ADD 




ROAS 


BKX6 


JSB 


RDT3 


NZRO 




JSL 


CLFF 


UNC 


SP2B 


ADD 




SP28 



■REG»B(5:2) 

IN 'RECORD' MODE 

FETCH & SKIP NEXT INSTR IF BCOUNToO 



XTIN IF CRTL(3:1)-0;SP1B: 
FETCH IF BCOUNT.0;& 



SKIP IF TERM DSP>0;SHIFT RIGHT(2ND) REG«B 
TERM DSP IF <0;TEST DMST(5:2) 
SHIFT(3RD) REG«B; 

DMST(5:2):-1 IITXTIR IF CRTL(0:1):«0 
FCHL IF DMST(5:2)-00;DMAB IF DMST(5:2)=11 
FETCH IF BCOUNT<>0:4 SKIP NEXT INSTR 
FETCH NEXT INSTR At <POINT>+TERM DSPL 



FETCH IF DMST(5:2)-00;UBB(15:1)"DMST(6:1) 
DMAB IF DMST(5:2):-X1,ELSE XTll 



RDTl IF REC0RD:SHIFT(2) REG«B 

DMST(6);CLFF TO CLEAR FIFOS 

ERR CODE FOR DMAB F2 ( RDEN 1 ; RDEN DMST(5:2)>00 

RDBE IF DMST(5:2) :-01;DMAB IF DMST (5 : 2 ) : =1X 



UBA(0:1) :-DMST(6:l) iRDEN IF DMST (5 : 2 ) : =00 
DMAB IF DMST(5:2)=X1,WITH ERROR CODE 
SKIP IF TERM DSPL<0;READ DRTO ADDR FOR DCPU 
NEW <P0INT>;RDT3 IF DCoO 
NEW <POINT> IF TD<0;CLFF TO CLEAR FIFOS 
REFETCM NEXT INSTR AT <POINT>+TERM DSPL 
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RECORD 

NO 

10335 
10336 
10337 
10338 
10339 
10340 
10342 
10344 
10346 
10348 
10350 
10351 
10352 
10353 
10355 
10357 
10359 
10361 
10363 
10364 
10365 
10366 



C S 
ADDR 



0A53 
0A54 
0A55 
0A56 
0A57 



0A58 
0A59 
0A5A 
0A5B 
0A5C 



0A5D DCER 



DMA TERMINATION ROUTINES 
LABL RREG SREG FUNC SFNC STOR SPSK 



.*....<,«.>>•• ALU B ••••«••.••....« 
RREG SREG FUNC SFNC STOR SPEC SKIP 



DMA INSTRUCTION (TERMINATION FOR READ) 

TO CONTINUE THE EXECUTION BY SETTING UP NECESSARY 

REGISTERS FOR TRANSFER. 



RDT3 08FF XR12 ADDL RH 
JSBI DCNB 
RH UBB AND RH 

RTCL ADD 

JSB RDTA 



JSB DCPU UNC 

XR2 ADD SP2B R0A3 

JSL DMON ZERO 

ADD XR9 
BKX7 JSB RDTB RG F2 



DMA INSTRUCTION (TERMINATION FOR WRITE) 



SPIB JSB WDTB 
JSB WUNL 
JSBI DCNB 

OPA ADD 
ADD 



NEG 
UNC 
UNC 



XR27 ADD 

BKX6 JSB 

XR2 ADD 

OOFO OPB ANDL 

JSB 



WRXD 
DATA CHAIN ERROR WITH ERROR CODE:»%E002 



SP2B R0A3 
8KX6 
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%48FF,DATA CHAIN POINTER UPDATE 

JSB TO NEXT DATA CHAIN BLOCK; NEW <POINT> 

MASKED <CRTL>;DMON TO SET UP FOR XFER(SLOWJ) 

CLEAR XR9 IF NOT FROM WAIT 

RETURN FROM CLFF ROUTINE : RG : 'SHIFTED REG«B 



WDTB IF BURST; READ ORTO FOR DCPU 

DCPU ir^ DC<>0;ELSE WUNL 

DCNB FOR THE NEXT CHAIN , +1 ; READ NEW <POINT> 

SAVE THE BCOUNT FOR WRXD; NEW DATA CHAIN 

WRXD TO SETUP THE XFER 



ZERO DATA CHAIN ERROR, WITH ERROR %E002 
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RECORD 

NO 

10369 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 
10379 
10380 
10381 
10382 
10383 
10384 
10385 
10386 
10387 
10388 
10389 
10390 
10391 
10392 
10393 
10394 
10395 
10396 
10397 
10398 
10399 
10400 
10401 
10402 
10403 
10404 
10405 
10406 
10407 
10408 
10410 
10411 
10413 
10415 
10417 
10419 
10421 



C S 
ADDR 



EXECUTE READ INSTRUCTION 

>«.<*.«>«.« ALU A ....<*.•..* 

LABL RREG SREG FUNG SFNC STOR SPSK 



*•■••<••.«•>• ALU B •»«•«••••«••«• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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EXECUTE READ INSTRUCTION (INITIATION) 

- 1 1 1 

00000011 BLOCKS LEFT MODIFIER 

--- I - 

BYTE COUNT / RESIDUE COUNT 

I 

TERMINATE DISPLACEMENT BURST LENGTH (0 

I 

RB LR SP XX SA UD X X EXTENDED MEMORY ADDR 

--I--I--I--1--I--I I --- 

MEMORY ADDRESS / RESIDUE ADDRESS 



■ 256) 



BIT ABBREVIATIONS 



SP 



« "RECORD MODE", 1 > "BURST MODE". 
• "START ON LEFT BYTE". 1 » "START ON * 
RIGHT BYTE" • 
READ : 1 • "TERMINATE ON ASCII LINE-FEED • 
(GIC ONLY)" . < 
WRITE; 1 • "DO NOT TAG HP-IB END MESSAGE ' 
TO LAST BYTE" « 
RW ; « "READ( INPUT)". 1 » "WRITE (OUTPUT) " . • 
SA : 1 « "SEND/REC. ALL DATA WITH SINGLE MEMORY' 
ADDRESS". « 
UD : 1 - "DO NOT UPDATE INSTRUCTION WORDS AFTER- 
EXECUTION" ' 
NOTES: 

THE SEQUENCE AS FOLLOWS: ' 
1. CHECK THE DATA CHAIN BLOCK. 

2. ADDRESS THE CHAN TO LISTEN & DEV TO TALK. ' 

WITH SECONDARY ADDRESS FROM MODIFIER'. 
3. SAVE BURST LENGTH .i SET TO %0100 

IF 0. 
4.JSB TO RREl IF RECORD' MODE 

5.JSB TO DMA IF BURST LENGTH <>1 ' 

i CONTINUE TO RBYT IF BURST LENGTH=1.F0R * 

SINGLE BYTE DATA BURST WITHOUT USING THE DMA ' 

HARDWARE . ' 



0A5E READ 

0A5F 
0A60 
0A61 
0A62 
0A63 



UBB JSB DCH 



EFFF SPIB 


ANDL 






CAD 


LSL 


XRl 


ADD 




UBA 


JSBC 


DMA 


SPIB 


JSB 


RBYB 



WRS 



NZRO 
F2 



OOOF RH 



ANDL 



FFEO XR26 ADDL 
UBA JSL 

48FF SPIB ANDL 
SPIB JSL 
XRIO INC 



XRO 
TLKl SPIB 

RH 
RREl 



NF2 
POS 



DCH TO CURRENT BLOCK DRTO AS ADDR. 

UBB: -MODIFIER 

MASK OFF CRTL.(3:1); FORM TALK CMD FOR DEV 

LISTEN CMD FOR CHAN; SEND HP-IB CMDS IF NF2 

UBA:=BUSRT LENGTH. RH:«<CRTL> 

DMA IF BURSTol. RREl IF 'RECORD' MODE 

RBYB IF F2, UBA:=CRTL 

READ M(<P0INT>+3) , MEM ADDR 
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RECORD 

NO 

10423 
10424 
10425 
10426 
10427 
10428 
10429 
10430 
10431 
10432 
10433 
10434 
10435 
10436 
10437 
10438 
10439 
10440 
10441 
10442 
10443 
10444 
10446 
10447 
10449 
10451 
10453 
10454 
10456 
10458 
10459 
10461 
10463 
10465 
10467 
10469 
10471 
10472 
10473 
10474 
10475 
10476 
10477 
10478 
10480 
10482 
10484 
10486 
10488 



C.S. 
ADDR 



0A65 
0Ab6 
OA67 

0A6 8 
0A69 

0A6A 
0A6B 
0A6C 
0A6D 
0A6E 
0A6F 



0A7O 
0A71 
0A72 
0A73 
0A74 
0A75 



EXECUTE READ - BYTE ROUTINE 

.<,.«..<,*.<,• ALU ft «.•«..•••<,. 

LABL RREG SREG FUNC SFNC STOR SPSK 



.»«.*»»««,«»». ALU B •**•••••••••<.* 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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THIS ROUTINE IS CALLED BY READ INSTRUCTION 

TO DO SINGLE BYTE DATA BURST WITHOUT USING THE 

DMA HARDWARE . 

l.WITH INITIAL MEM ADDR FROM WORD 4A5,DATA FROM 

DEV IS READY FOR TRANSFER. 
2. IF FROM SUSPEND, CHECK CRTL( 2 1 ) , LINE -FEED 

DETECT. IF CRTL(2;1) = 1, WRITE REG»0 ="/.0001 , ELSE 

%C001, TERMINATE ON END' ONLY. 
3. READ THE BYTE FROM REG«0 , <WORD> . 
4. READ THE MEM LOCATION SPECIFIED FROM THE MEM 

ADDRESS;CHECK CRTL(1;1). 

IF CRTL(1;1)=1,MASK OFF THE LEFT BYTE &SF1; 

IF CRTL(1:1)=0,MASK OFF THE RIGHT BYTE & CFl. 

& SWAP THE UPPER & LOWER BYTE OF <WORD> . 
5. SEND THE <WORD>+MASKED BYTE FROM MEM BACK TO 

THE MEM ADDR 
6.JSB TO BYTE RESTORE (BYRS). 
7.UNADDRESS THE DEVICE. 
8 IF <W0RD>(1: 1)=1, CONTINUE AT RDEN.ELSE RDBE 



USA UBA ADD LSL 

COOl ADDL 

RBYB OPA ADD 

RG ADD LSL 

005F XR12 ADDL 

RG ADD RRZ 



NEG 



INC 



RG 



RG 
SP4A 



RH 



RH 



JSB RBYA 

ADD SWAB RH 
RBYA 0002 SP2B ADDL XRO 

JSB BYRS 
ADD RH 
003F XR12 ADDL RG 







JSL 


lOW 


SP3B 




ZERO 






JSL 


lOR 


SP3B 




ZERO 


OOFF 


SPIB 


ANDL 




BKX4 








SP4A 


ADD 




XRO 


R0X4 






SP2B 


INC 






R0A3 






OPB 


ADD 


LLZ 


SP3B 


SFl 






SREG 


ADD 


RRZ 


SP3B 


CFl 






XRO 


ADD 






WRX4 




SP3B 


RH 


I OR 






DATA 








JSL 


lOW 


SP3B 




ZERO 






JSL 


lOW 






UNO 



l.DO UNADDRESS ROUTINE IF 'REORD' MODE " 

2. THEN, IF BCOUNToO, EXECUTE THE NEXT INSTR 
3.4 IF DATA CHAIN=0,ALSO EXECUTE THE NEXT ISNTR . " 
4.i IF DATA CHAIN<>0,DO DATA CHAIN POINTER UPDATE" 
AND EXECUTE THE NEXT INSTR. « 



RDEN SPIB JSB RDEl 

005F XR12 ADDL RG 
003F XR12 ADDL RG 
RDEl SPOA JSB FCHR 
JSB DCPU 
ADD 



NEG 



NZRO 
UNC 



BKX6 


JSB 


RDBE 


SPIB 




JSL 


lOW 


SP3B 




JSL 


lOW 




XR27 


ADD 






BKX6 


JSB 


FCHR 






JSB 


FCHR 





NF2 

ZERO 

UNC 

ZERO 
UNC 



SKIP IF CRTL. (2:1)=1; 

REG«:=%0001, SLOW DOWN JSB 

REG«0:=%C001 IF LINE-FEED; MEM ADD 

SP4A:=M(<POINT>+3) ; READ REG»0,MEM ADDR 

SET F2 IF REGItO. (1:1) = 1; 

eKX4:=EXTENDED ADDR BANKt, CF5B 

RG;=UNTALK CMD ; XRO:«ADDR, READ DATA 

RH:=<WORD> :»REG«. (8:8) ; 

READ M(<P0INT>+1) , TD/BL(RDBE) 

RBYA IF CRTL. (1 :i)»l; SP3B : = <ADDR> (0 : 8 ) , SFl 

RH:»<SWAPPED WORD> ; SP3B : = <ADDR> . ( 8 : 8 ) , CFl 

XR0:=<POINT>+2; MEM ADDR 

BYRS FOR BYTE RESTORE; <WORD>+<ADDR> TO ADDR 

; SEND UNTALK 

RG:=UNLISTEN CMD; SEND 



RDEl IF CRTL(0:1)'1;RDBE IF NF2 ( REG»0( 1 : 1 ) ) 

UNTALK 

UNLISTEN 

REFETCH IF BCOUNT : «0 ; READ DRT0(FOR DCPU) 

UPDATE DATA CHAIN IF DC<>0; FCH4 

REFETCH NEXT INSTR 
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EXI 


RECORD 


C S 




NO 


ADDR 


LABL 


10491 




>*«* 


10492 




* 


10493 




* * A * 


10494 


0A76 


ROBE 


10496 


0A77 




10498 


OA7 8 




10500 


0A79 




10502 


0A7A 


FCHR 


10504 


0A7B 


FCHL 


10506 


0A7C 


FCRT 



EXECUTE READ 



NO END TERMINATION 

ALU A •••*«••••*• .....*......« ALU B ••»•••»••••••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



NO 'END' READ TERMINATION 



ADD 


LRZ 


RG 






XR27 


ADD 






ROAS 




INC 


LSL 


RH 




UBA 




ADD 


SWAB 






POS 


JSB 


FCHR 




NZRO 


FFOO 


RG 


ADDL 




RG 






JSB 


DCPU 




UNC 




SPIB 


JSB 


FCRT 






ZERO 


ADD 






, 


RH 


SP2B 


JSB 


DCJP 


SP2B 




UNC 


ADD 






CF2 






JSL 


FCH4 






UNC 


JSB 


FCHL 




UNC 


RG 


SP2B 


ADD 




SP2B 
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TERM DSPL;READ DRTO ADDR 

SET UP <POINT> TO SKIP;TEST TERMINATE DSPL 

FCHR IF BCOUNT<>0;TERM DSPL 

DCPU IF DATA CHAINoO; FCRT IF SPIB = 

;DCJP FOR UPDATED <POINT> 

FETCH NEXT INSTR;FOR DCOO 

SETUP <POINT>+TERM DSPL TO SKIP NEXT INSTR 
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RECORD 

NO 

10509 
10510 
10511 
10512 
10513 
10514 
10515 
10516 
10517 
10518 
10619 
10520 
10521 
10522 
10623 
10524 
10525 
10526 
10527 
10528 
10529 
10530 
10531 
10532 
10533 
10534 
10535 
10536 
10537 
10538 
10539 
10540 
10541 
10542 
10543 
10544 
10545 
10546 
10547 
10548 
10550 
10552 



C.S. 
ADDR 



EXECUTE 
>iBL RREQ 



WRITE COMMAND 

*••«•« ALU A «••»•••««•• 

SREQ FUNC SFNC STOR SPSK 



.......«•>«*• ALU B •••••••••«»»"• 

RREG SREG FUNC SFNC STOR SPEC SKXP 



10/ 2/88 9:26 AM 



EXECUTE WRITE INSTRUCTION (INITIATION) 

" I I I 

10 BLOCKS LEFT MODIFIER 

I -■ 

BYTE COUNT / RESIDUE COUNT 

I - 

XXXXXXXXXXX BURST LENGTH (0 -256) 

I - 

RB LR SP XX SA UD X X EXTENDED MEMORY ADDR. 

--I--I--I--I--I--I I ■ 

MEMORY ADDRESS / RESIDUE ADDRESS 



BIT ABBREVIATIONS: 

RB : = "RECORD MODE", 1 = "BURST MODE". " 

LR : = "START ON LEFT BYTE", 1 = "START ON <' 

RIGHT BYTE" " 

SP : READ : 1 = "TERMINATE ON ASCII LINE-FEED " 

(GIC ONLY)" , " 

WRITE: 1 - "DO NOT TAG HP-IB END MESSAGE " 

TO LAST BYTE" . " 

RW : = "READ(INPUT)" , 1 = "WRITE (OUTPUT )" . " 

SA ; 1 = "SEND/REC. ALL DATA WITH SINGLE MEMORY" 

ADDRESS" " 

UD : 1 • "DO NOT UPDATE INSTRUCTION WORDS AFTER" 

EXECUTION". 

XX : ■ DON'T CARE " 
NOTES: 

THE SEQUENCE AS FOLLOWS: " 
1. CHECK THE DATA CHAIN BLOCK. 

2. ADDRESS THE CHAN TO TALK & DEVICE TO LISTEN, " 

A WITH SECONDARY ADDRESS FROM 'MODIFIER'. 

3. SAVE BURST LENGTH IN XR1(AJ,4SET TO %100 IF 0" 

4.JSB TO WRXD IF RECORD' MODE;* JSB TO DMA " 

IF BURST LENGTH <>1 . " 

5. IF BURST LENGTH=1,THEN CONTINUE TO WBYT , " 

ROUTINE FOR SINGLE BYTE DATA BURST WITHOUT " 

USING THE DMA HARDWARE. " 



0A7D wfi: 

0A7E 
0A7F 



1000 
OOIE 



UB6 JSB DCH 
SPIB lORL 
ADDL 



WRS 



onoF 


RH 


ANDL 






FFCO 


XR26 


ADDL 




XRO 




UBA 


JSL 


TLKl 


SPIB 



JSB DCH TO CURRENT BLOCK, DRTO ADD;MODIFIER 
MASK OFF CRTL(3:1) ;FORM LISTEN CMD FOR DEV 
TALK CMD; SEND HP-IB, XRl FOR WBXD IN (DMA) 
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RECORD 

NO 

10555 
10556 
10557 
10558 
10559 
10560 
10561 
10562 
10563 
10564 
10565 
10566 
105(17 
105f;3 
10' f.3 
1 j', ,,' 
1.JS71 
10'.72 
10573 
1057.1 
105/5 
10576 
10577 
10578 
10579 
10580 
10581 
10582 
10583 
10584 
10585 
10586 
10587 
10589 
10591 
10593 
10595 
10597 
10599 
10601 
10603 
10605 
10607 
10609 



C S 
ADDR 



EXECUTE WRITE - BYTE ROUTINE 

<*•••<,«.«•• ALU A ••«••••••«• ............. ALU B ••••»•»••»•••• 

LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• THIS ROUTINE IS CALLED BY WRITE INSRTUCTION 

• TO DO SINGLE BYTE DATA BURST WITHOUT USING THE 

• DMA HARDWARE. * 
l.WITH INITIAL MEM ADDR FROM WORDS 4i5,DATA IS * 

• READY FOR TRANSFER STARTING AT THAT ADDRESS. • 

• 2.CRTL(1:11 IS CHECKED TO DETERMINE WHETHER THE * 

• THE FIRST BYTE OF THE TRANSFER WILL BE TAKEN • 
FROM LEFT(O) OR RIGHT(l) BYTE OF THE MEMORY 

• ADDRESS BUFFER • 

• 3 CRTL(2:1) WILL DETERMINE WHETHER SUPPRESS END • 

MESSAGE IS TAGGED • 

IF CRTL(2 :1)-0,OR BCOUNT-1 & DC-0,THEN WRITE * 

• TO REG«0:>%8000+<WORD> ; 

OTHERWISE, REG»0 :• <WORD> . * 

<WORD> -DATA FROM MEMORY ADDRESS. • 

4 JSB TO BYRS FOR BYTE TRANSFER REGISTER UPDATE; * 

DECREMENT BCOUNT.A CHECK IF NEED TO ENABLE • 

MEMORY UPDATE IF IT DOES .COMPLEMENT CRTL(1:1), • 

LEFT/RIGHT BYTE ,&STORE BACK TO CRTL ADDRESS. • 

• 5.F1 IS USED TO CHECK WHTETHER THE LAST BYTE IS « 

LEFT OR RIGHT. 

6 INCREMENT THE MEMORY ADDRESS BY 1 , IF CRTL(4:1) * 

• .0, RETURN THE UPDATED MEM ADDR TO WD5 • 
THEN CHECK IF IT IS ADDR ROLL-OVER .WITH ERROR • 

• CODE %E800. ' 
7. IF BCOUNT=0 i DC«0, RESET DMA DIRECTION BY * 

• WRITING REGt6:=%0060, THEN UNLISTEN DEVICE • 
« ON HP-IB. THEN, REFETCH. • 

8. IF BCOUNT OR DC IS NOT 0,00 UPDATE ON THE 

DATA CHAIN BLOCKS , UPDATE THE CP<POINT> , REPEAT 7* 
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0A80 
0A81 
0A82 
OA83 
0A84 
0A85 
0A86 
OA87 
OA88 
0A89 
0A8A 
0A8B 



WBEN RG 
WBNE 



SPIB JSB WRXD 



ADD LSL 

JSB WBEN 

CAD 
UBB ADD 
XR14 ADD 

ADD 

ADD 

JSB BYRS 



POS 



NEG 
UNO 



XRIO 


INC 




RG 


R0X3 


SPIB 


ANDL 




BKX4 




OPB 


ADD 




XRO 


R0X4 


SPIB 


ADD 


LSL 






OPB 


ADD 


RRZ 


RG 


SFl 


SREG 


ADD 


LRZ 


RG 





BKX6 ADD 

UBA JSB WBNE 

ADD 

JSL lOW 
EFFF SPIB ANDL SPIB 

XR27 ADD ROAS 



WRXD IF 'RECORD' ;DMA IF BURSTOl 

BURST LENGTH, CF5B FROM TLKl.BANK ADDR 

DMA IF <>1;READ MEM ADDR , <WORD> . XRO=MEM ADDR 

<P0INT>+2 ADDRiSKIP IF CRTL( 1 1 ) =0 , LEFT BYTE 

SKIP CRTL(2:1)=1,TAG WITH END' ;RG:=<WORD> 

WBEN IF NOT SUPPRESS END ; RG : = <WORD> 

<BC0UNT>-1;DATA CHAIN 

SKIP IF DC<>0;WBNE IF BCOUNTol 

RG -<WORD>+%8000; 

WRITE TO REG«0:.RQ 
MASK OFF THE WRITE BIT 
BYRS FOR BYTE XFER UPDATE; READ DRTO FOR DCPU 
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RECORD C.S. 
NO ADDR 



10612 
10613 
10614 
10615 
10616 
10617 
10618 
10619 
10620 
10622 
10624 
10626 
10628 
10630 



0A8C 
0A8D 
0A8E 
0A8F 
0A90 
0A91 



EXECUTE WRITE - TERMINATION 
LABL RREG SRECi FUNG SFNC STOR SPSK 



.•»..*..•*«•<, ALU B •«**«««««««i<«« 
RREG SREG FUNG SFNC STOR SPEC SKIP 
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WRITE INSTRUCTION (TERMINATION) ' 

l.IF BCOUNTOO. UPDATE <POINT> TO SKIP NEXT INSTR ; ' 
2.& IF DCOO, UPDATE DC POINTER;ALSO SKIP NEXT ' 

INSTR ' 

3. IF BCOUNT=0 & DC=0 THEN UPDATE <POINT> TO ' 

EXECUTE NEXT INSTR 



WDTB SPOA 



JSB WUN NZRO 

JSB WUNL UNC 

WUN JSB DCJP UNC 

WUNL 0060 ADDL RG 
003F XR12 ADDL RG 

JSB CRCS ZERO 



BKX6 


ADD 




SPIB 




UBB 


JSB 


DCPU 




NZRO 




INC 


LSL 


RH 




XR21 


JSL 


low 


SP3B 


NZRO 




JSL 


lOW 


SP3B 


ZERO 


XRIO 


ADD 






R0X3 



WUN IF BC<>0;DATA CHAIN FOR DCJP 
DCPU IF DATA CHAIN<>0;ELSE WUNL 
DCJP TO END OF DC; RH :« 2 
RESET DMA DIRECTION IN REG«6 
TO UNTALK HP-IB 
CHECK IF CRC SEND; READ <CRTL> 
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RECORD 

NO 

10633 
10634 
10635 
10636 
10637 
10638 
10639 
10640 
10641 
10642 
10643 
10644 
10645 
10646 
10647 
10648 
10649 
10650 
10651 
10652 
10654 
10656 
10658 
10660 
10662 
10864 
10666 
10668 
10670 
10672 
10674 
10676 
10677 
10678 
10679 
10680 
10682 
10684 



C.S. 
ADDR 



0A92 
0A93 
0A94 
0A95 
0A96 
OA97 
OA98 
0A99 
0A9A 
QA9B 
0A9C 
0A9D 



0A9E 
0A9F 
OAAO 



DATA CHAIN SUBROUTINES 
LABL RREQ SREG FUNC SFNC STOR SPSK 



ttttft**!,!,** ALU B •••»••••*••*•* 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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DATA CHAIN SUBROUTINES • 

THIS ROUTINE CHECKS THAT THE OUTBOUND FIFO IS • 

EMPTY, THEN RESTORES THE INSTR POINTER TO MEMORY • 

AND COMPUTES THE ADDRESS OF THE CURRENT DATA • 

CHAIN BLOCK BEING EXECUTED. • 

SEQUENCE AS FOLLOWS * 

l.SP0A:'BCOUNT: CHECK FIFO IF FROM SUSPEND 

2. SAVE <P0INT>-1 IN DRTO ADDRESS. • 

3. INCREMENT <POINT> OVER THE NUMBER OF DATA CHAIN* 

BLOCKS INDICATED IN BITS 8-11 OF 1ST INSTR. & * 

READ THE NEW BCOUNT IN CASE THE OLD' BCOUNT=0.* 

4. IF 'OLD' BCOUNT'O.JSB CHR IF DATA CHAIN-O.OR • 

THE NEW BCOUNT IS ALSO O.WITH ERROR CODE=«E002.* 

5. IF OLD' BCOUNTOO.OR IF DATA CHAIN AND' NEW • 

BCOUNToO.THEN MASK OFF THE MODIFIER BITS 12-15* 

& FORM THE SECONDARY HP-IB CMOS ; SAVE DATA CHAIN* 

BITS IN XR12(A);AND SPIB : • <SWAPPED CRTL> ,WD4 * 



DCH 

CGE2 

CGET 



UBB SP4A ADD 

UB6 CAD 

OPA ADD 

E002 ADDL 

JSB 

OPA JSB 

SP2B INC 

OPA ADD 

CAD 

UBA OPA AND 

INC 

SPOA ADD 



DCJP 
DCER 



RRZ 

XRl 
SWAB XRl 

XRO 



XR2 CFl 
DATA 

SP4A 

UNC 
ZERO 

SP4A R0X3 

SPOA 



NZRO 



SP2B ADD 
JSL 
OOFO RH ANDL 
UBA JSB 
SPIB JSL 
ADD 
CAD 
UBA INC 
RG SP2B ADD 
OPB ADD 
0005 SP28 ADDL 
OOFO OPB ANDL 



PSHR 



CGET 
DCER 



NZRO 
ZERO 



ROUTINE FOR NEXT DATA CHAIN BLOCK 
XRB2:'SP2B + 5 (SET UP IN DCH) 



OPA 
OPA 



ADDL SP4A 

JSB DCER ZERO 

ADD SPOA RSB 



UBB UBA INC 

RREG SREG SUB 

OPB ADD 



RG POPR 
XRIO R0X3 
R0X3 
SPIB SF5B 
XR2 
BKX8 



XRIO R0X3 
R0X3 
SPIB 



CRRY 
RSB 



MODIFIER; <P0INT> 

DRTO :=<P0INT>-1; SUSP IF FROM SUSPEND 

BCOUNT ;DATA CHAIN 

DATA CHAIN ERROR ;CQET IF BCOUNToO; 

UPDATE DATA CHAIN POINTER :DCER IF DC»0 

CHR IF NEW BCOUNT-0; 

READ MJ <P0INT>+1) ,TD/BURST; 

SAVE BCOUNT; READ <P0INT>+2 , <CRTL> 

%OOFF;READ M(<P0INT>-1) 

<BURST LENGTH>&SKIP IF »0 ; <CRTL> , F5B(TLK1 ) 

<BURST LENGTH) IF <>ZERO;NEXT CHAIN <POINT> 

BCOUNT; <SWAPPED CRTL),SF5B FOR TLKl RETURN 



ERROR CODE:READ M( <P0INT>+2 ) , <CRTL> 

DCER IF BC6UNT=0;READ M(<P0INT>-1) FOR DC 

BCOUNT; NEW <CRTL> 
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DATA CHAIN SUBROUTINES 


RECORD 


c s. 




A A A A 


i( A A A A 


• A ALU A AAAAAAA.AAA A A A A A A A A A A A A A ftLU B A A A A A A A A A A A ., A A 


NO 


ADDR 1.ABL 


RREG 


SREG 


FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 


10687 




*•• 


tAAAA 


KAAAA 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


10688 










DATA CHAIN POINTER UPDATE ROUITNE • 


10689 










l.GET THE <ADDR> OF 1ST INSTR FROM <DRTO ADDR> ; • 


10690 










& COMPARE IT WITH THE CURRENT <POINT> * 


10691 










2.IF<DRT0 ADDR> > <POINT>,THEN DATA CHAIN ERROR. * 


10692 










IF<DRT0 AODR> = <POINT>,MASK 1ST WD WITH %FFOF * 


10693 










IF<DRTO ADDR> < <POINT> .DO NOT MASK, THEN IT IS * 


10694 










NOT IN THE FIRST BLOCK, JUST INCREMENT <POINT> « 


10695 










3. IF DATA CHAIN BLOCK LEFT-KOOFO , THEN DATA CHAIN • 


10696 










BITS TOO LARGE, A WITH DATA CHAIN ERROR. 


10697 










4. ELSE, RESTORE THE NEW DATA CHAIN TO 1ST WD OF 


10698 










THE INSTRUCTION. * 


10699 




A * A 


fc A A A A 


k A A A A 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArtA 


10700 


OAAl [>CPU 


E002 




ADDL SP4A SP2B ADD 


10702 


0AA2 






OPA 


ADD R0B3 UBB CAD RG 


10704 


0AA3 






OPA 


ADD WRX3 UBB UBA JSBS DCER NCRY 


10706 


0AA4 




USA 


RG 


XOR NZRO OPB ADD RG 


10708 


0AA5 




FFOF 


UBB 


ANDL RQ OOFO SREG ANDL 


10710 


0AA6 




0010 




ADDL RREG UBB JSBS OCER ZERO 


10712 


0AA7 




UBA 


RG 


ADD DATA ADD RSB 


10714 




AAA 


h A * A A 


H A A A A 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAllA 


10715 










BYTE RESTORE ROUTINE • 


10716 










THIS ROUTINE IS CALLED BY BOTH WBYT AND RBYT, * 


10717 










WHICH USE IT TO UPDATE THE VALUES OF <CRTL> • 


10718 










(TOGGLE THE LEFT/RIGHT BIT ), <BCOUNT> (DECREMENT • 


10719 










BY 1),AND <ADDR>( INCREMENT BY 1 IF Fl , INDICATING • 


10720 










LAST BYTE REFERENCED WAS THE RIGHT BYTE) AND * 


10721 










RESTORE THEM TO MEMORY. ADDRESS ROLL-OVER IS ALSO* 


10722 










CHECKED WITH ERROR CODE %E800. * 


10723 




AAA 


ti A A A A 




AAAAAAAAAAAAAAAAAAAAAAAAAAftAAAAAAAAAAAAAAAAAAAAAAAAAAiTA 


10724 


CAA8 I 


JYRS 


SPOA 




CAD SPOA 0400 SPIB ANDL ZERO 


107:'8 


0AA9 






XRO 


ADD WRX3 RREG SPIB XFRS CFl RSB 


107-. 8 


OAAA 




UBB 


XR12 


XOR DATA RREG ADD LSL PSHR 


10730 


OAAB 




UB8 


SPIBI 


AND NZRO XRO JSBI BYRl XRO NFl 


10732 












10733 


OAAC 






UBB 


ADD SP4A DATA CAD LSL CFl 


10735 


OAAD 


3YR1 


UBB 


XRO 


ADD WRX3 ADD POPR 


10737 


OAAE 




SPOA 




ADD DATA E800 ADDL 


10739 


OAAF 




UBB 




ADD SP4A RSB XRO JSL DCER ZERO 


10741 




AAA 


A A A A A 


A A A A A 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAl^A 


10742 










END OF THE DATA CHAIN BLOCK * 


10743 




A * * 


A A A A A 


A A A A A 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArtA 


10744 


OABO I 


)CJP 




SPIEI 


ADD LSR SPOA SPIB REPN 03 


10746 


OABl 




SPOA 




ADD LSR UBB ADD LSR DCTR CTRO 


10748 


0AB2 




UBA 


UBB 


ADD CRRY E002 ADDL 


10750 


0AB3 




UBB 




ADD SP4A RSB UBA SP2B ADD SP2B R0A3 
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DATA CHAIN ERROR ; <POINT> 

READ 1ST INSTR ;<P0INT>-1(CURRENT POINTER) 

C<POINT> ADDRiDCER IF C<POINT> < CP <POINT> 

SKIP C<POINT>-CP<POINT> ;RG:=DATA CHAIN 

RGfDATA CHAIN (0);DATA CHAIN 

INCR IF NOT IN 1ST BLOCK ;DCER IF DC : =%00F0 

REWRITE NEW DATA CHAIN BITS; RETURN 



BCOUNT-1 ;SKIP IF CRTL(5:1)«0 
WD4 ADDRESS; CFl AND RETURN 
COMPLEMENT CRTL(1:1); %0800, PUSH SUBR STK 
SKIP IF CRTL(4:i)-l; 
XRO:-MEMADDR + 1 , NO WR IF NFl 
SP4A:=MEMADDR + 1, STORE BACK; UBB: =-2, CFl 
WRITE BACK THE BCOUNT ; POP SUBR STK 
M(P0INT-2) :-BCOUNT, ADDR ROLL OVER ERROR 
RETURN; *"" "" "" 



CHR IF ADDR ROLL-OVER 



SHIFT RIGHT;SETUP TO SHIFT RIGHT 4 TIMES 
UBA: -4 X DATA CHAIN ; UBB : =DATA CHAIN X 1 
DATA CHAIN X 5;DATA CHAIN ERR CODE 
ERR CODE (CGE2) ,RETN;READ NEW BCOUNT , <POINT> 
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ERROR RECOVERY 




RECORD 


c.s 




A A * * 


* * * k 


•• ALU A ••••••••«•• ............. ALU B .»**....«..... 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 


10753 




*•*• 


«AA*A 


*«•• 


..•.....•......«....«.....••«.•••«•*.«•.••..««««.««...> 


10754 




• 






ERROR RECOVERY SECTION 


10755 




* * • * 


k * * A * 






10756 


0AB4 


V 




SP2B 


ADD CFl XR27 ADD WRS 


10758 


0AB5 








JSB DCER UNC UBA CAD DATA 


10760 




* * * • 


t A « * « 




aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


10761 




* 






THIS ROUTINE WILL ALLOW TO RELEASE THE HANDSHAKE • 


10762 




* 






AND THE SYSTEM TO PROCEDE NORMALLY FROM POINT OF • 


10763 




* 






LOCKUP(AFTER THE TIMEOUT ABORT INTERRUPT. • 


10764 




* 








10765 




* 






IS LOCKUP, THEN INSTEAD OF CLEARING IT DIRECTLY 


10766 




* 






IT WILL TAKE PHI OFF-LINE TO THE HP-IB, THEN BRING* 


10767 




* 






ONLINE AGAIN BY ASSERTING IFC TO REGAIN CONTROL, • 


10768 




* 








10769 




* « * * 


fc A A A A 


A A A A 




10770 


0AB6 


CHRZ 






ADD JSL IFC UNC 


10772 


0AB7 








ADD RG XR22 JSL lOW SP3B NZRO 


10774 


0AB8 




0069 




ADDL RG XR21 JSL lOW SP3B NZRO 


10776 


0A89 




0080 


XR12 


ADDL RG XR2Z JSL lOW SP3B NZRO 


10778 


OABA 








ADD JSL IFC UNC 


10780 


OABB 








CAD RG XR17 JSL lOW SP3B NZRO 


10782 


OABC 








^ADD JSL CHRX UNC 


10784 




* A * * 


k A A A A 


A A A A 




10785 










IF SUSB IS THE ENTRY POINT OTHER THAN FROM SUSP," 


10786 










F2 WILL BE NORMALLY SET IT IS SUSPENDED FOR • 


10787 










WAITING DATA TO ARRIVE AT THE CHANNEL. • 


10788 










1. IF F2 SET: WRITE REG«3 


«%8D04, • 


10789 










WRITE REG«F 


=%ODgO+DEV«, • 


10790 










SET DRT3(12 


1):=1. 


10791 










2. IF NF2 . WRITE REGI3 


•%8002, 


10792 










WRITE REG»F 


-%0080+DEV«, 


10793 










SET DRT3(13 


1):"1. 


10794 










SAVE CHANNEL PROGRAM POINTER IN DRTO. • 


10795 




* * * * 


» A * « * 


A A A A 


AftAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA* 


10796 


OABD 


susc 






ADD CF2 ADD 


10798 


OABE 


SUSB 




SP2B 


ADD XR27 ADD WRS 


10800 


OABF 








INC LSL RH UBA CAD DATA 


10802 


OACO 




UBA 


XR14 




10804 


OACl 




RREG 


UBA 


ADD RG XR18 JSL lOW SP3B NZRO 


10806 


0AC2 




0080 


XR6 


ADDL RG XR30 JSL lOW SP3B NZRO 


10808 


0AC3 




EOOO 


XR4 


ANDL XR28 ADD WRS F2 


10810 


0AC4 








ADD UBA SPIB ADD DATA UNC 


10812 


0AC5 








ADD UBB SPIB ADD DATA 


10814 


0AC6 








ADD 


JSL CPEX UNC 
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<POINT> ;DRT0 ADDRESS 
DCER;M(<DRTADR0>) :-<POINT>- 



ASSERT IFC TO CLEAR HP-IB 

TAKE PHI OFFLINE 

SELECT POLL REO , REN , PARITY , CLEAR FIFO 

GET ONLINE AND ENABLE CRC 

ASSERT IFC TO REGAIN CONTROL AS CIC 

CLEAR PHI INTERRUPTS 

ALLOW CSRO ONLY FOR PPOLL OR STATUS CHG 



CF2; 

<POINT> ;DRTO AS ADDR 
%0002;DRTO:=<POINT>-1 
IF NF2, WRITE TO REG«3 : •%8002 ;%0004 
IF F2, WRITE TO REG«3 : «%8004 ; 
WRITE REQtF: -%0080+DEV« 
MASK DRT3(0:3) ;DRT3 AS ADDR, SKIP IF F2 
:M( <DRT3>) :>DRT3(0:3)+%0004 IF NF2 
:M( <DRT3> ) : =DRT3(0:3)+%0008 IF F2 
EXIT CHANNEL PROGRAM 



NO 

10817 
10818 
10819 
10820 
10821 
10822 
10823 
10824 
10825 
10826 
10827 
10828 
106?f5 
10^:iO 
1 .-. ! 1 
ICrtj': 

lOi'n 

1 ■-■: :.; 4 
108'!'; 

loaie 

1083/ 

108:; R 

10839 
10840 
10341 
10842 
10843 
10844 
10845 
10846 
10847 
10848 
10849 
10850 
10852 
10854 
10856 
10857 
10858 
10860 
10862 
10864 
10866 
10868 
10870 
10872 
10874 
10876 
10878 
10880 
10882 
10884 
10336 
10338 
108^)0 
10892 



ENTRY POINT FOR CHANNEL PROGRAM 
C S. ..*«.•«.«,.. ALU A ..»...«.*.« •.»....«<,.... ALU B •••**••••«•«•« 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



START OF THE CHANNEL PROGRAM- - 

1. SEND OUT SP0LL2 TO DETERMINE THE CHANNEL(S) REQUESTING 
THE SERVICE. 

2. «CHCK TO CHECK IF CHANNELS REQUESTS SERVICE; THIS IS 
MAINLY FOR RUNNING THE DIAGNOSTICS WITH ADCC . 

3. DO ROUND-ROBIN ON THE SP0LL2 RESPONSE AND THE CHANNEL 
NUMBER LAST SERVICED IN XRA127 

4. ISSUE OBSI COMMAND TO THE CHANNEL, TO OBTAIN THE TYPE 
OF SERVICE REQUEST. 

5. READ REG« 1 TO DETERMINE IF THE CHANNEL IS CONTROLLER- 
IN-CHARGE; IF NOT PROCEED AS NORMAL CHANNEL PROGRAM 

6. IF CONTROLLER-IN-CHARGE CHECK IF THE OBSI RESPONSE IS 
CHANNEL REQUEST ( DMA COMPLETION ); IF TRUE PROCEED AS 
NORMAL CHANNEL PROGRAM 

7. IF NOT ( DEV REQ ). ENABLE THE PHI INTERRUPT MASK BY 
WRITING I7FFF TO REG« 3. 

8 DO ANOTHER OBSI TO DETERMINE IF THERE IS A TRUE SERVICE 
REQUEST FOR THE DEV« FROM THE PREVIOUS OBSI. 

9. IF OBSI '2. (8:11 = 0, A TRUE REQUEST, SET BIT MASK FOR 
THE DEVICES; OTHERWISE IGNORE IT. 

10. READ REG« FOR THE PPOLL RESPONSE i 'OR' IT WITH THE 
DEV BIT MASK IF ANY. 

11. READ REG« B FOR THE DEV# LAST SERVICED; DO ROUND-ROBIN 
AND DETERMINE THE NEXT DEV» TO BE SERVICED 

12. PROCEED WITH THE NORMAL CHANNEL PROGRAM WITH 

RG • OBSI RESPONSE 
BKX5 « CHANNEL DEVICE 
CTR . REGN POINTER AT LAST CHANNEL SERVICED 
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0AC7 
0AC8 
0AC9 



OACA 
OACB 
OACC 
OACD 
OACE 
OACF 
OADO 
OADl 
0AD2 
0AD3 
0AD4 
0AD5 
0AO6 
0AD7 
0AD8 
0AD9 
OADA 
OADB 



CSRQ DOFF 



ADDL 
ADD 
OOOF REGN ANDL 



USA 



UBB 
OOFF 
0100 
0200 

0010 
SPOA 



SPOA 
000 7 



RG 
UBA 



ADD 
ADO 
ADD 
ADDL 
ADD 
CSL 
ADD 
ADDL 
ADDL 
RG ANDL 
RG ADD 
RG ANDL 
ADD 
CAD 
XR12 ADD 
ADD 
ADD 
RO ANDL 







EOOO 




ADDL 




SP3B 








SFl 




UBA 


JSL 


lOR 


CTR 




UNC 


RH 






BNKS 


JSL 


CKCH 


XR15 




UNC 


XR14 


FIHB 




RH 


ADD 




CTR 


CCTX 




XR12 






RG 


REPC 






DCTR 


CTRO 








UBB 


CSL 




RG 


DCTR 


CTRO 


RH 


CF2 




RH 


ADD 
REPC 




CTR 


CFbB 






HBF2 


RH 
4000 


CTRS 


AND 
ADDL 




SP3B 


ICTR 


F2 






UBA 


UBA 


ADD 


LSL 


BKX5 






SP4A 






UBA 


JSL 


I OR 


CTR 




UNC 


SP4A 




RG 




ADD 


RRZ 


BKX5 






SPOA 




1300 


SP4A 


JSL 
ADDL 


lOR 


SP3B 
SP3B 




NZRO 


RG 






UBA 
SP4A 


JSL 
JSL 


PAUL 
PAUL 






ZERO 
ZERO 


SP4A 






UBA 


JSL 


lOR 


RG 




UNC 








SP4A 


JSL 


lOR 


SP3B 




NZRO 






RG 




ADD 


SWAB 






NEG 


SP4A 








JSL 


OB SO 






ZERO 



GET THE CHAN« LAST SERVICED; SP0LL2 CMD 

SFl; SEND SP0LL2 CMD, REGN fl CHAN» 

CHAN* LAST SERVICED; «CPEX IF NO CHAN REQ 

«CKCH FOR ADCC ONLY; SHOULD ALWAYS BE 

CHAN* 1, SAVE S-BANK 
18000; SET UP CTR FOR LAST CHANNEL SERVICED 
XRA12:- 14000; REPEAT LOOP LAST CHAN SERVICED 
; CIRCULAR SHIFT LEFT THE CHAN JUST SERV 
RH:-!F; SET UP CTR 

REPEAT LOOP FOR NEXT CHANNEL TO BE SERVICED 
, SKIP IF F2 

SHIFT CHANNEL*; OBSI CMD 
MASK, CHAN* IN BITS 9-12 

; SEND OBSI, SET CTR TO SAVE CHAN* IF «PAUL 
CHECK DEV REQ; CHAN* 
SAVE OBSI RESPONSE, READ REG* 1 
MASK CIC; WRITE REG* 3 
RESTORE OBSI; »PAUL IF NON-CIC 
I7FFF, *PAUL IF DEV REQ 
4000; WRITE REG«3:=7FFF 
; DO ANOTHER OBSI 

RESTORE 'OLD' OBSI RESP; SKIP IF BIT 8 SET 
RESTORE OLD' OBSI RESPONSE 
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RECORD 

NO 

10894 
10896 
10898 
10900 
10902 
10904 
10906 
10908 
10909 
10910 
10912 
10913 
10914 
10915 
10917 
10919 
10921 
10923 
10925 
10927 
10929 
10931 
10933 
10935 
10937 
10939 
10941 
10043 
10945 
10947 
10949 



C S 
AODR 

OADC 
OADD 
OADE 
OADF 
OAEO 
OAEl 
0AE2 
0AE3 
0AE4 
0AE5 
0AE6 
0AE7 
0AE8 
0AE9 
OAEA 
OAEB 
OAEC 
OAED 
OAEE 
OAEF 
OAFO 
OAFl 
0AF2 
OAF 3 
0AF4 
OAFS 
0AF6 
0AF7 
OAF 8 
0AF9 
OAFA 



ENTRY POINT FDR CHANNEL PROGRAM 

• •<,•••••••* ALU A *••••***••• ..»«..»..«••• ALU B ••*»*•«•*****• 

LABL RREQ SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



OOFF 
OBSR RG 

SPOA 
OBOO 



RQ 



UBB 
UBA 



SPIB 
UBA 



007 8 
0200 



RH 
UBB 



0040 
0071 



SPOA 
0071 



RG 
UBB 

UBB 
XR12 

XR6 

XR12 

XR12 

XR12 

XR12 

XR12 



ADDL 

ADD RRZ 

ADD 

ADDL 

ADD 

ADD 

ADD 

ADD 

ADD 

ADO 

CSL 

ADD 

ADD 

ANDL 

ADD 

lORL 

ADD 

ADD 

ADD RRZ 

lOR RG 

ADD 

JSB FCHL 



CF2 
HBF2 



RQ 



ADDL 
ADD 
ADDL 
ADDL 

ADD LSL 
ADD 
ADDL 
INC LSL 
JSB FCHL 



RQ 

SPOA 

RG 

RG 

RG 

RG 

RG 



RG 
UBA 



0007 
UBA 

FFF8 

OOFF 
UBA 



1000 
RH 



UBB 

SP4A 

UBA 

RG 

SPIB 

UBB 

BKX5 

CTRS 
UBB 

CTRS 

SP4A 

REGN 

OPB 
SP2B 



JSL 

ADD 

lOR 

JSL 

JSL 

ANDL 

REPC 

CSL 

CAD 

REPC 

ADD 

ADDL 

ADD 

ADDL 

lOR 

JSL 

SUBL 

JSL 

ADD 

JSL 

ANDL 

ADD 

JSL 

JSL 

ADD 

JSL 

JSL 

JSL 

JSL 

JSL 

ADD 



lOR SP38 
RLZ 

SPIB 
PAUL CTR 
lOR SP3B 

CTR 

DCTR 

SPIB DCTR 

CTR 

RH 

ICTR 

CTR 
CTR 
BKX5 



NZRO 

UNC 

NZRO 

CTRO 
CTRO 



F2 
NEQ 



CTR 
SP3B 



SP2B 
lOW SP3B 
lOR SP3B 

low SP3B 
low SP3B 



low 
low 
low 



UNC 

ZERO 

ZERO 



ZERO 

NZRO 

POS 

ZERO 

ZERO 

UNC 

UNC 

UNC 
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COMMENT 

MASK; READ REQt 

PPOLL MASK 

RESTORE OBSI; «PAUL IF NO PPOLL RESPONSE 

REQt B; tPAUL IF NO PPOLL, SET CTR (XRA127) 

; READ REQtB 

; MASK LAST DEV* SERVICED 

; REPEAT LOOP 



: CHAN DEV* 



MASK CHANt; REQN POINTER 
; CHAN DEV* 

SETUP AS CHAN REO; START CHANNEL PROGRAM 
; MASK BIT 
; READ REG* 
PPOLL RESPONSE 

DEV BIT MASK FOR ROUND-ROBIN 
MASK <CRTL>{3:1) 

»FCHL IF NOT CRC SEND; UPDATE POINTER 
REG* :» I405E 
READ REG* 7 

SPOA :■ 14040; SKIP IF CRC DISABLED 
REG* :■ 14071 
REG* :« 18000 
REG* :• 14040 + DEV* 
REG* :- 14071 
REG* :« 18002 
FETCH NEXT INSTRUCTION 
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RECORD 


C S. 




NO 


ADDR 


LABL 


10952 




<,.«., 


10953 




* 


10954 




* 


10955 




* 


10956 




* * * * 1 


10957 


OAFB 


TCSQ 


10959 


OAFC 




10961 






10962 


OAFD 




10964 


OAFE 




10966 


OAFF 





CSRO Measurement Routine 

i,*.««ii<..«>), ALU A «•*••«•«*•• «•*.»««.•««.. ALU B •*«••«••••«••* 
LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUlllC SFNC STOR SPEC SKIP 



CSRO Measurement Routine 



JSZ 
ADD 

REGN INC 
ADD 
ADD 



UNC 00A4 



ADDL SP2B 
ADD 

REGN LINK REGN 
JSB CSRO CTR 
ADD 
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Add to normal execution count 

Wait 1 clock to avoid XR store/read conflict 

•TIME returns w/ CTR « A5 
Increment t of CSRQ's (XR37) 
; JSB to handle CSRQ, CTR ;• 
NOP to keep system happy (2555) 
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RECORD 


C S. 


NO 


ADDR 


10969 




10970 




10971 




10972 




10973 




10974 




10975 




10976 




10977 


OBOO 


10978 


OBOl 


10979 


0B02 


10980 


0803 


10981 


0B04 


10982 


0B05 


10983 


0B06 


10984 


0B07 


10985 


0B08 


10986 


0B09 


10987 


OBOA 


10988 


OBOB 


10989 


OBOC 


10990 


OBOD 


10991 


OBOE 


10992 


OBOF 


10993 


OBIO 


10994 


0611 


10995 


0B12 


10996 


0B13 


10997 


0614 


10998 


0B15 


10999 


0616 


11000 


0B17 


11001 


0618 


11002 


0619 


11003 


OBIA 


11004 


0616 


11005 


061C 


11006 


OBID 


11007 


061E 


11008 


OBIF 



MPL Reserved Area 

••«•«****•• ALU A .•.*...«... 

LABL RREG SREG FUNC SFNC STOR SPSK 



*»»tktttt»ttt ALU B «••*■*•**••••* 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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!0B00-!0B1F is reserved for MPL 



0001 


0002 


000? 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 



CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
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RECORD 


C.S. 


NO 


ADDR 


11010 




11011 




11012 




11013 




11014 




11015 




11016 




11017 




11018 




11019 




11020 




11021 




11022 




11023 




11024 




11025 




11026 




11027 




11028 


0B20 


11030 


0821 


11032 


0B22 


11034 


0B23 


11036 


0824 


11038 


0B25 


11040 


0B26 


11042 


0827 


11044 


0828 


11046 


0829 


11048 


0B2A 


11050 


0B2B 


11052 




11053 


0B2C 


11055 


082D 


11057 




11058 




11059 


0B2E 



IMB Message Routine 
LABL RREG SREG FUNC SFNC STOR SPSK 



1M8 Message routine 
Ent ry 



• .«•...,.*.<. I,* ALU B *••«•••««««••« 
RREG SREG FUNC SFNC STOR SPEC SKIP 



send 32 bit msg to lOA 
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XR9.(10:3) = TO code of desired lOA 

F4 = skip error checks 

SP3B = read/write * GIC reg number 

BKX5 = CDEV » 

RG = lower 16 bits of message 

(upper 16 bits of msg « SP3B lOR BKX5) 

RG = lower 16 bits of returned msg 
BKX4, XROB destroyed 



0282 XRg 
RG 



0401 
OOID 



INC 

lORL 

ADD 

JSZ MSTO 

ADD 

JSB WFMS 

ADDL 

INC 

ADDL 

ADD 

ADDL 

ADD 

ADD 
CAD 





SP38 


BKX5 


I OR 




BKX4 


PSHR 






RG 




ADD 






WRX4 






UBA 




ADD 






BUSC 




ZERO 


0C02 




ADDL 




XRO 






MSG I 


RG 




JSBI 


•-1 


RG 




MESS 


UNC 


RG 


XRO 


JSZI 
ADD 


MR TO 


RG 


BUSC 


ZERO 




UBA 




ADD 






CCPX 


F4B 




UBA 


OPB 


JSZC 


INVM 






NZRO 




UBA 




INC 






BUSC 






RREG 




ADD 


LSL 




BUSC 






UBA 


OPS 


AND 




RQ 


POPR 


NZRO 


ZERO 




OPB 


ADD 




RG 






CCA 


OOIC 


RG 


ANDL 








F4H 



UBB JSZ lOEE 



Setup timer; 6KX4 :• message command 
Put module* in command word; Data if write 
Send control message, ignore busy 
MSTO IF TIMEOUT ;REC FROM CMD 
SKIP IF MSG RECEIVED, LOOP IF MESS NOT SENT 
LOOP IF NOT TIMEOUT ;MRTO IF MSG NOT RECEIVED 
Mask to clear MSGINT; Read FROM code 
UBA :» M0D«+1: Clear MSGINT, skip if FLUSH 
REC UPPER WD CMD; INVM IF INCORRECT MOD« 
REC UPPER WD 
MASK; REC LOWER WO 

MASK I/O ERRORS & SKIP IF NOT ZERO 
RG WILL CONTAIN I/O INFO (2635) 

SKIP IF I/O ERRORS:LOWER WD 
SET CCL IF I/O ERRORS ;MASK ERRORS 
SKIP ERROR CHECK IF COMING FROM FLUSH INSTR . 
CHANGED SREGB TO RG . (2635) 

Return or »IOEE for I/O errors 
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RECORD 

NO 

H06Z 
11063 
11064 
11065 
11066 
11067 
11068 
11069 
11070 
11071 
11072 
11073 
11074 
11075 
11076 
11077 
11078 
11079 
11080 
11081 
11083 
11085 
11087 
11089 
11090 
11092 
11093 
1109S 
11097 
11099 
11100 
11102 
11104 
11106 
11107 
11109 



C.S 
ADDR 



0B2F 
0B30 
0B31 
0B32 

0633 

0B34 
0B35 
0836 

0B37 
0B38 
0B39 

0B3A 
0B3B 



Extended Floating Point Instructioni 

It*.******** ALU I ••••••••••a •>••«••••••>• ALU B «••»••*••••••• 

LABL RREG SRE6 FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



64-Blt Extended Floating Point Instructions 
Format of a 64-bit floating point number. 
10 11-91 10-63 

I S I EXP I MAN 
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S 

EXP 

MAN 



Sign bit 
exponent , 
mantissa, 



9 bits 
54 bits 



SLUT INSTR-EXFP.O 010 000 100 OOx xxx, ENTRY. EXFP 



EXFP 0007 CIR 
UBA UBB 
UBB CIR 



0003 
0004 



ANDL 
ADD 
AND 
INC 



ADD 
ADD 
ADD 

ADD 

ADDL 

ADDL 

ADD 
ADD 



WRD 
RAR 



ETBL 
0008 



XR8 RSB 8000 



SFl 
SF3A 



SPOA 
SPOA 



ADDL LBL 

ADDL 

ADD 

JSZ TRP 

ADDL XR8 

JS8 EBND 
JSB EBND 
JSB EBND XR3 

JSB EBND 
JSB ENEG 
JSB ECMP SPIB 



JSZ 
JSZ 



TRP 
TRP 



UNC 
UNC 
UNC 

UNC 
UNC 
UNC 

UNC 
UNC 



UBA :• CIR. (13:3); UBB :« address of jmp tbl 
YRA :« Jump target; UBB := bit 12 
UBA :• bit 12, RAR :• lump target from YRA 
UBA :• 1; If CIR. (12:1) - then old 3 word 

EFP instr, so Jump to unimplemented trap 
XRA8 :• %100000, RSB to jump table entry; 

VDD« .. xiooOOO 



XRB8 



Ext Floating Point Add (EADD), set Fl 

Ext Fit Point Subtract (ESUB). set F3 

Ext Fit Point Multiply (EMPY) 

Save Z in XRB3, (Z used by »EMPY as scr) 

Ext Fit Point Divide (EDIV) 

Ext Fit Point Negate (ENEG), SPOA :« 3 

Ext Fit Point Compare (ECMP), SPOA :- 4; 

SPIB :. 

Unimplemented instruction 

Unimplemented instruction 
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RECORD 

NO 

11112 
11113 
11114 
11115 
11116 
11117 
11118 
11119 
11120 
11121 
11122 
11123 
11124 
11125 
11126 
11127 
11128 
11129 
11130 
11131 
11132 
11133 
11134 
11136 
11138 
11139 
11140 
11142 
11144 
11146 
11148 
11150 



C S 
ADDR 



DB3C 
0E13D 



0B3E 
0B3F 
0B40 
0B41 
0B42 



Bounds checking routine for EADD ,ESUB ,EMPY ,EDIV 

.....*..... ALU A •«•««••»••• ............. ALU B ««.*.......... 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 



Called before doing EADD, ESUB. EMPY and EDIV. 
Bounds check operands ( U and V ) and result ( W ) 
Also adjusts and empties TOS registers. 

Entered with : 

RA " operand-2 adr (V) (DB+ relative) 

RB ■ operand-1 adr JU) 

RC - result adr (W) 

XRA3 ■ 2 (for SR check) 

Bounds checking for U,V,W is; E >» DL and E+3 <= 5 
(the latter check prevents using the stacked 
addresses themselves as operands.) 

Exits with RA.RB • V.U absolute addresses, 
stack emptied so all TOS can be used as scratch, 
SR ' 0, CTR c and XRA3 • W absolute address. 
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EBND 0003 

RA DB 



RC 
RA 
RB 



DB 
DL 
DB 



UBA DL 
RH DL 



ADDL 
ADD 



ADD 

BNDE 

ADD 

BNDE 

BNDE 



RH 
RA 



XR3 
RB 



FFFD 


SM 


ADDL 


RC 


DB 


ADD 


SP3B 


RA 


BNDE 


SP3B 


UBA 


BNDE 


SP3B 


RH 


BNDE 



JSL ADJS NF2 

ADD CTR CLO 



SP3B 
RH 



Adjust 41 valid TOS to 3; Slow down jump 
RA :■ V abs adr, CTR := 
CLEAR OVERFLOW BEFORE GOING TO EADD (2635) 
ESUB, EDIV OR EMPY. (2635 

XRA3 :■= W abs adr; SP3B ;= S - 6 (SR = 3) 
BNDV if abs(V) < DL; RH :> W abs adr 
RB ;• U abs adr; BNDV if abs(V) + 3 > SM - 3 
BNDV if abs(U) < DL or abs(U) + 3 > SM - 3 
BNDV if abs(W) < DL or abs(W) + 3 > SM - 3 , 
SR .« ESR :• 
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RECORD 

NO 

11152 
11153 
11154 
11155 
11156 
11157 
11158 
11159 
11160 
11161 
11162 
11163 
11164 
11165 
11166 
11167 
11169 
11171 
11173 
11175 
11177 
11179 
11181 
11183 
11185 
11187 
11189 
11190 
11191 
11192 
11193 
11194 
11196 
11198 
11199 
11201 
11202 
11204 
11205 
11207 
11209 



C S 
ADDR 



0B43 
0B44 
0B45 
0B46 
0B47 
0B48 
0B49 
0B4A 
0B4B 
0B4C 
0B4D 



0B4E 
0B4F 



0B50 
0B51 



OB52 
0B53 



Fetch Routine tor EADD, ESUB, EMPY , EDIV 

....*•.*..• ALU ft *......>••« ....*.*...... ALU B •••*«*«••••»*• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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Used by EADD, ESUB, EMPY and EDIV to fetch operands 
and split up signs, exponents and mantissa. 

V and U absolute 



Entered from «EBND with RA.RB 
addresses and CTR « 0. 

Fetches V0,V1,V2,V3 and places them into RA,RB,RC,RD; 
U0,U1,U2,U3 and places them into RE,RF,RG,RH. 

Exits with SP4A > if V • +-0, SPIB • if U ■ +- 0. 



RA 



ADD 

ADD 

OPA ADD 

UBA SP28 AND 

0003 ADDL 

BNDL SPOA INC 

FFFF XRO ADDL 

OPA ADD 
UBA SP4A lOR 

XRO JSB BNDL 



SPOA ROD 7FFF 



REGN 

SP4A 

XRO 

SPOA ROD 

XRO 

REGN 

SP4A 



ADDL 
ADD 
0004 ADDL 

OPB ADD 
UBB SP2B AND 
FFFD CTRS ADDL 
SP3B INC 
0004 CTRS ADDL 
OPB ADD 



NZRO UBB SPIB lOR 



F3A 



SP2B 

SP3B ROD 

CTR 

REGN 

SPIB 

CTR 

SP3B ROD 

CTR 

REGN 

SPIB 



UBB JSB EADD SP3B 



Split mantissa from sign and exponent; insert leading '1' 



XRAO 



sign, exp(V); XRBO 



EFC3 003F RA 
0040 UBA 



FFCO RA 
X 



ANDL 
lORL 



ANDL 
ADD 



ADD 
JSB 



Sign, exp(U), save X register 



RE 
XRO 



RA 




003F 
0040 


RE 
UBB 


ANDL 
lORL 


XRO 






UBB 


ADD 


XRl 


CFl 


FFCO 


RE 


ANDL 




ODD 




XRO 


ADD 
ADD 



NFl 
RSB 



COMMENT 



SPOA := abs(V), read; SP2B := mask for -0 

; SP3B := abs(U), read 

Store VO in RA; CTR ;= 4 

SP4A :■ VO w/o sign bit; Store UO in RE 

XRAO .« loop count- SPIB :- UO w/o sign bit 

Inc V pt r , read; CTR :- CTR - 3 

Decrement loop counter; Inc U ptr, read 

Store Vx in TOS; CTR : « CTR + 4 

Or in Vx for zero check; Store Ux in TOS 

If XRAO ■ then done; Or in Ux for zero chk 

if Fl then EADD else if F3 then ESUB 

else break up into partial products 

SP3B ;• U zero check word 



UBA :■ mantissa of V; UBB := mantissa of U 
RA :• man(V) w/ leading 1; 

UBB :> man(U) w/ leading 1 
XROA : • sign & exp of V, 

RE := man(U) w/ leading 1 
Save X in XRAl. clear Fl; XRBO := sign & 

exp(U), skip if not from EADD. ESUB 
; Return if from EADD, ESUB 
JSB if EDIV else fall thru to EMPY 
SP2B <- SIGN ,EXP (U) (2635) 
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RECORD C S. «..»»»«...» /^LU A ••«••*•*••• *..»«.*«.(,..* /^lU B ••••*•«•••<.**» 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

11211 »*»««*.*»«•»«»••«.»**«*»«.«*«...•..»»•*«».«*«»«*.*..«««»«..*«***»•.*. 

11212 « • 

11213 • EMPY -- W := U • V * 

11214 • « 

11215 • V = RA,RB,RC,RD (VI = RA.RB; V2 = RC , RD ) * 

11216 • U = RE,RF,RG,RH (Ul = RE.RF; U2 = RG.RH) • 
1 1 n 7 • * 
1U'18 * The partial products will be summed into XRIO, XRll, X and Z. * 
11219 * XR4 will contain 8 guard bits (for normalization and rounding.) * 
112^0 « • 

11221 * The following diagram shows the relationships between the partial* 

11222 • products and how they are summed into the above registers to * 

11223 • produce the result (W) There are 4 multiplies done and their * 

11224 • products will be on USA, UBB , SPOA and SP3B (Each group shown • 

11225 * represents the contents of one of these registers). The notation* 

11226 * to the left of each partial is the naming convention used to * 

11227 • designate each 16-bit part of that partial, * 

11228 • • 

11229 • V1*U1*2**64 OOXX XXXX XXXX XXOO A0,A1,A2,A3 * 

11230 * V1*U2*2*«32 + XXXX XXXX XXXX XXOO B0,B1,B2,B3 • 

11231 • U1*V2*2**32 + XXXX XXXX XXXX XXOO C0,C1,C2,C3 * 

11232 • U2*V2 + XX XXXX XXXX XXXX XX D0,D1,D2,D3 • 

11233 • ( DD DDOD DDDD DDDD DD ) * 

11234 • ( 00 0011 1122 2233 33 ) • 

11235 * * 

11236 • RESULT OOWW WWWW WWWW WWW GGxx W0.W1,W2,W3 * 

11237 * * 

11238 * After producinq each partial, it will be summed into a 64-bit • 

11239 * 'pseudo-accumulator' using two 32-bit additions. The guard bits * 

11240 * are l<ept in XRA4 . XRAIO, XRBll, X and Z forms the accumulator. • 

11241 « Upon completion W0= XRAIO, Wl » XRBll, W2 = X and W3 » Z . • 

11242 • * 

11243 • The algorithm is: • 

11244 • * 

11245 * 1. Form Vl*iJl << form A >> 

11246 • 1.1 XRIO, XRll, SPOA. SP3B := UBA , UBB , SPOA , SP3B • 

11247 • ; W0,W1,W2,W3 := A0,A1,A2,A3 * 

11248 * 2. Form V1*U2 • 

11249 * 2.1 X,Z := X,Z + UBA , UBB ; sum B0,B1 into W2,W3 • 

11250 * 2.2 XRIO, XRll :» XRIO, XRll + carry from 2 1 • 

11251 * ; propagate carry to W0,W1 * 

11252 * 2.3 XR4 :• SPOA ; first guard bils are B2 

11253 * • 

11254 * 3 Form U1*V2 * 

11255 • 3.1 X,Z := X,Z + UBA , UBB ; sum 00,01 into W2,W3 « 

11256 • 3.2 XRIO, XRll := XRIO, XRll + carry from 3.1 • 

11257 • ; propagate carry to W0,W1 * 

11258 « 3.3 XR4 :• XR4 + SPOA ; sum 02 into guard * 

11259 * 3 4 if carry from 3.3 then increment GORY • 
il260 * ; carry from guard handled later * 

11261 • 4 Form V2*U2 * 

11262 • 4 1 X,Z = X.Z + LRZ(UBA) ; sum msbyte DO into W2,W3 * 

11263 ' 4 2 XRIO, XRll = XRIO. XRll + carry from 4 1 • 

11264 * ; propagate carry to WO.Wl • 
11?65 « 4 3 XR4 := /.F/l + RLZ(UBA) ; sum Isbyte DO into (juard • 
11266 * 4 4 If carry ' rom 4 ? then increment GCRY * 
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RECORD 


C.S 


NO 


ADDR 


11267 




11268 




11269 




11270 




11271 


0B54 


11273 




11274 


0B55 


11276 


0B56 


11278 


0B67 


U280 


0B58 


11282 


0B59 


11284 




11285 


0B5A 


11287 


0B5B 


11289 


OB'iC 


11291 


0B5D 


11293 


0B5E 


11295 


0B5F 


11297 




11298 


0B60 


11300 


0B61 


11302 


0B62 


11304 


0B63 


11306 


0664 


11308 


0B65 


11310 


0B66 


11312 




11313 




11314 


0867 


11316 




11317 


OB6 8 


11319 


0B69 


11321 


0B6A 


11323 


0B6B 


11325 


0B6C 


11327 




11328 


0B6D 


11330 




11331 


0B6E 


11333 




11334 




11335 


0B6F 


11337 


0B70 


11339 




11340 




11341 




11342 




11343 




11344 


0B71 


11346 




11347 


0B72 


11349 


0B73 


11351 


0B74 


11353 




11354 


0B75 



Extended Floating Point Multiply instruction 

••*••*"••• ALU A ••••••••«•• 4... ......... ftLU B .......**.»*.. 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP CONWENT 
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XR10,XR11,X,Z 



; carry f rom guard 
:• XRlO.XRll.X.Z + GORY 





SP4A 


JSB 


EZRO ZERO 




SPIB 


JSB 








do 


partial 'A' 


-. 


VI • Ul 




RB 


ADD 
ADD 




SP4A 
SPOA 




RA 


ADD 
REPN 


RE 


UBA 


MPAD 






RF 


UBB 


LINK 




UBA 


ADD 




XRIO 




UBB 


ADD 


SPOA 




ADD 




X 


SP3B 


ADD 








do 


part ial 'B ' 


-- 


VI • U2 




RB 


ADD 

ADD 




SP4A 
SPOA 




RA 


ADD 
REPN 


RG 


UBA 


MPAD 






RH 


UBB 


LINK 


X 


UBA 


ADD 




X CTFl 


Z 


UBB 


LINK 




XRIO 


ADD 




XRIO FITC 




XRU 


LINK 


SPOA 




ADD 




XR4 






ADD 








do 


partial C ' 


-- 


V2 • Ul 




RF 


ADD 
ADD 




SP4A 
SPOA 




RE 


ADD 
REPN 


RC 


UBA 


MPAD 






RD 


UBB 


LINK 


X 


UBA 


ADD 




X CTFl 


Z 


UBA 


LINK 




XRIO 


ADD 
ADD 




XRIO FITC 




XRll 


LINK 
ADD 


SPOA 


XR4 


ADD 




XR4 CTFl 




RG 


ADD 








do partial D' 


-- 


U2 • ' 


V2 




RH 


ADD 
ADD 




SP4A FITC 
SPOA 




XRg 


LINK 
REPN 


RC 


UBA 
UBA 


MPAD 
ADD 






RD 


UBB 


LINK 
ADD 




UBA 


ADD 


RLZ 






UBA 


ADD 


USA 


XR4 


ADD 




SPAA CTFl 




XR9 


ADD 




UBB 


ADD 




FITC 




XR3 


ADD 






ADD 






Z 


UBA 


LINK 


X 


UBA 


ADD 




SPOA CTFl 


UBB RH 


LINK 




XRIO 


ADD 




RA FITC 




XRll 


LINK 



ZERO Result is if either V or U 



XRll 
Z 



Z 
XRll 



SP3B 
XR9 



Z 

XRll 



0017 
CTRO 



0017 
CTRO 



0017 
CTRO 



OOIF 
CTRO 



At this point W is contained in RA , SPIB. 
with 8 guard bits in SP4A. Now we fig 



and exponent of 

XRl ADD 

XRO ADD 
UBA UBB ADD 
UBB XRO XOR 



SP3B 
SPIB 



SPOA and SP4A 
out the sign 



W and go off to normalize and finish. 



CFl 

FIHB 

HBF2 



CTR CCTX 



7FFF XRO 

XRO 

C080 UBA 



ANDL 

ADD 

ADDL 

JSB ENRM 



Multiplier ;• VI 

SPOA :' 0; Repeat next line 24 times 

Do VI • Ul 

XRAIO.XRBU :• AO.Al 

X,Z :- A2,A3 

Multiplier • VI 

SPOA :■ 0; Repeat next line 24 times 

Do VI • U2 

Sum BO.Bl into W2.W3 

.. and propogate carry into WO.Wl 
XRA4 :' B2 

Multiplier :• Ul 

SP0A;=XRB9:«0 (for QCRY), rept next 24 times 

Do V2 • Ul 

Sum CO, CI into W2,W3 

... and propogate carry into WO.Wl 
Wait for extended register to be available 
XRA4 (GRD) :- XRA4 + C2 , set Fl if carry; 

MSmultiplier :• MS U2 
LSmultiplier :« LS U2 ; If carry from guard 

then increment GORY 
SPOA :• 0; Repeat next line 32 times 
Do U2 • V2 

All we need from this MPY is UBA (AO) 
UBA. (0:8) :• AO.(8:8): RH.(8:8) :- A0.(0:8) 
Sum ms (AO) into guard, set Fl if carry, 

UBB :• GCRY 
If carry from guard then increment GCRY; 

Restore Z register 
; UBB :« W3 + GCRY. Link so that if a carry 

is produced UBA will > 1, (else 0) and 

subsequently be added to WZ 
SP0A,SP3B :■ W2,W3 + Is (AO) + GCRY 
. and propogate carry to WO.Wl 



Restore X register, clear Fl; 

CTR : = CTX : ■= (for SENRM) 
UBA ;= exp(V) ; UBB : = exp(U) 
UBA :- exp(W) (+512); UBB := sign.exp(U) 
F2 = Eign(Wl ( sign(V) XOR sign(U) ); 

UBB := (exp[W)+5l2) - (256/2) + extras 
XRAO := exp(W), Go normalize it 
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RECORD 


C.S. 


NO 


ADDR 


11357 




11358 




11359 




11360 




11361 




11362 




11363 




11364 




11365 




11366 




11367 




11368 


0B76 


11370 




11371 




11372 




11373 


OB77 


11374 


OB78 


11375 


0879 


11376 


0B7A 


11377 


0B7B 


11378 


0B7C 


11379 


OBTD 


11381 


0B7E 


11382 


0B7F 


11383 


0B80 


11384 


0B81 


11386 


0B82 


11387 


0B«3 


11388 




11389 




11390 




11391 


OB 8 4 


11392 


0B85 


11393 


0886 


11395 


0B8 7 


11397 


OB8 8 


11399 




11400 




11401 




11402 




11403 


OB 8 9 


11404 


Of! 8 A 


11405 


0B8B 


11406 


0B8C 


11407 


ODliD 


11408 


0B8E 


11410 




11411 




11412 




11413 




11414 




11415 




11416 


0B3F 


11417 


0890 


11418 


0B91 


11419 





Extended Floatin 

•......•.A. ALU A **•«•••«»•• 

LABL RREG SREG FUNC SFNC STOR SPSK 



U / V 



Point Divide instruction 

<,»...»..... ,»*««.«..,•», ALU B «•••*»•••••• 

RREG SREQ FUNC SFNC STOR SPEC SK 



VI, 4 = RA,RB,RC,RD 
Ul,4 • RE,RF,RG,RH 



RC 

UBA 

RC 

UBA 

UBB 

RD 

RG 

UBA 

RG 

UBA 

UBB 

UBB 



UBA 
RREG 



first check if U or 
SPIB JSB EZRO ZERO 
then shift V and U to left 

RLZ 

LRZ 



zero 

SP4A JSB 
8 bits 



UBB 



ADD 

I OR 

ADD 
SPIB lOR 
SPIB lOR 

ADD 

ADD 
SPIB lOR 

ADD LI 
SPIB lOR 
SPIB lOR 

ADD 
XRO XOR 

do divide ( 



RC 



RLZ 
RLZ 



RB 
RA 
RD 



RE ADD 
RA DVSB 

ADD LSR 
SP4A ADD 

CAD 



RF 
RE 
SP4A 

HBF2 

U1,U2,U3,U4 ) 

CFi 



RD 

RB 

RB 

RA 

RH 

RE 

UBB 

RF 

RF 

RE 

OOIA 



RH 

/ ( VI, V2 ) 



ADD 

ADD 

ADD 

ADD 

ADD 

SUB 

CSL 

ADD 

ADD 

ADD 

ADDL 

ADD 

ADD 



LRZ 
RLZ 
LRZ 
RLZ 
LRZ 



RLZ 
LRZ 
RLZ 



RG 
RF 
RE 



UBB 
RREG 
SP3B 
UBA 



RE PC 

LINK 

LINK 

ADD 

LINK 



CALCULATE IF REMAINDER >» QUOTIENT* ( V3 , V4 ) 



ADD SPOA REPN 

UBA MPAD RD UBB LINK 

UBA ADD SPOA UBB ADD 

SPOA RSUB SPOA CTFl SP3B LINK 

SPOA RG RSUB RH FITC SP3B SPIB LINK 

UBA JSB EDVL PCS 4000 ADDL 



RC 
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P COMMENT 



Divide b 
zero 



by zero t rap 
if U > 



if V - else result is 



SPIB 
SPIB 



SPIB 
SPIB 



CTR 
SP3B 



SPIB 

XR6 
SP2B 



00 IF 
DCTR CTRO 
SP3B 
SP3B 
SPIB CFI 
XRIO 



Set F5 if mantlssa(U) < mantissajV) 



Set counter for divide 



Q-.' 
RF: 
Q:- 



( SP3B, SP4A 
• SP4A; XR6:- SP3B 
- 1 (IF REMAINDER 



''. Ih'- 



RG, SPIB ) 
QUOTIENT* (V3,V4) 



JSB IF REMAINDER >• QUOTIENT*! V3,V4 ) 



SINCE REMAINDER < QUOTIENT* ( V3 , V4), THEN 

THE CORRECT QUOTIENT := QUOTIENT - 1, & 

THE CORRECT REMAINDER = REMAINDER + ( V1,V2,V3,V4 ) 



SPOA RC ADD 

RH RA ADD 

SP2B ADD 



SPOA CTFl SP3B RD LINK 
RH FITC RB SPIB LINK 
RF RE ADD 



SP3B 
SPIB 
XR6 
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RECORD 


C S 


NO 


ADDR 


U420 




11421 




11422 




11423 


0692 


11424 


0B93 


11425 


0B94 


11426 




11427 




11428 




11429 


0B95 


11430 


0B96 


11431 


0B97 


11432 


0B98 


11433 


0699 


11434 


0B9A 


11436 


0B9B 


11437 


0B9C 


11439 




11440 




11441 




11442 




11443 


0B9D 


11444 


0B9E 


11446 


0B9F 


11448 


OGAO 


11450 


OBAl 


11452 




11453 




11454 




11455 


0BA2 


11456 


0BA3 


11457 


0BA4 



Extended Floalin 

•••«••••*•• ALU 

RREG SREG FUNC SFNC STOR SPSK 



Point Divide instruction 

.*.*«.».<.. .......L.ttt ALU 8 •••••*•••••••» 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9 26 AM 



REPEAT THE SAME DIVIDE TO GET SECOND HALF QUOTIENT 
BY ( CORRECT REMAINDER ) / ( VI , V2 ) 



RH 


ADD 




CFl 


SPIB 


REPN 






0020 


UBA 


RA DVSB 




UBB 


RB 


LINK 




DCTR 


CTRO 


UBA 


ADD 


LSR 


XR5 UBB 




LINK 




XR5 






CALCULATE 


IF REMAINDER >« QUOTIENT 


• ( V3 


,V4 


) 






SP4A ADD 




RG SP3B 




ADD 




SP2B 






ADD 




SPOA 




REPN 






OOIF 


RC 


UBA MPAD 
UBA ADD 




RD 


UBB 
UBB 


LINK 
ADD 




DCTR 


CTRO 


UBA 


XR5 RSUB 




UBB 


XR5 


LINK 




CFl 




UBA 


JSB 


EDLP 


POS 




INC 










SP2B RSUB 




UBB 


RG 


LINK 




RG 






ADD 




UBA 




ADD 




SP2B 






CALCULATE 


THE 


EXP(W) :■ EXP(U) 


- EXP(V) + 


256 


(NF5B: 


1 . 






OR 


:- EXP(U) 


- EXP(V) + 


256 


- 1 (FSB) 




RG 


ADD 
XRO ADD 




SP4A 

FIHB 7FFF 


XR6 
XRO 


ADD 
ANDL 




RE 




USB 


UBA SUB 






SP4A 


ADD 




SP3B CCTX 


FSB 




SP2B ADD 




SPOA UBA 


XRIO 


ADD 




SP2B 


UNC 




ADD 




SP4A FFCO 


UBB 


ADDL 




SP2B 





JSB IF REMAINDER 
0:- Q - 1 



>« QUOTIENT* ( V3,V4 ) 



ABS EXP(V) ; ABS EXP(U) 
EXP(W) ; SKIP IF F5 
SPOA:" W3, 
;SP2B:-EXP(W) 



SHIFT W RIGHT 4 BITS 

RE ADD 

OA'SR RA 

SP2B ADD XRO 



REPN 
LINK 
JSB 



0003 
SPIB DCTR CTRO 
ENRM CTR UNC 



exp(W); CTR 



0, go normalize it 
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RECORD C S. 
NO ADDR 



11460 
11462 
11463 
11465 
11467 
11468 
11470 
11472 
11474 
11476 
11477 
11479 
11480 



Extended Floating Point Divide by Zero Trap 

««..«>•«.><, /^LU A •••••«.«•••• ...»...••*..« ALU B •«*••«••«•«.>•• 
LABL RREG SRECi FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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0BA5 EDVZ 



0BA6 
OB A 7 

OB A 8 
0BA9 
OBAA 
08AB 

OBAC 



XR3 ADD 
SP2E1 ADD 



VZRO OOOA 



RF 
RG 
RH 



ADD 
ADD 
ADD 
ADDL 



SF3A 




SPIB 


JSB 


WRD 
DATA 


003F 


RE 


ANDL 
ADO 


DATA 
DATA 
DATA 


RD 


UBA 
RD 


ADD 
ADD 
ADD 
ADD 



UNO UBA DB 



COMMENT 

RD :• status, set F3 (for tlEZRO rtn; 

If U - then write zero to W 
Write at (W) ; Strip leading one from UO 
Merge sign A exp into WO and write it 

FIXED FOR CORRECT REG. (2635) 

Write Wl; Set CCA on WO 
Write W2 
Write W3 
SPOA :• %12 (div by zero parm); Skip if user 

traps are enabled, clear overflow 
UBA ;' W abs adr; If user traps are not 

enabled then set overflow bit & NEXT 
Go to user trap routine; Push W adr onto stk 
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RECORD 


C.S. 


NO 


ADDR 


11483 




11484 




11485 




11486 




11487 




11488 




11489 


OBAE 


11491 




11492 




11493 




11494 




11495 




11496 




11497 




11498 




11499 




11500 


OBAF 


11502 


OBBO 


11504 


0B61 


11506 


0BB2 


11508 




11509 




11510 




11511 


0BB3 


11513 


0BB4 


11515 


0BB5 


11517 




11518 




11519 




11520 




11521 


0BB6 


11523 




11524 


0BB7 


11526 




11527 




11528 




11529 




11530 


0BB8 


11532 




11533 




11534 


0BB9 


11536 


OBBA 


11538 


08BB 


11540 




11541 ■ 




U542 




11543 


OBBC 


11545 




11546 


OBBD 


11548 




11549 




11550 




115'>1 




115S2 


0B8E 


11554 


OBBF 


11555 





Extended Floating Point Add & Subtract initructions 

«>««•..*«.• ALU A ««•.•.«*«•« *»«.«»....... ftLU B «•««.•••«««•». 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CF3A RA XR8 ADD 
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make sure neither U nor V is -0 



ADD 

SP4A ADD 

ADD 

ADD 



SPOA NZRO 

RA 

SP4A 



SP3B SP4A lOR 

USB JS8 

SPIB ADD 

ADD 



ZERO 
NZRO 



calculate abs(V) 
LSR 



UBA 



RG 
RA 
UBB 



SUB 
ADD 
SUB 



abs(U) to see if V 

CTFl RD RH 

RE RE 

FITC RB RF 



> U 

LINK 

ADD 

LINK 



If U was greater than V (V-U was negative) then swap V 
that U is always the smaller operand 



and U so 
FFFC 

UBA 



ADDL 

INC 



REPC 
ADD 



Calculate exp(V) - exp(U) ; F2 - sign(V) XOR sign(U) 
Strip Exponents, insert leading I's 



JSB EFC3 



XRO ADD 
UBA UBB SUB 
OEOO ADDL 



SFl 



FIHB 



RA RE 



XOR 



ANDL 

ADD 

ADD LSL 



CTR 
CTX 



7FFF XRO 

UBA UBA 

Check tor operands « or difference in exponents > 56 

SPIB JSB EVAN ZERO UBA SREG SUB 
SPOA JSB EVAN ZERO JSB EVAN 



CRRY 
UNO 



If sign V <> sign U then U 



-U 



RG 


ADSB 


SPOA CTFl 


RH 


LINK 


RE 


ADSB 


FITC 


RF 


LINK 



COfWENT 



Clear F3 ; Complement the sign of V and do an 
EADD 



; UBB ' iff both U and V are zero 
Skip if V <> 0; If both are result is 
Make sure V is +0; Skip if U <> 
; Make sure U is +0 



Do Is(V) - ls(U), borrow to Fl 
Get rid of sign bits 
Do ms(V) - ms(U) 



UBA :• -4; UBB:- (V - U) + 8000 

skip swapping if V - U >- 
Roll stack 4 times 



Go split exp, man and Insert leading I's, 

set Fl so we can get back; 

F2 ;• sign (U) <> sign (V) 
UBA :• exp (V) ; UBB : ' exp (U) 
UBA :• exp(V) - exp(U); CTR :- for tENRM 
UBA. (2:8) :• 56; CTX :• exp diff (D.EXP) 



' answer if orig U > 0; skip if exp diff is 
<» 56 

answer if original V = 0; V answer if 
difference in exponents > 56 



SP0A,SP3B 



ls(U) (for following QASR 1 



PAGE 233 




RECORD 


C.S, 


NO 


ADDR 


11556 




11557 




11558 


OBCO 


11560 


08C1 


11562 




11563 




11564 




11565 


0BC2 


11567 


0BC3 


11569 




11570 




11571 




11572 


0BC4 


11574 




11575 


0BC5 


11577 




11578 


0BC6 


11580 




11581 





Extended Floating Point Add & Subtract instructions 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



Shift 


U ri 


ght t( 




UBA 
UBA 


ADD 
QASR 


now 


add' 


em up 


SPOA 
RA 


RC 
RE 


ADD 
ADD 


F2 ; = 


sign 


(W). 


SPOA 


UBA 


lOR 




XRO 


ADD 


UBA 


XRO 


ADD 



RE UBB 

RE UBB 



RE PC 
LINK 



SPIB DCTX CTXO 
SPIB DCTX CTXO 



(RA, SPIB, SPOA, SP3B) 



man(V) + man(U) 



SPOA CTFl 
RA FITC 



SP3B RD LINK 
RB SPIB LINK 



SP3B 
SPIB 



check for result, normalize 

SP3B UBB lOR 

HBF2 UBA UBB lOR 

LSR XRO UBB JSB 



10/ 2/88 9:26 AM 



RE, SPIB :■ ms(U); Skip if D.EXP = 
Shift ms(U),ls(U) ( RE , SPIB , SPOA , SP3B) right 
and decrement D.EXP until D.EXP = 



SP0A,SP3B.- ls|U) + ls(V), carry to Fl 
RA,SP1B :■ tns(V) + ms(U) + previous carry 



Start 'OR'ing all parts of W; 

CTX :» for »ENRM 
F2 := sign(W) which will always » sign(V'); 

UBB :» iff result (W) = 
Exp(W) will always • expjV) , get rid of sign 

bit for normalization routine; 
goto #EZRO if W = else fall thru to ttENRM 
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RECORD 


C.S 


NO 


ADDR 


11583 




11584 




11585 




11586 




11587 




11588 




11589 




11590 




11591 




11592 




11593 




11594 




11595 




11596 




11597 




11598 




11599 




11600 




11601 


0BC7 


11603 




11604 


0BC8 


11606 




11607 


0BC9 


11609 


OBCA 


11611 


OBCB 


11613 




11614 




11616 




11616 


OBCC 


11618 


OBCD 


11620 




11621 




11622 




11623 




11624 




11625 




11626 




11627 




11628 


OBCE 


11630 




11631 




11632 




11633 




11634 




11635 


OBCF 


11637 


0800 


11639 


OBDl 


11641 


0BD2 


11643 


0BD3 


11645 


0BD4 


11647 


0BD5 


11649 





Normalization Routine for Ext Floating Point instr 

...*......* ALU fi^ «««••*..... *,....?,...., /^LU 8 •••••«•••»•••» 

LABL RREG SREG FUNG SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP COMMENT 



ENRM -- Normalize result of EADD , ESUB, EMPY and EDIV 

Merge sign, set OVF , UNF indicators if neccessary 
Write result back to memory 
Set condition codes 

Entered from EADD/ESUB/EMPY/EDIV with 
F2 = sign of W 

RA,SP1B,SP0A.SP3B = W0,W1,W2,W3 
XRAO = exponent of W. SP4A • guard bits 
CTR = CTX - SR - 
XRA3 = absolute address to store result at 



10/ 2/86 9:26 AM 



« shift W left to BITS 

ENRM 

SPOA 



round, shift W right to BIT9 



RA ADD 






BITS 


SPIB REPC 






UBA OASL 




RA 


BITS 


UBB LINK 


SPIB 


DCTX 


INC 
RA ADD 
UBA QASR 




SPOA 
RA 


CTFl 
FITC 


SP3B LINK 
SPIB LINK 
UBB LINK 


SP3B 
SPIB 




exponent 


adj 


u s t me n 


I , me r 


ge sign, check OVF, 


UNF 




STA ADD 
XRO ADD 




RF 




CTRS ASR 
UBB ASR 







UBA UBB CSL 



SP4A HBF2 UBA UBB ADD 



RA F2HB 



write W back to memo r 

XR3 ADD 

RA ADD 

SPIB ADD 

SPOA ADD 

RG ADD 

UBB SP4A lOR 

JSB 



^H 



set CC, 


check for 


W > 





WRD 




ADD 




DATA 


RA 


ADD 




DATA 


SP3B 


ADD 




DATA 


SP3B SPIB 


I OR 




DATA 


UBA UBB 


lOR 




NZRO 


SP4A 


JSB 


EFOV 


UNC 




ADD 





ODD 
NEXT 



UBA :■ WO. skip if already aligned to BITS, 

UBB :• Wl 
Shift W0,W1,W2,W3,W4,W5,W6,W7 until BITS; 

CTX ;- exp adi needed because of shifting 
Add 1 to W3,W4 to round, propagate carry 

into upper two words (WO.Wl) 
and shift W0,W1,W2,W3 right to align to BIT9 



RF :• STATUS; Shift exp adjustment right 

Add exp W into WO, (WO will have a 1 in the 
exp bits if no carry from rounding, else 
it will have a 2. Thus we add 1 to the 
exp for the previous shift right and add 1 
if rounding produced a carry into the exp 
bit s . 

; UBB :' exp adjustment from the normalizing 
left shifts, this adjustment is now 
aligned with the exp field in WO. 

UBA :■ exp(W) + exp adj &csl(l), if UBA is 
odd then we have an OVF or UNF, F2 set for 
UNF. 

; UBB : « WO + exp adj, store into WO, merge 
sign(W) into WO 

RH := W absolute address 
Write WO; Set CCA on WO 
Write Wl; RG : -^ W3 
Write W2, UBB : = Wl 'LOR' W3 
Write W3; UBB := Wl lor W2 lor W3 , set DCC 
Skip if abs(W) <> 0: ItEFOV if over/underflow 
Underflow if W = (that is not allowed), 
jump w/ F2 set; Else all done 
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RfCORD 

NO 

11651 
11652 
1165J 
11654 
11655 
11656 
11657 
11658 
11659 
11660 
11661 
11662 
11663 
11665 
11666 
11668 
11669 
11671 
11672 
11674 
11675 
11677 



C S. 
ADDR 



0BD6 
0BD7 
0BD8 
0BD9 
OBDA 



Overflow / Underflow Trap Routine 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOP SPEC SKIP 



Over/Underflow Trap 

Entered with F2 = 1 for underflow, RF = status, SR = 

If user traps are not enabled then set overflow status bit 
else push W address back onto stack, push parameter onto 
stack, clisar overflow bit and go to tne user trap handler. 



10/ 2/86 9:26 AM 



EFOV 0008 
UBA 
UBA 



ADDL 

ADD 

ADD 

ADD 

INC 



JSZ UTRP 



SPOA :» %10 (overflow parm); Clear overflow 

bit . (2635) 

SKIP IF OVERFLOW; SKIP IF USER TRAPS (2635) 

ARE ENABLED (2635) 

; If user traps not enabled then NEXT with 

overflow bit set AND CC SET TO CCG (2635) 
Skip if overflow: Place W address (DB+ rei) 

back on TOS 
If underflow then parm :- %11; Go to user 

trap routine 
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RECORD 

NO 

11679 
11680 
11681 
11682 
11683 
11684 
11685 
11686 
11687 
11688 
11689 
11590 
11691 
11692 
11693 
11694 
11695 
11697 
11699 
11701 
11703 
11705 
11706 
11708 
11710 
11712 
11713 
11714 
11716 
11717 
11719 
11720 



C S 
ADDR 



OBDB 
OBDC 
OBDD 
OBDE 
OBDF 

OBEO 
OBEl 
0BE2 



0BE3 
0BE4 
0BE5 



ng Point Negati 

LABL RREG SREG FUNC SFNC STOR SPSK 



* A ******* A A A * ALU B ************** 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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If V <> then complement sign of V an^ set CCQ 
or CCL, else just set CCE . 

The algorithm is to fetch each Vx until a non-zero 
Vx is found. Then complement the sign of VO and 
write it back to memory (or TOS register.) Set CC 
based on new VO. If all Vx equal zero then set CCE. 



Entered with SPOA • 3 



ENEG RA 
UBA 



JSZ 
ADD 
ADD 



NEGL SPOA SPIB JSBS FINI 
UBB SM CAD 



RH 
RA 



BNDE 

ADD 

ADD 



SM CAD 

SP2B ADD 

ADD 



SRZ 
RA 

ZERO 


SR 

RA 
SP3B 


CAD 
SM ADD 

ADD 
SPIB INC 
UBB BNDE 


WRD 


8000 


SPIB INC 
REGN ADDL 
SREG JSB 




SP3B 


RA SUB 


REQN DATA 


SR 


SP2B lOR 
ADD 



SPIB 
SP3B 

RH 
CTR 


EPOP 

ROD 

TICB 




SPIB 
SP2B 




NZRO 
ZERO 


CTR 


TICB 






CCA 


NEXT 




CCA 


NEXT 



COMMENT 



UBA ;- RA, pull 1 TOS if SR » 0; SPIB := -1 
RA :• libs adr of operand; SP3B :- S 
Wait for reg store; Decrement ESR and ENAMER 
If X - 3 then V • 0; RH := E + x, read Vx 
In TOS registers if E > SM and E <« S; 

BNDV if E > S 
BNDV if E < DL; Increment x. skip if x <> 
; SP2B :« -(VO) 
YREGA :■ VO abs adr; if Vx • then examine 

V(x + .l|, else fall thru to write negated 

value back 
CTR :• 17 if not (E > SM and E <« S) else 

TOS REGN* 
write -VO back to TOS or memory; set CCA on 

VO (lor with SR to prevent CCE), NEXT 
; VO w«s zero so Just set CCE, NEXT 



PAGE 237 




RECORD 


C S. 


NO 


ADDR 


11723 




11724 




11725 




11726 




11727 




11728 




11729 




11730 




11731 




11732 




11733 




11734 




11735 




11736 




11737 


0BE6 


11739 


0BE7 


11741 


0BE8 


11743 


0BE9 


11745 




11746 


OBEA 


11748 


OBEB 


11750 




11751 


OBEC 


11753 




11764 


08ED 


11756 




11757 


OBEE 


11759 


OBEF 


117r,l 


OBFO 


11763 




11764 




11765 




11766 


OBFl 


11768 


0BF2 


11770 




11771 


0BF3 


1I77T 


0BF4 


11775 




11776 


0BF5 


11778 


0BF6 



Extended Compare Instruction 
LABL RREG SREQ FUNC SFNC STOR SPSK 



.•*.*..«.<,>,«. ALU B ••*••«•«•••••• 

RREG SREQ FUNC SFNC STOR SPEC SKIP 
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Extended Compare (ECMP) Instruction 



U is compared to V and the cond 
or CCE to indicate whether U is 
equal to V. 

Entered with SPOA • 4 and SPIB > 
TOS ■= V (DB-rel) 
TOS-1 " U (DB-rel) 



RB JSZ PULM 

UBA DB ADD 

UBA JSB EFCH 

RH CIR lOR 

RH ADD 
SPOA SPIB SUB 

UBB JSB DONE 

RB JSB EFCH 

JSB CMPL 
JSZ NEXT 



ition code is set to CCG, 
greater than, less than 



SR 
UBB 



RA 
UBA 



SM 
SM 



ADD 
CAD 



Fetch Ux at 
RH 



SPIB ADD 
SM CAD 



DL BNDE 
REGN ADO 



SRL2 

UNC 
CCA 


RA 
RH 


DB 

UBA 

UBA 


JSZ 
ADD 
ADD 
XOR 


HBF2 


RH 


SP4A 


ADD 
SUB 


N2R0 






CAD 


UNC 




RH 


JSZ 


UNC 
NF2 


UBB 


SPIB 


ADD 
ADD 
XOR 


rd Vx 










UBA 
UBA 


SPIB 
UBB 


ADD 
BNDE 


ROD 


SP3B 
RH 


DL 
UBA 


BNDE 
BNDE 






REGN 
SPIB 


ADD 
INC 



RA 

RB EPP2 


POS 


CCZ 


NEXT 
CRRY 


SPIB CCA 





F2HB 
CCA 



SP3B 
CTR 



RH 
SPIB 



ROD 
TICB 



Pull 2 if SR « else pull 1 if SR ■ 1 
UBA :>= abs(UJ ; RA : - abs(V) 
Fetch VO & U6; RB :• abs(U), pop 2 
Set CCA on UO (CIR prevents CCE); 

Skip if signs are the same 
Set F2 if UO negative; NEXT if signs differ 
RH :» » of words left to compare; Set CCZ on 

Ux - Vx (CCG or CCE), skip if U >= V 
Go finish up if result <> 0; 

SPIB -.' -1 & set CCL if U < V 
NEXT if no more words left to compare, else 

go get the next pair 
Go back to compare next pair 
NEXT if both were positive; Bit := F2 
; Flip CC if both were negative, NEXT 



RH :« S; SP3B :« abs Ux , read Ux 

TOS check: (if (E > SM and E <= S) then 

CTR := tos« else !F); BNDV if E > S 
RH :< abs Vx , read Vx ; BNDV if abs Ux < DL 
TOS check; (if (E > SM and E <= S) then 

CTR :■ tosi Jilse !F); BNDV if E > S 
BNDV if abs V < DL; RH :■ Ux 
SP4A :> UBA : • Vx ; Inc word ptr, RSB 
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RECORD 

NO 

11781 
11782 
11783 
11784 
11785 
11786 
11787 
11788 
11790 
11792 
11794 
11795 
11796 
11797 
11798 
11799 
11800 
11801 
11802 
11804 
11806 
11808 
11810 
11812 
11814 



C S. 
ADDR 



0BF7 
0BF8 
0BF9 



OBFC 
OBFD 
OBFE 
OBFF 



•«...««««•• ALU X ••••••«.««« 

LABL RREG SREG FUNC SFNC STOR SPSK 



t************ ALU B ••••••••'•••*• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/a 



Called when result (W) is zero, 
EMPY. ) 



(from EADD/ESUB, EDIV, 



XR3 ADD 
ADD 
JSB VZRO 



WRD 

DATA 

F3A 



REPN 

ADD 

ADD 



0003 
DCTR CTRO 
CCA NEXT 



EVAN -- Called when V will be the answer (from EADD/ESUB.) 



OBFA EVAN XR3 ADD 
OBFB UBB XRO ADD 



RB ADD 

RC ADD 

RD ADD 

ADD 



WRD 


003F 


RA 


ANDL 


DATA 






ADD 


DATA 




UBA 


ADD 


DATA 


RB 


RC 


lOR 


DATA 


RD 


UBB 


lOR 
ADD 



COMMENT 



Start write at (W)- Repeat next line 4 times 
Write xeroes; Set CCE 

Go back to EDVZ routine if F3; Else NEXT 
with CCE set 



Write at (W) : Strip leading one from WO 
Merge sign & exp into WO and write it 



Write Wl 
Write W2 
Write W3 



Set CCA on WO 

Merge W2 , Wl 

Set DCC on W1,W2,W3, NEXT 



NOP to keep system happy 



(2555) 
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RECORD 


C.S. 


NO 


ADDR 


11816 




11817 




11818 




11819 




11820 




11821 




11822 




11823 




11824 




11825 




11826 




11827 




11828 




11829 




11830 




11831 


DC 00 


11833 




11834 


OCOl 


11836 




11837 


0C02 


11839 




11840 


0CO3 


11842 




11843 


0C04 


11845 




11846 


0CO5 


11848 




11849 


0C06 


11851 




11852 


0C07 


11854 




11855 


0C08 


11857 




11858 


0C09 


11860 




11861 


OCOA 


11863 




11864 


OCOB 


11866 




11867 


OCOC 


11869 





I/O Instruction Look-up Table 
........... ftLu A ........... 

LABL RREG SREG FUNC SFNC STOR SPSK 



............. ftLU B •••••»..«•««•« 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



Look-up Table for I/O Instructions 

All are two -word instructions 
15 



word(M) 
word(M+ll 



%2O302 
I/O op code 



JSB 
JSB 
ADD 
ADD 
ADD 
ADD 
JSB 
ADD 
ADD 
0001 XR15 lORL 
ADD 
JSB 
JSB 



SHIO 
SHIO 



RCMO 
WCMD 



SFl 


OlFF 


RB 


ANDL 




RG 


UNC 


OlFF 


RA 


ANDL 

JSZ 

JSZ 

JSZ 

JSZ 


TRP 
TRP 
TRP 
TRP 


RG 


SF3A 


01F8 


RA 


ANDL 

JSZ 

JSZ 


TRP 
TRP 


RG 






RA 


JSL 


DMPX 


RH 






RA 


JSZ 


DMPE 


RH 


UNC 




RA 


ADD 






UNC 






INC 







UNC 
UNC 
UNC 
UNC 

UNC 
UNO 
UNC 
UNC 



RG 



MCDEVS 



0. STOP, set Fl for SHIO; 
START I/O PROGRAM 

1. HIOP; RG :» MCDEV« 
HALT I/O PROGRAM 

2. RIOC -- unimplemented 
READ I/O CHANNEL 

3. WIOC -- unimplemented 
WRITE I/O CHANNEL 

4. ROCL -- unimplemented 
ROLL-CALL COMMAND 

5. lOCL -- unimplemented 
I/O CLEAR COt^lAND 

6. INIT, set F3 for SHIO; RG :- MOD, CHAN* 
INITIALIZE I/O CHANNEL 

7. MCS -- unimplemented 
MEMORY COMMAND and STATUS COMMAND 

10. SEML -- unimplemented 
SEMAPHORE LOAD 

11. STRT, set load bit, RH := cold Id mcdev* 
WARMSTART COMHAND 

12. DUMP, RH :» dump load mcdev « 
MEMORY DUMP COfWAND 

13. RIOA; Set F2 if global command 
READ I/O ADAPTER 

14. WIOA; UBB :• 1 (• TOS required - 2) 
WRITE I/O ADAPTER 



PAGE 240 




RECORD 


C S 


NO 


ADDR 


11871 




11872 




11873 




11874 




11875 




11876 




11877 




11878 




11879 




11880 




11881 




11882 




11883 




11884 




11885 




11886 




11887 




11888 


OCOD 


11890 


OCOE 


11892 




11893 


OCOF 


11895 


OCIO 


11897 


OCll 


11899 




11900 


0C12 


11902 


0C13 


11904 


0C14 


11906 


0C15 


11908 




11909 


0C16 


119U 


0C17 


11913 


0C18 


11915 


0C19 


11917 





HPIB 

* * « * « 

RREG 



1(9* 
SREG 



Inst ructions 

•• ALU A ••«»»»••••• 

FUNC SFNC STOR SPSK 



iiiiik**ik«* « * * ft II ALU B ************** 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:26 AM 



Start of 2-word I/O Instructions 

1. Empty RQ. 90 BUSY 

2. Calculate entry into jump table 

3. Get one valid TOS , two if SIOP 

4 Put DRTBANK, OFFSET into 8KX3 , XRAl 
5. If invalid instruction then trap 

else if interrupt pending then handle 
else RSB to jump table entry 

Entered from IRSW with no TOS adjustments 
done and SPIB • 2. 



0C02 


STA 


JSZ 

ADDL 


TRP6 


RH 


POS 




OPB 


ADD 
JSZ 


PSHM 


BKX3 
SP2B 




SR7 


0007 
COOl 


UBA 


ADDL 
ADOL 
ADD 




RH 
SPOA 


CCA 


lOBS 


UBA 

SP2B 

OPB 


ADD 

ADDL 

JSZ 


LBL 
PULM 


SPIB 


BUSC 


SRZ 




RH 

RG 
SPIB 


INC 
ADD 
INC 
ADD 




RG 


R0B3 

R0X3 
WRX3 


OOOD 


SP2B 
OPB 


ADD 
JSZ 
ADDL 
ADD 


PULM 


SP3B 
BKX3 


CF2 


NZRO 
SRL2 


RA 


OPA 
SP4A 


ADD 
ADD 
JSZ 
ADD 


LSR 

IRON 

LSR 


XRl 
SP4A 

SP4A 


RAR 

MSGI 

RSB 


4000 
SP3B 


SP2B 
RA 


ADDL 
JSZC 
ADD 
ADD 


TRP 


SP2B 
BKX5 


SF4B 


NCRY 



COMMENT 



Mode violation? BKX3 :• 

RH :• go busy cmd (in case of tPSHM) : 

SP2B ;. NIR (opcode), empty RG if SR - 7 
RH :- 7 (for DRT & tSHIO) ; Go BUSY 
SPOA :• !C001 (for fSHIO] ; SPIB :- jump targ 
Set CCL; (OPB forces BUSC completion), pull 

one TOS if SR ■ 
Read DRTBANK @8 , Skip if not SIOP instr 
; Pull one more TOS if SR < 2 and SIOP 
Read DRTOFFSET @9 ; SP3B :• » valid instr + 1 
YRGA :• lump table address; BKX3 :< DRTBANK, 

clear F2 (for WIOA) 
XRAl :■ DRTOFFSET; SP4A :• mask for DRT3 
SP4A :« vncdevt &lsr(l); Trap if invalid inst 
Handle M5GINT; BKX5 :• mcdev* 
SP4A :• mcdev* &lsr(2) for INIT instruction, 

RSB to jump table entry; Set F4 (for STRT) 
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RECORD 


C.S. 


NO 


ADDR 


11919 




11920 




iin2i 




11922 




11923 




11924 




11925 




11926 




11927 




11928 




11929 




11930 




11931 




11932 




11933 




11934 




11935 




11936 


OCIA 


11938 




11939 


OCIB 


11941 




11942 




11943 




11944 




11945 


DC 10 


U947 




11948 


OCID 


11950 




11951 


OCIE 


11953 


00 IF 


11955 


0020 


11957 


0021 


11959 


0022 


11961 





Entry point tor STOP, HIOP and INIT instructions 

.««...•(,... ALU A •*•••.•«•»« ............. ftnj B .............. 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



Ent ry for STOP, HIOP, INIT 

1. Translate logical IMBtt to physical MOD« 

2. Place CDEVIt into BKX5 for use by tlOMS 

3. Read DRT tor specified MCDEV» , 

set F2 it abort bit DRT3 (2 1) is set 

4. Right justify OHNLft into SPIB for INIT 

5. Exit to »SIOP, «HIOP or ftlNIT 

Entered with Fl set if SIOP, F3 set it INIT, 

RG = mcdev* (mc« it INIT), SP4A = mcdev« Alsr(21 

RH • 7, SPOA = 10001, XRAl = DRTOFFSET 
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SHIO OOIE SP4A ANDL SP4A 
RQ RG INO LSL 



JSL LTOP BKX4 
RH JSZC NCHL 



UNO 
NORY 



UBA XRl 


INC 


SP4A 




007F 


RG 


ANDL 




BKX5 


Fl 




JSB INIT 




F3A 




SP4A 


ADD 


LSR 


SPIB 


SF5B 


SP4A 
OPA 
SPOA OPA 


ADD 

CAD 

JSBI BIDE 

ADD 

AND 


RH 


R0X3 
DATA 
ZERO 

HBF2 


UBA 


BKX3 


ADD 
ADD 
ADD 
CAD 
JSB 


HIOP 


BKX6 
BKX6 


NF 



SP4A.(ll-.4) ;• channel «; BKX4 :• 0, 

set up physical mod>jle * in XRA9 for DIOMS 

UBA :> DRT2 address; Trap if chan* ■ (only 
works for mod* » 0) 

•»••• CHNLO OK SB DELETED FOR PR IMBI *••»• 

SP4A :« DRT3 address ; 

BKX5 := cdev«, skip if SIOP 
JSB if INIT instr; SPIB. (12:4) :» channel*, 

set F5 
Read DRT3 (status) usino semaphore (2319) 
Re-write semaphore as 'locked' 
Loop until semaphore free for use 
Save DRT3 in BKX6 while semaphore • -1 
RH :• DRT3. (0:2,15:1) , set F2 if bit 0-1; 

HIOP if not SIOP 
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RECORD 

NO 

11963 
11964 
11965 
11966 
11967 
11968 
11969 
11970 
11971 
11972 
11973 
11974 
11975 
11976 
11977 
11978 
11979 
11980 
11981 
11982 
11983 
11984 
11985 
11986 
11987 
11989 
11991 
11993 
11995 
11996 



C.S. 
ADDR 



SIOP Inst ruction 
*«***«*«i.** ALU A •»«•«•»•••• 
LABL RREG SREG FUNC SFNC STOR SPSK 



S-1 
S 



............. ALU B *««••«••••••«< 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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6 7 


15 


1 1 MCDEV» 1 


1 CHAN PGM POINTER | 



If DRT3.(2:1) • 1, exit with CCL. (Set by 
•lOLT. ) 

If DRT3.(0:2) • 00, or DRT3.(0:2) - 01 with 
DRT3. (15:1) - 1, set CCE . 
Else set CCG . 

CCE only when the channel program is halted, 
or if HIOP has been issued but not yet 
serviced and the channel is in WAIT state. 
Then the channel program pointer is placed 
in DRTO and set DRT3 :• ICOOO. Send SIOP 
command to the channel to request CSRQ on 
behalf of the device. 



0C23 . SIOP 2000 SREG ANDL 
0C24 USA JSB NEXS 
0C25 UB8 SP2B XOR 
0C26 OPA JSB SIOE 





5000 ADDL 


NZRO 


COOO RH ANDL 


NZRO 


ADD 


ODD 


SPIB JSB 



SP3B 
SPIB 



Test DRT3. (2:1) ; SP3B 
NEXT if DRT3. (2:1) 
Skip if DRT3. 



0:2] <> 
♦SIOE if DRT3.(0:2) • 00 or 



SIOP command 
1; Mask DRT3 . (0:2) 
01; Set CCE 



OC27 



JSB NEXS 



if DRT3. (0:2) 
NEXT (no change) ; 



01 and DRT3. (15:1) 
Set CCG 
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RECORD 

NO 

11999 
12000 
12001 
12002 
12003 
12004 
12005 
12006 
12007 
12008 
12009 
12010 
12011 
12012 
12013 
12014 
12015 
12016 
12017 
12018 
12019 
12020 
12021 
12022 
12024 
12026 
12027 
12029 
12031 
12033 
12035 
12036 
12037 
12038 
12039 
12040 
12041 
12042 
12043 
12044 
12046 
12048 
12049 
12051 
12053 
12055 



C S. 
ADDR 



OC28 
0C29 

0C2A 
0C2B 
0C2C 
0C2O 



0C2E 
0C2F 

0C30 
0C31 
OC32 



HIOP Inst ruction 

..».«*»*..„ ALU f^ .*...««.•.• 

LABL RREG SREG f-UNC SFNC STOR SPSK 



HIOP CMD-- 



........«..«« ALU B .•*••*•.•..•.. 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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1. Set CCG if DRT3. (0:2, 15: 1) - <010> or <100>. 
(Send HIOP command with DRT3 :- 14000 only 
if <100>.) 

2. Else set CCE . Also send HIOP command only 
for <101>, <110> 4 <111> with DRT3 := 14001 

3. CCE indicates that the channel program was 
halted or in a WAIT state when the 
instruction was executed, or had been issued 
SIOP earlier but not yet serviced. 

4. Then set DRT3 := 14001 so it looks like an 
HIOP request from the WAIT state. Then 
issue HIOP command to the channel to request 
service on behalf of the device. 



SP2B JSBS NEXS 
ADD 



ZERO 
CCA 



UBB 



SP2B ADD CCA 

UBB JSBI NEXS SPIB 



GOOF OPA ANDL 

UBA SP2B INC SPOA 

UBB JSBI SIDE ZERO 

0002 SP2B ADDL SPOA 



7000 ADDL SP3B 

RH SPIB JSBS SIOE 

INC CCA 

ADD CCA 



NF2 
ZERO 



«SIOE is used by SIOP and HIOP to write DRT3 status 
(and DRTO pt r if SIOP) 



SIOE FFFD ADDL 
SP4A ADD 



0007 RG 
SPOA 



ANDL 

ADD 

CAD 



ADD 
SP4A ADD 

RA ADD 
JSL 
ADD 



WRX3 NFl 
DATA 



NEXT (no change) if <010> ; Set CCG 
NEXT with CCE if <000> , <001> or <011> ; 

SPIB := 18001 
Mask DRT3.(12:4); SP3B := HIOP command 
14000 + DRT3.(15:1); SIOE if <101> with CCE 
SIOE if <100> with CCG 
Send HIOP if <110> or <111> with CCE, 

set up to set DRT3 to 14001 



UBA :- -3 

Write to DRT3 addr; 

Write to DRTO addr, skip if HIOP 
RG :« dev#; Store Chan pgm pointer to DRTO 
; Send SIOP/HIOP command 
Write !C0OO/!4001 to <DRT3> (must be done 

after #IOMS since this clears semaphore) 
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RCCORD 


C S 


NO 


ADDR 


12057 




12058 




12059 




12060 




12061 




12062 




12063 




12064 




12065 




12066 




12067 




12068 




12069 




12070 


0C33 


12072 




12073 


0C34 


12075 


0C35 


12077 


0C36 


12079 




12080 




12081 




12082 




12083 




12084 




12085 




12086 




12087 




12088 




12089 




12090 




12091 




12092 


0C37 


12094 


OC38 


12096 




12097 




12098 




12099 




12100 




12101 




12102 




12103 




12104 




12105 




12106 




12107 




12108 


0C39 


12110 


0C3A 


12112 


CC3B 



I/O Instruclion Common Routines 
...*•««.... ALU A *••*••<*<•• «••••«•••*•** ALU B •••••••••••••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



tNEXO is the common exit point for all I/O instructions 
except STRT and DUMP 

1. Increment P and read next instruction 

2. Pop 2 TOS elements it F5 is not set, else pop 
only 1 (WIOA does its own 1st pop) 

3. Go UNBUSY 

4. Do NEXT 
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ADDL 

ADD 

JSZ NEXT 



ADD 

UBA ADD 

ADD 



EPOP 
BUSC 



EPOP; Snt P and read instr after 2nd I/O 

word, skip if from SIOP or RIOA 
UBA :• go UNBUSY command; Do 2nd EPOP 
; Send !|0 UNBUSY message 
NEXT in one clock 



• NEXS is used to clear a semapliore of DRT3 when it is 
desired to change the contents. 

1. The contents of BKX6 are written to the 
address contained in < BKX4 . SP4A >. 

2. Control is then passed to tNEXO for 
instruction termination. 



SP4A ADD 
BKX6 ADD 



tBIDE is used to wait for a period of time. This is 
used within the semaphore-wait loops of the 
SIOP and HIOP instructions, and prevents the CPU 
from accessing the DRT semaphore location so 
frequently that the channel program processor is 
unable to gain access to clear the semaphore 



Set up address . . . 

...and write back DRT3 unchanged 



ADD 
ADD 
ADD 



REPN 


0020 


ADD 


DCTR CTRO 


JSB SIOl 


UNC 



Waste just over 32 clocks 

Don't do anything except waste some time 

; Return to check semaphore again 
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RECORD 

NO 

12115 
12116 
12117 
12118 
12119 
12120 
12121 
12122 
12123 
12124 
12125 
12126 
12127 
12128 
12129 
12130 
12131 
12132 
12133 
12134 
12135 
12136 
12137 
12139 
12140 
12142 
12143 
12144 
12146 
12148 
12149 
12151 



C.S. 
ADDR 



WIOA Inst riiic t ion 
<,.».<,>>•.«• ALU A •••««•*•«*• 
LABL RREG SREG FUNC SFNC STOR SPSK 



S-2 
S-1 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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1 


2 


3 


4 


5 


6 


7 


8 9 





1 


2 


3 


4 


5 


1 














M 


M C 


C 


C 


C 


D 


D 


D| 


IB 


B 


B 


B 


R 


R 


R 


R 














1 


1.. 














DATA 












1 



1. This instruction sends command and data to 
channel ( s ) 

2. CCL if DRT3.(2:1) » 1. an ABORT bit set. 

3. CCE if instruction is completed OK. 

4. If global command, skip the DRT3.(2:1) test. 



Entered from «IOBS with UBB 
F2 cleared 



1 , CCL al ready set . SR 



0C3C WCMD 
0C3D 



0C3E 
0C3iF 



0C40 WI04 RA 



RC 


OISZ 


PUL2 


RB 


ADD 




SP2B 


O'SB 
JSB 


RWIO 
NEXO 




ADD 
J'SB 


NEXO 



SRL2 SR UBB JSZC PULM 
HBF2 UBA JSL LTOP RG 



EPOP 007F RC ANDL SPIB 
NZRO RB SPIB JSB WI04 SP3B 



JSL lOMS 



If SR ■ 2 then pull one more TOS else if 

SR ° 1 then pull two more TOS 
Set F2 if global cmd : Set up physical mod* 

in XRAg T»PULM & »PUL2 both return with 

UBA = RC) ( med lump for RG) 
Go read DRT3, pop i; SPIB :» cdev» 
NEXT if DRT3.(2il) - 1; «WI04 if global 

SP3B :' RB + cdev* (command) 
RG :• the data; Send out the 1MB command 
NEXT; Set CCE 
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RIOA 


Inst 


ruct i 


on 














RECORD 


C S 




A A * * 


» * * * * 


•* ALU A • 


A A A A A 


AAAAA 




**•' ALU B ••••••••• 


K A A A A 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPSK 


RREG SREG 


FUNC 


SFNC STOR SPEC 


SKIP 


12154 




>•<• 


• ••« 


• >•• 


• •••A 




AAAAA 


AAAAAA 




AAAAA 




tAAA 


12155 


























12156 












RIOA 


-- 


1 


2 3 4 5 6 


7 8 9 


12 3 4 5 




12157 
12158 






































S-1 


1 




M M C 


C C C D D D| 




12159 


























12160 














s 


IB B 


B B R R R 


R 


1 




12161 


























12162 


























12163 












1 . 


This 


mst ru 


ction send 


s command t rem TOS t 


• 


12164 














channel ( s ) 










12165 












2. 


CCL i 


f drt; 


(2:1) « 1 


, an ABORT bit set 




12166 












3. 


:CE i 


f insl 


ruction is 


comp 
ip t n 


leted OK 




12167 












4. 


It gl 


3bal command, sk 


! DRT3. (21) lest • 


12168 
























A 


12169 




• Entered from tlOBS with SR >- 1 


, CCL already set 


A 


12170 
























A 


12171 




* Ik * * 


* * * * 


* * « * 




k Ik A * * 


* * * * « 


AAAAAA 


AAAAAAAAAA 






A A A A 


12172 


























12173 


0C42 


Rcr«) 




RB 


ADD 










JSZ 


PULM SPIB 


SRL2 


12175 


























12176 


0C43 




007F 


UBA 


ANDL 




SP4A 




UBA 


JSL 


LTOP RG 


SRNZ 


12178 


0C44 


RWIO 


RG 


RG 


INC 


LSL 




F2 


FFFB 


ADDL 


XR8 


F2 


12180 


0C45 




USA 


XRl 


INC 






R0B3 


RG 


JSZC 


NCHL 


ZERO 


12182 


0C46 








JSB 


RWIX 




F2 


1000 


ADDL 


BKX5 




12184 


0C47 




2000 




ADDL 








OPB 


REPN 




0020 


12186 


0C48 




UBB 




INC 






nzro 


OPB 


ADD 


OCTR 


CTRO 


12188 


0C49 




2000 




ADDL 








OPB 


JSBI 


RWIO 


ZERO 


12190 


0C4A 


RWIX 




SPIB 


JSB 


WIOC 




NZRO 


UBA OPB 


AND 


SP2B 




12192 


0C4B 




UBB 




JSB 


NEXO 




NZRO 


RA SPAA 


JSB 


RI04 SP3B 


F2 


12194 


























12195 


0C4C 


RI04 






ADD 






CCA 




JSL 


lOMS BKX5 


ZERO 


12197 


0C4D 








ADD 








XRO 


ADD 




EVEN 


12199 


0C4E 






UBB 


JSB 


RI04 




ODD 


XR8 


JSBI 


•+1 XR8 


ZERO 


12201 


0C4F 








JSB 


NEXO 




UNC 


RG 


ADD 


RB SF5B 




12203 
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UBA:«RB (PULM WILL ALSO RTN W/UBA=RB) 
; IF SR-:2 THEN PULLl, SPlB:-0 FOR RIOA 
SP4A := cdev«; XLATE logical IMB« to phys 
DRT2 ADDR; XR8: -RETRY CT .SKIP IF GLOBAL 
READ DRT3; IF MCDEV«-0 THEN TRAP 
Skip test if F2: BKX5 :- (1000 (for WIOA) 
Literal for »RWIXB; Waste 32 clocks... 
Skip if unlocked: . if semaphore locked 
MASK; Loop if semaphore locked 
WIOC IF WRITE CMD; 

NEXO IF DRT3(2:1) :«1; RI04 IF GLOBAL CMD 
SP3B:«RD CMD (RA + CDEV ) 
SET CCE;SEND THE 1MB CM> 
,SKIP IF NOT DNV 

READ DATA AGAIN IF NOT YET TIMEOUT 
JSB FOR NEXT INSTRUCTION; RB >DATA 
SF5B INHIBITS SECOND EPOP 
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RECORD 

NO 

12205 
12206 
12207 
12208 
12209 
12210 
12211 
12212 
12213 
12214 
12215 
12216 

12:- 17 
12218 
12219 
12220 
12221 
12;;22 
12223 
12224 
12225 
12226 
12227 
12228 
12229 
12231 
12233 
12235 
12237 
12239 
12240 
12241 
12242 
12244 
12246 
12248 
12249 
12250 
12251 
12253 
12255 
12257 
12259 
12261 
12263 
12265 
12267 
12269 
12271 
12273 
12275 
12277 
12279 
12281 
12283 
12285 



C.S. 
ADDR 



0C50 
0C51 
0C52 
0C53 
DC 5 4 



0C55 
0C56 
0C57 



0C58 
0C59 
0C5A 
0C5B 
0C5C 
0C5D 
0C5E 
0C5F 
0C60 
0C61 
OC62 
0C63 
0C64 
0C65 
0C66 
OC6 7 
OC6 8 
0C69 



INIT Inst ruction 

........... ftLU A •«•••••«••<. 

I.ABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



7 8 9 12 
M M I CHAN« I 
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1. Send INIT to specified 1MB, channel. 

2. Clear channel's bit in interrupt mask words, 
( lOlA-OlD) . 

3. Clear the DRT3 entry for devices 0-7 on this 
channel . 

4. Initialize channel: 

Assert PPOLL response, go online to HPIB, 
assert IFC and REN, Clear all interrupt 
mask bits. Set CCE if it is CIC of HPIB, 
else set CCG and take it offline again. 

Entered from «SHIOwith SP4A=DRT3 adr, RG=MCDEV# , SP1B-CHNL» 



INIT RG 
UBA 



RG 
UBB 



R0X4 



channel's bit in mask, send lOCL 
LRZ 

RH 

DATA 
Clear DRT3 entries for devices 



3000 
UBB OPA 



ADD 

ADD 

ADD 

ADDL 

AND 



OOIA ADDL 
002F SPIB SUBL 
ADO 

REGN CAD 

UBA JSL lOMS 



0004 
INIA RH SP4A 



ADDL 

ADD 

ADD 



SP4A WRX3 
DATA 



Initialize channel 



0008 
1000 
RG SP4A 

0100 
SPOA RG 



0030 

INIR 1200 

0020 

0010 
1700 



ADDL 

ADDL 

AND 

JSB 

ADDL 

AND 

JSB 

ADDL 

ADD 

ADD 

ADDL 

ADDL 

ADDL 

CAD 

ADDL 

ADDL 

ADD 

JSB 



SPOA 
SP4A 



0-7 on this channel 
FFF8 
SP3B 

OEOO 



ADDL 

ADD 

JSBI INIA 



CTR 
SP3B 



SP3B 
SP3B 



NEXO 
NEXO 



ZERO 
CCA 



NZRO 
UNC 



FDFF 
0100 



RG 

RG 

RG 
RG 

RH 



ADDL 
JSL 
ADDL 
ADDL 
JSL 
1600 ADDL 
UBB SP4A ADD 
RH JSL 
8080 ADDL 
SPIB JSL 
RH JSL 
SP2B JSBI 
UBA JSL 
SP2B JSL 
SP4A JSL 
RG AND 
UBA JSL 
SP2B SUB 



SP2B 
SP3B 



RH 

SPIB CCA 
lOMS SP3B 



RH 
RH 



lOMS 
I QMS 
INIR 
lOMS 
I QMS 
lOMS 

I QMS 



SP3B 
SP3B 
SP2B 
SP2B 
SP3B 
SP3B 
SP2B 
SP3B 



NZRO 

NZRO 

NZRO 

NZRO 

UNC 

NZRO 

NZRO 

NZRO 

NZRO 



UBA. (14:2) :=IMB«; UBB. 'START OF MASK LOCS . 

UBA:=MASK LOCATION, READ; CTR : =CHNL 'S BITMtt 

RH:=0; 

UBA: » INIT CN». ; SRGB . (CHNL : 1 ) : «1 , COMPLEMENT 

RESET CHNL'S BIT IN MASK, WRITE; SEND lOCL 



RH: "ADDRESS INCREMENT; SP3B:«-8 (LOOPCOUNT) 
UBA:=DRT3 ADR FOR THii CHANNEL, DEV 
DRT3:=0 ; INIA IF NOT FINISH 



MASK; REQ» E 

MASK; READ REGt E 

SKIP IF GIC-TYPE; TIMER FOR ASSERTING IFC 

DONE IF NOT GIC-TYPE CHANNEL; REG* 1 

MASK; READ REG«1 FOR SYS CONTROLLER ?? 

SKIP IF SYS CONTROLLER ;WRITE TO REG»6 

SET CCG IF NOT SYS CONTROLLER 4 EXIT;REG«7 

REG«6:»0008, PPOLL RESPONSE 

:ENABLE CRC AND GO ON-LINE 

REG«7:»4080,GO ONLINE ON HP-IB 

REG(t6:«0030, ASSERT IFC, REN ON HP-IB 

REG(t2; ALLOW lOOUSEC TO ASSERT IFE i REN 

REG«6:«0020, REMOVE IFC, KEEP REN 

REG«2;-%FFFF, CLEAR ANY HP-IB INTERFACE ERROR 

MASK;READ REGttl.FOR CIC OF HP-IB 

WRITE TO REG#7;SKIP IF HP-IB CONTROLLER 

REG«7:=0,TAKE OFFLINE AGAIN 

EXIT & SET CCA 
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RECORD C.S. ««**•*«•«.* f^ii] A •*•<*•.••«• .«*.»..*•.•.* ALU B *»*•••«••*•*•» 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

12288 • 

122 89 «...«.»»..«.«».»«.•««..•«.«»«.».»»**..».«.««*.»».*»..*.».»»«»..*..«.* 

12290 • * 

12291 * Enhanced (performance wise) LST/SST Commentary • 

12292 * • 

12293 * This set of Instructions (2 to be exact) implements the enhanced • 

12294 * version of LST/SST. The instructions themselves are called * 

12295 * LSTX/SSTX to distinguish them from their slower brothers (or is • 

12296 * it sisters, I forget what the sex of microcode is). On power-up • 

12297 • or boot (etc.) the system defaults to use the older slower ones, • 

12298 • but when the Operating System determines that it is okay to use * 

12299 • the new instructions (le. all the right stuff has been done), * 

12300 * it will execute an ENPF instruction [enable performance) and the * 
12''0l * LUT entry will get changed to point to LSTX/SSTX See all the • 
12 Oi' * right places for more information (isn't that obnoxious?). • 
]2ol? • » 
l.^3U'i • This enhancement (the switch) brought to you by me Eric B. Decker* 
1.'305 • Microcode & Co. * 

12306 • • 

12307 .*.».»..«.»...«.».«»».»*«»«*»».*...««*»..*»*.........«...«.....».*».. 

12308 • • 

12309 * The new LST/SST instructions and support code have been • 

12310 • incorporated into microcode sets CX2603A and later This code * 

12311 * has been changed in order to increase the speed at which the * 

12312 * LST and SST instructions execute. This is done by caching the * 

12313 * first %20 table pointers into extended CPU registers XRB102 * 

12314 * through XRB117. This eliminates the memory references in the * 

12315 * case where K in the Instruction field is in the range Xl-%17. * 

12316 * The instructions were also optimized for these cases by * 

12317 * eliminating unnecessary memory references that were done In the * 

12318 * old code in order to economize on WCS space. * 

12319 • • 

12320 * The change in the LST/SST instructions also called for a way in * 

12321 • which to initialize the extended registers. Thus, the ISTR * 

12322 * special hardware instruction was born! It can be found * 

12323 • immediately following the LST/SST code. • 

12324 • • 

12325 • 8/15/85 MRG • 

12326 * • 

12327 **....».»..«.»..*..*...........».......».....»».»»..»*.•...«*..»«.... 
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RECORD 

NO 

12329 
12:330 
12331 
12332 
12333 
12334 
12335 
12336 
12337 
12338 
12339 
12340 
12341 
12342 
12343 
12344 
12345 
12346 
12347 
12348 
12349 
12350 
12351 
12352 
12353 
12355 
12356 
12358 
12360 
12362 
12364 
12366 
12368 
12370 
12371 
12372 
12373 
12374 
12375 
12376 
12377 
12.178 

l23-'n 

12380 
123dl 
12382 
12383 
12384 
12385 
12387 
12389 
12391 
12393 
12395 
lL'3n7 
12399 



C S. 
ADDR 



0C7 2 
OC73 
0C74 
0C7 5 
0C76 
OC7 7 
or 7 8 
OC7 9 



Enhanced LST Instruction 

«.....«..*. ALU A «•.««..,,., 

I.ABL RREG SREG FUNC SFNC STOR SPSK 



««,».«.•.**..« ALU B «<.«••<.♦«••«<.•* 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



LST (Load from System Table) Instruction 



Enhanced version 



This is the performance enhanced version of the LST instruction. 
Please see the LST/SST commentary for a description of the 
enhancements. The following is pseudocode for the new LST. 



begin 
t rap 
get 
If t 
re 
else 
ge 
re 
ext r 
ext r 
add 
read 
push 
end 



to mode violation if not privileged ' 

table number (K) from opcode ' 

able number then ' 

ad table pointer from XRB(102 + table number) ' 

(take LST long path) ' 

t table number from TOSA < 

ad table pointer from MEMORY(%1000 + table number) ' 

act table bank from table pointer (bits 11. 15) ' 
ad table base from table pt r (bits 0.10 left justified)' 

index (X) to base to point to requested table entry < 

the t able ent ry ' 

diita on TOS and set Condition Code ' 



0C6A LSTX 

0C6B 
0C6C 
0C6D 
0C6E 
0C6F 
0C70 
0C71 



A A A A «[ 1 

DSPL 



tAAAAAAAAAA^ 



DSPL 
00 RH 



ADD 

ADD 

JSB 

JSZ 

ADDL 

ADD 

ADD 

ADD 



LSTL 
PSHM 









JSZ 


TRP6 


BKX3 




00E6 


UBA 


ADDL 




CTR 


ZERO 


0200 




ADDL 




SPIB 


SR7 


OOIF 


REGN 


ANDL 




BKX3 




FFEO 


REGN 


ANDL 






EPSH 


UBB 


UBA 


ADD 
ADD 










OPB 


ADD 




RH 



CCA NEXT 



LST long path 

If the LST instruction gets here, we know that K from the 
opcode is 0. In this case, we will pull the top of stack 
into TOSA if necessary and then POP TOSA for the table 
et the table pointer from MEMORY and 



We then 
poj 
by X). This performance of the LST case was sacrificed 



number 
use that 



then ge 
Inter to 



read the table entry we want (indexed 



in order to optimize the LST %1-%17 cases which account for 
around 90% of all LST ' s performed. 



RA ADD 
ADD 
ADD 
ADD 

0200 RH ADDL 
ADD 
ADD 
ADD 



UBA 



JSZ 

SPIB ADD 

ADD 

OOIF OPB ANDL 

FFEO OPB ANDL 

UBB UBA ADD 

ADD 

OPB ADD 



Get K From Instr / Set Bank=0, TRP If NoPriv 

Changed label to LSTX 
Get X For Later / Set Up CTR To Read Pt r Reg 
Take Long Path If K'O / Get %1000 Ready 
Push One If TOS Full / Get Bank From Pt r Reg 
Get %1000+X Ready / Get Table Addr From Ptr 
Push RH On TOS When Done / Do Table Read 
DUM DEE DUM, WAITING FOR READ! 

/ Put Result On TOS, Set CCA, NEXT 



Get TOS -> UBA /If TOS Empty Get One 

/ Read Table Pointer From Memory (UBA>=TOSA) 
HOW BORING! WAITING FOR THE READ TO FINISH 

/ Get Bank From Table Pointer 
Get %1000+X / Get Addr From Table Pointer 

/ Start Read Of (Table Add r )+7„100O+X 
OH BOY, WE RE WAITING FOR A READ! 

/ Put Result On TOS, Set CCA, NEXT 
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RECORD 

NO 

12102 
12403 
12404 
12405 
12406 
12407 
12408 
12409 
12410 
12411 
12412 
12413 
12414 
12415 
12416 
12417 
12418 
12419 
12420 
12421 
12422 
12423 
12424 
12425 
12426 
12427 
12429 
12430 
12432 
12434 
12436 
12438 
12440 
12442 
12444 
12445 
12446 
12447 
12448 
12449 
12450 
12451 
12452 
12453 
12454 
12455 
12456 
12458 
12460 
12462 
12464 
12486 
12468 



C S. 
ADDR 



Enhanced SST Instruction 

•**.*..••«• ALU A ••••••«•••• 

LABL RREG SREG FUNC SFNC STOR SPSK 



.......<«•... ALU B •««•••••»•••*• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



0082 
0C83 
0C84 
0C85 
nC86 



SST (Store to System Table) instruction -- Enhanced version ' 

This is the performance enhanced version of the SST instruction. ' 

Please see the LST/SST commentary for a description of the ' 

enhancements. The following is pseudocode for the new SST. ' 

begin ' 

trap to mode violation if not privileded ' 

get fable number (K) from the opcode ' 

if table number <> then " 

read table pointer from XRBI102 + table number) ' 

else (take SST long path) ' 

get table number from TOSA ' 

read table pointer from MEMORY(%1000 + table number) ' 

extract table bank from table pointer (bits 11. 15) ■ 

extract table base from table ptr (bits 0..10 left justified)' 

add index (X) to base to point to requested table entry ' 

write data on TOS to requested table entry ' 

end ' 



0C7A SSTX 

0C7B 
0C7C 
0C7D 
0C7E 
0C7F 
0080 
0C81 



DSPL 


ADD 


X 


ADD 


DSPL 


JSB 




ADD 


0200 RH 


ADDL 




ADD 




ADD 




ADD 







JSZ 


TRP6 


BKX3 




00E6 


UBA 


ADDL 




CTR 




0200 




ADDL 




SPIB 




OCIF 


REQN 


ANDL 




BKX3 




FFEO 


REQN 


ANDL 








UBB 


UBA 


ADD 






WRX3 




RA 


ADD 






POP 




SREG 


ADD 






DATA 



SST long path 

If the. SST instruction gets here, we know that K from the opcode 
is 0. In this case, we will pull the table number from TOS. 
We will then go to MEMORY to get the table pointer. (All pretty 
similar to what we did with the LST case!) 



SSTL RREG SREG ADD 
ADD 

JSZ PULM 
ADD 

ADD UBB RH ADD WRX3 

ADD 
ADD NEXT SREG ADD DATA 





RA 


SPIB 


ADD 


EPOP 






ADD 


SRL2 


OOIF 


OPB 


ANDL 




FFEO 


OPB 


ANDL 




UBB 


RH 


ADD 


EPOP 




RB 


ADD 


NEXT 




SREG 


ADD 



Get K / Set Bank«0, Trap If No Priv 

changed label to SSTX 
Get X Ready / Set Up To Read Table Ptr Reg 
Take Long Path If K=0 / Get %1000 Ready 

/ Set Up Bank From Ptr Register 
Get %1000+X Ready / Get Addr From Ptr Reg 

/ Start Write Of (Table Add r )+%1000+X 

/ POP Data To Write Off TOS 

End Of Instr / Send Off The Write! 



Get XIOOO+X Ready / Start Read Of Table Ptr 
POP Table « Off TOS / WAIT FOR READ 
We Need 2 On TOS / Get Bank From Table Ptr 
/ Get Table Addr From Table Ptr 
/ Start Write To (Table Add r ) +%1000+X 
/ POP Data To Write Oft TOS 
End Of Instruction / Send Off The Write! 
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RECORD 

NO 

12471 
12472 
12473 
12474 
12475 
12476 
12477 
12478 
12479 
12480 
12481 
12482 
12483 
12484 
12485 
12486 
12487 
12488 
12489 
12490 
12491 
12492 
12493 
12494 
12495 
12496 
12497 
12499 
12501 
12503 
12505 
12=j07 
12509 
12511 
125 i:j 



C.S. 
ADDR 



Initialize System Table Registers Instruction 

iii*it«*«««*'ii* AJ II A •••*•**•*«• «iic««*«»i>«««iii« 



OC89 
0C8A 
0C8B 
0C8C 
0C8D 
OCSE 
OCRF 
OC'JO 
0C91 



ALU A 
LABL RREG SREG FUNC SFNC STOR SPSK 



ALU B •*«••«•••••«*• 
RREG SREQ FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9;27 AM 



ISTR (Initialize System Table Registers) Instruction 

OPCODE - %020104 , %000015 

Available in version CX2603A and beyond 

This instruction copies the contents ot absolute memory 
locations «1000 through %1017 to extended CPU registers 
XRB102 through XRB117. These CPU registers are then used as the 
table pointers for table numbers %0 through %17 by the LST and 
SST instruct ions . 

NOTE; The last line of this instruction is a trap to segment 1. 
This line was necessary when microcode handled the 
re-init ializat ion of the table pointer registers. Now. 
however, on recovery from powerfail. the old LST/SST are 
used until an ENPF is executed, which automatically calls 
ISTR to insure that the table pointer registers are valid. 
Therisfore. the last line of ISTR never gets executed and 
could be removed: however, I have grown rather fond of it 
and would be saddened to see it ruthlessly deleted 
without consideration for its feelings on the matter. 



ISTR OOOF 
0200 



ADDL 
AODL 
ADD 
RH ADDL 
SREG ADD 
SREG JSB 
ADD 
ADD 
ADD 



RH 
SP4A 





ADD 




BKX3 




ADD 








ADD 






RH SP4A 


ADD 






00E6 RH 


ADDL 




CTR 


OPB 


ADD 




REGN 




JSL 


NEXl 






JSL 


ENPl 






JSL 


IRl 





Fl 
F2 
UNC 



Get Index Var Ready / Set Bank = 
Get %1000 For Mem Reads 

Wait For SPAA To Become Valid 
Dec Index Var / Read Table Pointer @ Index 
Carry Index Along / Point CTR To Register 
Loop Until %0-%17 Done / Store Pt r In Reg 

/ End Of Inst ruct ion If Not Powerfail 

AND RETURN TO ENPF IF NEEDED. 

/ Trap To Segment 1 If Recover From PFail 



* When the sysiem first powers up, all performance enhancements art 

* disabled. The reason for this is primarily effected by LST/SST . 

* There are multiple registers (in the register file) that the 

A *ni....^.^ I CT /CCT ..■>... «h*« « ^ . ^ «» Ka »*• ..h ■% » 1 a « 4a 4k« #«»■•* 
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RECORD C.S. **»»««.*•«• ftLij /^ •••••••••a* ••**••*••<••• ^nj b ************** 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

12516 ********************************************************************* 

12517 • 

12518 * LST/SST & Performance enhancement retrofit. 

12519 • 10/25/85 ebd (Eric B. Decker) Microcode & Co. 

12520 • available in version CX2603A and beyond 

12521 • This retrofit includes code to make the current level of microcode 

12522 * fully compatible with all versions of the operating system (MPE) 

12523 • back to but not including V/P (aka MPE IV with disc caching) 
12524 
12525 
12526 
12527 
12528 
12529 
12530 
12531 
12532 
12533 

12534 * Other performance enhancemejit s (namely the OS into microcode stuff) 

12535 * also make use of the values in these registers to get a tad more 

12536 * performance out of this tired old beast. So it also Imperative 

12537 * that the LST/SST registers be set up prior to execution of any 

12538 * of these instructions. At this date of writing these additional 

12539 * instructions are ERON, ERXT , XGDB , MSTA.TIMR, and TMRQ. 

12540 « 

12541 * Not all of the above instructions require LST/SST to be set up 

12542 * But to supply an encapsulation wall, we are disabling all of these 

12543 * instructions until the ENPF, enable performance enhancements, 

12544 • instruction is executed. This instruction should not be executed 

12545 * until all ini t llizat ion needed is complete. This includes the 

12546 * execution of ISTR . 

12547 • 

12548 • ENPF currently does the following: 

12549 * 

12550 • 1) Changes the LUT entry for LST from the non-enhanced 

12551 • version to the enhanced version. 

12552 ' 2) changes the LUT entry for SST (same as LST) 

12553 • 3) modifies the limit for doubleword instructions to enable 

12554 • performace (OS into microcode) instructions at %30 & up 

12555 • 4) sets %1220 bit 13 to on. This tells other routines that 

12556 * we are running Performance microcode. Zoooooom 

12557 • 5) Puts four words into the SysQlob Extension area, %21-%24 

12558 • The first three will be zero (reserved). The fourth word 

12559 • (*24) will have a bit set for every microcode routine 

12560 • (performance) that is implemented. Currently we have: 

12561 • 

12562 • LOCATION: SYSGLOB EXTENSION %24 

12563 • ERON bit 15 

12564 « ERXT 14 

12565 « XGDB 13 

12566 • TIMR 12 

12567 • TMRO 11 

12568 * MSTA 10 

12569 • Reserved 0-9 

12570 * 

12571 «.»»»«»»..».»»»».,........»..«»,»....»»,...»..•»....*..»............. 
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RECORD 

NO 

12573 
12575 
12576 
12578 
12579 
12581 
12583 
12584 
12586 
12587 
12589 
12590 
12592 
12593 
12595 
12597 
12598 
12600 
12601 
12603 
12605 
12606 
12608 
12609 
12611 
12612 
12614 
12615 
12616 
12617 
12618 
12619 
12620 
12621 
12622 
12624 
12625 
12627 
12628 
12630 
12631 
12632 
12634 
12636 
12637 
12639 
12640 
12642 
12644 
12645 
12647 
12648 
12650 
12651 
12653 



C.S. 
ADDR 

0C92 

0C93 

0C94 
0C95 

0C96 

0C97 

0C98 

0C99 
0C9A 



0C9C 
0C9D 

0C9E 

0C9F 

OCAO 



OCAl 
0CA2 
OCA 3 



0CA4 
OCAS 



0CA7 
0CA8 

0CA9 

OCAA 

OCAB 



ENABLE PERFORMANCE INSTRUCTION 

«•»,«..«<,..,. ALU A •••«*«•**«» 
LABL RREQ SREG FUNC SFNC STOR SPSK 



ENPF 
ENPl 



P 
UBB 



LSTX 
SPOA 



ADD 

JSZ PSM2 

ADD 
ADD 

ADD 

ADD 

ADDL LBL 

JSB GTPR 
ADD 



SF2 
SRG5 



WRX3 
DATA 



....«>•».>,«.. ALU B .«*«•.«..*••>. 
RREG SREG FUNC SFNC STOR SPEC SKIP 



JSL 
ADD 



3000 
003 8 



ADDL 
BNKP ADD 

ADDL 

ADDL 

ADD 



CTR 
BKX3 



SPOA RH XOR 
LUTl ADD 



UBB ADD 

ADO 

SP4A XOR 



RH 
UBB 



RH 

SP4A 

RH 
SP4A 

REGN WRX3 

ZERO 

REGN WRX3 



P 
OPB 



ADD 
ADD 



ADD 
ADDL LBL 

ADD 

ADDL 

ADD 



At this poind we have successfully set up the LUT to point at the 
enhanced veriiion of LST (LSTX). Now let's do it for SST . 



ADDL 
ADDL 
ADD 





P 


ADD 






WRX3 


30D0 




UBB 


ADD 






DATA 


0038 


SSTX 




ADDL 


LBL 


SP4A 






SPOA 


LUTO 


JSB 

ADD 

ADD 


GTPR 


RH 
SP4A 


UNC 




SPOA 


RH 
LUTl 


XOR 
ADD 




RH 
SP4A 




SSTX 




UBB 


ADD 




REGN 


WRX3 




RH 




ADO 






ZERO 


0010 


UBB 


SP4A 


XOR 




REGN 


WRX3 


0027 



ADD 
ADO 



ADD 
ADDL LBL 

ADO 

ADDL 

ADDL 



10/ 2/86 9.27 AM 

COMMENT 

GO SET UP SYSGLOB CACHE FIRST 

FLAG2 IS SET SO WE RETURN HERE 

MAKE ROOM FOR TWO TOS ENTRIES IF FULL 

THIS IS WHERE ISTR RETURNS TO 

POINT CTR AT LUT PARITY OFF 

DISABLE LUT PARITY 

BKX3 <- BNKP NO WRP BUT WRX3 

GET BNKP AND P (2ND WRO OF CUR INST) 

PUT LST INSTR ON UBB FOR NEXT LINE 

STUFF OUT THE LST INST AT 2ND WORD 

POINT REGN AT LUTO 

GET LSTX LABEL TO SP4A FOR GTPR CALL 

GET LST INTO NIR TO ADDRESS LUT (@P) 

CALL GTPR TO CALC PARITY 

STASH THE RESULTANT PARITY 

AND MAKE SURE NIR IS VALID 

GET THE FIRST HALF OF THE LUT FOR PAR 

GO CALC PARITY ON IT. 

CALC COMPOSITE PARITY IF 1 CHANGE 

GET THE PART WITH THE PARITY BIT 

GET THE ADDRESS OF THE NEW PART 

STASH THE NEW LABEL IN THE LUT 

BUMP CTR SO IT POINTS TO LUTl 

CHECK FOR ZERO IF SO NO PAR MOD 

GET A WORD WITH BIT 27 SET (PARITY) 

FLIP THE PARITY BIT AND STASH IN LUT 



POINT AT THE MEM CELL BEING USED 
PUT A SST INSTR ON UBB FOR NXT LNE 
WRITE THE SST INSTR OUT 
RESET CTR BACK TO LUTO 
PUT NEW LUT VALUE IN PARM FOR GTPR 
MAKE NIR PNT AT THE SST LUT ENTRY 
GET FETCH NIR FOR LUT POINTER 
GO CALC PARITY ON NEW LUT ENTRY 
STASH RESULT PARITY IN SAFE PLACE 
ALSO MAKE SURE NIR IS VALID 
GET THE OLD LUT ENTRY 
GO CALC PARITY ON IT 
IF NO PAR CHANGE, 1 YEP CHANGE PAR 
GET THE LUT ENTRY WITH PARITY SAFE 
GET WHAT TO MAKE THE FIRST LUT ENTRY 
STASH THE NEW VALUE INTO THE LUT 
AND BUMP CTR TO LUTl FOR NXT IF PAR 
CHECK FOR ZERO IF SO NO PARITY MOD 
GET THE BIT TO CHANGE FOR PARITY SW. 
SWITCH PARITY AND PUT BACK INTO LUT 
POINT CTR AT WCS PARITY DISABLE 
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RECORD 


C.S. 


NO 


ADDR 


12655 




12656 




12657 




12658 




12659 




12660 




12661 




12662 




12663 


OCAC 


12665 




12666 


OCAD 


12668 




12663 


OCAE 


12671 


OCAF 


12673 




12674 


OCBO 


12676 


OCBl 


12678 




12679 


0CB2 


12681 


0CB3 


12683 




12684 


0CB4 


12686 




12687 


0CB5 


12689 




12690 


0CB6 


12692 




12693 


0CB7 


12695 




12696 


0CB8 


12698 




12699 


0CB9 


12701 




12702 


OCBA 


12704 




12705 


OCBB 


12707 




12708 


OCBC 


12710 




12711 


OCBD 


12713 




12714 




12715 




12716 


OCBE 


12718 


OCBF 


12720 


OCCO 


12722 




12723 





ENPF coni . 

AAAftftftAAAAA ALU A *********** 

LABL RREG SREQ FUNC SFNC STOR SPSK 



« « « Mft ft A A Ik A * * A ALU B ft * * ft *ft 1 A A A A A A A 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9.27 AM 



AAAAAAAAAAAAAAAAAAAAftAftftAAAAAAAAAAAAftAAAAAAAAAAftAAAAAAAAAAAAAAftftl 

At this point both the LUT entries for LST and SST have been 
modified. Now let's go enable the double word performance inst 
by changing the jump table index check at CLKX in CLKI . 



ftftftftftftftftft 


• AftAA 


AAAA 




tAAAAA 


AAAAA 


AAAA 




AAAA 




P 


ADD 






WRX3 


OOOE 




ADDL 




UBB 




ADD 






DATA 


CLKX 




ADDL 


LBL 


UBB 




ADD 
ADD 




REQN 


WRX3 
RAR 


003B 




ADD 
ADDL 








ADD 
JSB 


•+2 




MEDJ 




REGN 


ADD 
ADD 








ADD 
ADD 










SREG 


ADD 
ADD 








ADD 










UBB 


ADD 


LSR 


IFFF 


UBB 


ANDL 




SP4A 








JSB 


QTPR 


SPOA 




ADD 




RH 




COOl 


RH 


ANDL 




OOID 




ADDL 




SP4A 








JSB 


GTPR 


SPOA 


RH 


XOR 




RH 




OOID 




ADDL 




UBB 




ADD 


LSL 






0023 




ADDL 




CLKX 




ADDL 


LBL 


SP4A 




UBA 


SPIB 


lOR 




0001 


UBB 


XORL 








RH 




ADD 






SP4A 


ADD 
ADD 






WRX3 
RAR 


UBA 




ADD 
ADD 






SPIB 


ADD 
ADD 
JSB 


« + l 


REGN 


WRX3 
MEDJ 






ADD 
ADD 
ADD 





CTR 
SPIB 



SPIB 
RH 



POINT AT WHERE TO RESTORE THE INST 

THE DATA TO PUT BACK (ENPF INST.) 

REPLACE THE ORIGINAL INST. (^P) 

PUT THE ADDR OF WHERE TO CHANGE OUT 

STICK YREQA WITH THE ADDRESS 

KICK WCS PARITY OFF ON **3 

POINT CTR (REQN) AT WCS3 FOR READS 

WAIT FOR A BIT. NEW CTR VALUE RESTS 

BEATS ME. A STRANGE INCANTATION TO 

GET THE WCS READ SET UP 

THIS IS WHERE THE READ STUFF GOES. 

HOLD THE DATA AND GRAB IT INTO A REG 

WE CAN USE. 

GET RID OF PARITY. WE WANT THE 

CONSTANT FIELD BY ITSELF. 

STRIP TOP TWO BITS OF WCS3 AND STASH 

FOR QTPR. THEN CALL THE BEAST 

STASH THE PARITY RESULT IN SAFE PLACE 

ALSO GET THE BITS THAT STAY 

CALC PARITY ON NEW VALUE 

AND OF COURSE MUST CALL THE ROUTINE 

PRODUCE WHETHER PARITY NEEDS CHANGING 

GET THE NEW VALUE TO STICK OUT 

POSITION DATUM PROPERLY 

POINT AT WCS3 FOR WRITES 

GET ADDRESS OF WCS TO CHANGE 

COMBINE THE DATA TO GET REAL STUFF 

BUILD FLIPPED PARITY VERSION IN CASE 

CHECK TO SEE IF WE SHOULD FLIP PARITY 

STASH THE ADDRESS IN YREGA 

IF NOT KILLED BY PREV LINE STASH 

NOW GET IT INTO RAR 

STACK WILL HAVE ONE MORE ITEM 

ZERO WHAT WILL BE TOS-1 

WAIT FOR THINGS TO SETTLE DOWN 

AND STASH OUT IN WCS 

WAIT FOR THINGS TO SETTLE DOWN 

JSB OVERRIDES RSB 

RSB FORCES RAR ON VBUS DURING RANK 1 

THIS SURE IS RANK ISN'T IT. 
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RECORD 


C.S. 


NO 


ADDR 


12725 




12726 




12727 




12728 




12729 




12730 


OCCl 


12732 




12733 




12734 


0CC2 


12736 




12737 


0CC3 


12739 




12740 




12741 


0CC4 


12743 




12744 


0CC5 


12746 




12747 


0CC6 


12749 


0CC7 


12751 


0CC8 


12753 


0CC9 


12755 




12756 




12757 




12758 




12759 




12760 




12761 


OCCA 


12763 




12764 




12765 


OCCB 


12767 


OCCC 



ENPF cont , 

*...*...«*« ALU A •••*•••«««• 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



WCS SHOULD NOW BE WRITTEN. LETS MODIFY %1220 TO TELL THE S/W 
THAT WE ARE RUNNING PERFORMANCE MICROCODE WHEN THAT IS DONE SET 
UP THE SYSGLO'B EXTENSION AREA TO TELL WHICH ROUTINES ARE PRESENT 



DATA 02FF ADDL 
REGN UBB ADD 



USA 


ADD 


0004 


ADDL 


UBA OPA 


I OR 




ADD 




ADD 
ADD 
ADD 
ADD 



ADD 


BKX3 EPSH 


INC 


P RONP 


ADDL 


CTR 



0211 


ADDL 




UBB OPB 


ADD 


WRX3 




ADD 


DATA 




ADD 


DATA 



The A sld« of the next line determines what we tell the software 
we have implemented. Currently set to 3F says we have set up 
ERON.ERXT.XGDB.TIMR.TMRQ, and MSTA. If more routines are added, 
this number will have to be changed accordingly. 



003F 



ADDL 



ADD 
ADD 



ADD 



UBA ADD 
ADD 



DATA 



10/ 2/86 9:27 AM 



PREPARE TO ADDRESS BANK 0, ABS %1220 

ZERO BKX3 TO GET BANK 

AT NEXT HAVE TWO MORE WORDS ON STACK 

GO GET THE MONSTER (%1220) 

BUMP P TO POINT CORRECT AND GET NIR 

GET A WORD WITH JUST BIT 13 SET 

AND WAIT FOR THE READ TO HAPPEN 

POINT AT 3A TO TURN LUT PARITY ON 

AND SEND THE WORD WITH BIT 13 BACK 

UBA <- PTR TO SYSGLOB EXT AREA 

TURN LUT PARITY BACK ON! 

READ SYSGLOB EXT BASE INTO OPB 

UBB <- OFFSET TO XP ' FEATURE 'MASK WDl 

SET UP TO WRITE INTO XP ' FEATURE MASK 

CLEAR WORD 1 

CLEAR WORD 2 



UBA <- MASK THAT ENABLES ERON , ERXT , XGDB 

TIMR.TMRQ and MSTA 
CLEAR WORD 3 
WORD 4 <- MASK 
GO TO THE NEXT INSTRUCTION 
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RECORD 


C.S 


NO 


ADDR 


12770 




12771 




12772 




12773 




12774 




12775 




12776 




12777 




12778 




12779 




12780 




12781 




12782 




12783 




12784 




12785 




12786 




12787 




12788 




12789 




12790 




12791 




12792 


OCCD 


12794 


OCCE 


12796 




12797 


OCCF 


12799 


OCDO 


12801 


OCDl 


12803 


0CD2 


12805 


0CD3 


12807 




12808 


0CD4 


12810 


0CD5 


12812 


0CD6 


12814 




12815 


0CD7 


12817 


0CD8 



LST Instruction . 
LABL RREG SREG FUNC SFNC STOR SPSK 



non-enhanced 

• ••••••It* •••••••••«••• ft|_y B ••**it«ii«Kitar>*<i 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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LST (Load from system table) Instruction 

Slow version - non-enhanced 

This is the original version of LST/SST . It is the non-perf. 
enhanced version. It is here for backward compatibility. See 
ENPF (LSTRETRO LST retrofit), LSTX . and SSTX for details 

A system that does not do the right things will fail if the new 
LST/SST instructions are executed (note other performance inst. 
also make use of the LST/SST registers). To avoid this the old 
version of the instruction is executed until the Operating Sys 
tells the microcode that it is okay. This makes all this stuff 
backward compatibile. The older versions of the Operating Sys 
don't know about the new instruction ENPF (which tells us it 
is okay) so it can't tell us it is okay. 



SLUT INSTR«LST:0 Oil 000 000 OO.DSPL-4 , SR-0, ENTRY-LST 
LST 



DSPL 
RA 


ADD 
JS2 


PULM 


SP4A 


NZRO 
SRZ 


0200 




JSZ 
ADDL 


TRP6 


UBB 
DSPL 

DSPL 


ADD 
ADD 
JSB 
ADD 
JSB 


LST5 
LSTO 


RH 


ZERO 
UNC 
NZRO 
UNC 


UBB 

RREG 

OOIF 

FFEO 

RH 


UBA 

SP4A 

OPB 

SREG 

UBB 


ADD 

ADD 

ANDL 

ANDL 

ADD 






ADD 
ADD 
JSZ 


PSHM 




SR7 


OOIF 
FFEO 
RH 


OPB 

SREG 

UBB 


ANDL 
ANDL 
ADD 




OPA 


ADD 
ADD 




RA 


EPSH 
CCA 






JSL 
ADD 


LWP2 



R0X3 
R0X3 



R0A3 



UNC 
NEXT 



Skip if K <> 0; BKX3 :- 0, trap if NPRV 
UBA :- (S), pull TOS if K • and SR • 0; 

SP3B :• UBB :• XIOOO 
RH :• X + XIOOO; Read {(S) + SIOOO) 

;READ (K+%l600) 

JMP IF K<>0 ;BKX3-TABLE BANK (CSTX) 

Skip if K <> 0; Mask to address on UBB(CSTX) 

JSB if K . 0; (CSTX) 

Read (X + XIOOO + ((S) + XIOOO)) 

;MASK TO BANK IN BKX3 (CSTX) 
;MASK TO ADDRESS ON UBB (CSTX) 
7 ■ (CSTX) 

xioOO + (K + XIOOO) ) 
Push; JSB (@ •LWP2: RH := OPA, CCA) 
(S) :- OPA, CCA; NEXT 



JSB if SR 
Read (X 

JSB (@ •LWP2: 
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RECORD 

NO 

12820 
12821 
12822 
12823 
12824 
12825 
12826 
12827 
12828 
12829 
12830 
12831 
12833 
12835 
12837 
12839 
12841 
12843 
12844 
12846 
12848 
12850 
12851 
12853 
12855 
12856 



C.S. 
ADDR 



0CD9 
OCDA 
OCDB 
OCDC 
OCDD 
OCDE 

OCDF 
OCEO 
OCEl 

0CE2 
0CE3 



SST Inst rue t ion . 

...<,<,<»••... ALU A <«•••«•<... 

LABL RREG SREG FUNC SFNC STOR SPSK 



non-enhanced 

.».,..... .«.....«.««.. ALU B •«•••«••••««•«« 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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SST (Stort! into system table) Instruction ' 

SST non-entianced (performance wise). See LST , LSTX , SSTX , ' 
ENPF for more info. ' 

SLUT INSTR-SST;0 Oil 000 Oil Olx xxx, DSPL-4, SR»1, ENTRY-SST 

SST 0200 ADDL 

DSPL ADD 

ADD 

DSPL ADD 

X SP4A ADD 

JSB SST8 

ADD 
X SP4A ADD 

RA JSB SST9 









JSZ 


TRP6 


BKX3 






RA 


UBA 


ADD 






R0X3 




UBA 


SP4A 


ADD 






R0X3 


ZERO 


OOIF 


OPB 


ANDL 




BKX3 




UNC 


FFEO 


SREG 


ANDL 








EPOP 


UBA 


UBB 


ADD 






WRX3 



SST8 
SST9 



ADD 
ADD 



EPOP 
NEXT 



OOIF OPB ANDL 
FFEO SREG ANDL 
UBA UBB ADD 

JSZ 
UBA ADD 



SP4A :■ XIOOO; BKX3 :• 0, trap if NPRV 
UBA=K ; Read ( (S) + %1000) 

; Read |K + %1000) 
SKP IF K«0; MASK TO BANK & PUT IN BKX3(CSTX) 
UBA=X+%1000;MASK TO ADDRESS ON UBB (CSTX) 
Pop 1 and JSB if K - 0, (CSTX) 

WRITE (X ♦ XIOOO + MS) + %1000)) 

;MASK TO BANK & PUT IN BKX3(CSTX) 
UBA-X+XIOOO ;MASK TO ADDRESS ON UBB (CSTX) 
UBA :» (S) , pop 1, JSB; (CSTX) 

Read X + %1000 ♦ M(K + 5S1000) 
UBA -.' (S-1); Pull 1 TOS if SR < 2 
NEXT; Write (S) or (S-1) if K = 
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RECORD 

NO 

12858 
12859 
12860 
12861 
12862 
12863 
12864 
12865 
12866 
12867 
12868 
12869 
12870 
12872 
12873 
12875 
12877 
12878 
12880 
12881 
12883 
12884 
12886 
12887 



GTPR - GET PARITY 
C.S. *.»«»**»««* ALU A •*•«*«•»•»• .«««•.*.•»«** ALU 8 **•••»••*•••*» 
ADDR LABL RRE6 SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



Get Parity - GTPR 

This routine takes a 16 bit input and determines if it is even 
or odd parity. If even it returns 0, if odd 1. 
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Input: SP4A 
Output: SPOA 



word to be worked on 
parity indication - 



0CE4 GTPR 



0CE5 

0CE6 GTPl 



SP4A JSB GTPX 
SP4A ADD 



ZERO 
EVEN 



0CE7 

0CE8 

0CE9 GTPX 

OCEA 



SPOA UBB XOR 
UBB ADD 
ADD 
ADD 



SPOA 
SP4A 



NZRO 
RSB 



ADD 
ADDL 

SP4A ADD LSR 

UBB JSB QTPl 

ADD 

ADD 



ZERO THE PARITY ACCUMULATOR 

INCREMENT RAC SO WE REMEMBER WHR FRM 

IF WE ARE ZERO QUIT 

CHECK FOR SP4A(15:1) BEING SET 

GET THE 0001 TO XOR WITH RESULT 

IF SP4Ari5:l) IS SET SWITCH THE SENSE 

SHIFT SP4A (INPUT) ONE MORE RIGHT (2502) 

REMEMBER THE SHIFTED VALUE 

AND TRY AGAIN BUT ONLY IF NEEDED 

SLOW DOWN THE RETURN SO POPR CAN TAKE 

POPR SO WE POINT AT CORRECT RETURN 

AND RETURN TO CALLER 
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RECORD 

NO 

12890 
12892 
12893 
12895 
12896 
12898 
12899 
12900 
12902 
12903 
12904 
12905 
12907 
12909 
12911 



C.S. 
ADDR 

OCEB 

OCEC 

OCED 

OCEE 



OCEF 
OCFO 
OCFl 
0CF2 



Cylon - Cycle register Instruction 
LABL RREG SREG FUNG SFNC STOR SPSK 



CYCL RA 
UBA 



JSZ 
ADD 
ADD 

ADD 



SRZ 
WRX3 
REGN EPOP 



REGN 



DISABLE PERF DISPLAY 

ADD 

ADD RE 

ADD 

ADD 



RREG SREG FUNC SFNC STOR SPEC SKIP 



ADDL 


CTR 


INC 


P 


ADDL 


CTR 



ADDL CTR 
JSL NEXl 
ADD 
ADD 



10/ 2/86 9:27 AM 

COMMENT 

GET THE VALUE TO PUT THERE. GET IT 
IF NEEDED. PNT CTR AT PERF REGISTER 
GET NEW PERF VALUE INTO YREGA 
BUMP P AND GET NEXT INST. IN NIR 
OKAY STICK IT OUT INTO THE PERF REG 
REMOVE THE DATA FROM THE STACK 
POINT CTR AT THE DISPLAY PERF LOC 
MAKE SURE DISPLAYING PERF REG 



POINT AT DISP CIR 
UNC KICK SO CIR DISPLAYS 

NOP to keep system happy 
NOP to keep system happy 
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RECORD 


C.S. 


NO 


ADDR 


12916 




12917 




12918 




12919 




12920 




12921 




12922 




12923 




12924 




12925 




12926 




12927 




12928 


ODOO 


12930 




12931 


ODOl 


12933 




12934 


0D02 


12936 




12937 


0D03 


12939 




12940 




12941 


0D04 


12943 





Double Word CPU X020104 Decode 

........... ftLU A •••••••«.•* ............. ALU B «••••••••••••« 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP COMMENT 



Look up routine for machine dependent instructions 

Entered from SMBLA with privileged mode al.reidy checked. 

WARNING: If you add instructions at the end of the table be sure 
to change ENPF so it enables them. Otherwise you can not execute 
them. The constant embeded at CLKX should not be changed. 
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CLKI 0015 ADDL 
UBB ADD 
ADD 
CLKX SP4A ADD 



CTAB OPB ADDL LBL 



WRX3 0019 



R0X3 0010 OPB SUBL 



UBA 



CAD 



JSZ TRAP 



SP4A :« *21 , (addr of LR ) ; 

UBB :• indexed entry into jump table 
YRGA :■ table entry; 

CTR :■ DCUSTORE (for CNTL 'B' instr) 
SPOA :■ parameter :• 0. RAR := YRGA 
Clear RFLAG fo-r regn usage in eron (2553) 
Read LR ; Skip if 2nd word is <= X20 (2553) 
ADDED LABEL CLKX FOR ENPR MOD (2553) 

NOTE: 20 GETS CHANGED BY ENPF (2553) 

RH :» %20, vector through jump table; 
Unimplemented instructions > %57 (2553) 
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RECORD 


C S. 


NO 


ADDR 


12945 




12946 




12947 




12948 




12949 




12950 




12951 


0D05 


12953 




12954 


0D06 


12956 




12957 


0D07 


12959 




12960 


0D08 


12962 




12963 


0D09 


12965 




12966 


ODOA 


12968 




12969 


ODOB 


12971 


ODOC 


12973 


ODOD 


12975 


ODOE 


12977 


ODOF 


12979 


ODIO 


12981 


ODll 


12983 


0D12 


12985 


0D13 


12987 


0D14 


12989 


0D15 


12991 


0D16 


12993 


0D17 


12995 


0D18 


12997 


0D19 


12999 


ODIA 


13001 


ODIB 


13003 


ODIC 


13005 


ODID 


13007 


ODIE 


13009 


ODIF 


13011 


0D20 


13013 


0D21 


13015 


0D22 


13017 


0D23 


13019 


0D24 



DOUBLE WORD JUMP TABLE 
LABL RREG SREG FUNC SFNC STOR SPSK 



• ..,«...<.••••• ALU B ••••«*•<.•••«•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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Jump table for machine dependent instructions 



OPA JSB RCCR UNC 
OPA JSB SCLR UNC 
FF7F XRIS ANDL XR15 

JSB TON UNC 
0003 ADDL SP4A 
1000 ADDL SP4A 



0005 
0004 



ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADDL 

ADO 

ADDL 

INC 

ADD 

ADD 



SFl 
CFl 



SPOA 
RH 



JSB Ni:xi 



UNC 



INC P RONP 
JSL MCMD UNC 

JSL FLSH BKX5 UNC 



UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 



JSL 


MLOG 


JSL 


CCPP 


JSBI 


SING P 


JSL 


SBF 


JSL 


SBL 


JSL 


DDE 


JSL 


RDCU 


JSL 


ISTR 


JSL 


ENPF 


JSL 


CYCL 


JSL 


NCYC 


JSZ 


TRP 


JSZ 


TRP 


JSZ 


TRP 


JSZ 


TRP 


JSZ 


TRP 


JSZ 


TRP 


JSZ 


TRP 


JSL 


ERON 


JSL 


ERXT 


JSL 


XGDB BKX3 


JSL 


TIMR 


JSL 


TMRQ 


JSL 


MSTA BKX3 


ADD 




ADD 





UBA 



= LR; 
LR; 



11000, 



0.) READ CLOCK instruction 

Read TR 
1.) SET CLOCK instruction, UBA 

Read TR 
2.) TOFF instruction, clear bit 

Read next instruction 
3 . ) TON inst ruction ; 

Read next instruction 
4.) MESSAGE COMMAND instruction 

(number of TOS required) 
5.) FLUSH instruction, SPAA 

BKX5 :• 
6.) Microcode Logging instruction 
7.) Communicate w/Channel Program Processor 
10.) SINC instruction, P : >: P + 1 
11.) Set Bounds Flag (PRIV bounds checking) 
12.) Set Bounds Limit (PRIV bounds checking) 
13.) Enable/Disable CNTL 'B' 

14. Read DCU log instruction 

15. Initialize System Table Registers(25S3) 
16.) Enable Performance ... (2553) 
17. Cylon - Cycle Perf Reg. (RTOC on 37) 
20. Turn off Cylon. (WTOC on 37) 
21.) Unlmplemented instruction (PFL on 37) 
22. Unlmplemented instr. (FIRMVER on 37) 
23.) Unlmplemented instruction (OSSIG on 37) 
24.) Reserved for non-68 expansion... 

25.) Reserved for non-68 expansion... 

26.) Reserved for non-68 expansion... 

27.) Reserved for non-68 expansion... 

30.) Erroron routine for MPt (2553) 

31.) Errorexit routine for MPE (2553) 

32.) ExchangeDB routine for MPE (2553) 

33.) TIMER routine for MPE (2553) 

34.) TIMEREQ routine for MPE (2553) 

35.) MMStat routine from MPE (2553) 

Nop to keep the cpu happy 

Nop to keep the cpu happy 
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Clock Ins 


t ruct 


ioni 




















RECORD 


C.S. 




********* 


•* ALU A *' 


k * * * * 


* * * * * 


• « A A 1 


* A A A A 1 


•••• ALU B 


A A * * « 


k A A A A * 


1***1 


NO 


ADDR 


LABL 


RREG SREG 


FUNC 


SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKII 


13024 




%0D40 
























13025 




* A A * « 


(**«*«««** 






k « A A A : 






* A A A A 1 




t A A A A 1 


t A A AAI 




1 A A A 


13026 




• 


Clock Ins 


t ruct 


ions 


















* 


13027 






i*fk**ikili*** 


A « * A A 




1 A A A A : 


A * A A A A 




A A A A A 1 




t A A A A 1 


k A A A A 1 




1 A A A 


13028 




• 


























13029 


0D4O 


TON 


0080 XR15 


lORL 




XR15 








ADD 










13031 


0D41 




STA 


ADD 


LSL 




POS 






ADD 










13033 


0D42 




XR15 


JSZ 


CSNC 




NEG 






ADD 










13035 


0D43 






ADD 






NEXT 






ADD 










13037 


0D4J 


RCCR 




ADD 








UBA 


XR31 


JSZ 


PSHM 


SP3B 




SR7 


13039 


0D45 






JSB 


NEXl 




UNO 


UBB 


OPB 


ADD 




RH 


EPSH 




13041 


0D46 


SCLR 




ADO 








UBA 


XR31 


JSZ 


PULM 


SP3B 




SRZ 


13043 


0D47 




SP4A 


ADD 






WRX3 


UBB 


OPB 


ADD 






DATA 




13045 


0D48 




RA 


JSB 


NEXl 




DATA 




RA 


SUB 




XR31 


EPOP 




13047 


0D49 


NEXl 




JSZ 


NOP 




UNO 




P 


INC 




P 


RONP 




13049 






























13050 


0D4A 


SINC 


UBB 


ADD 






RONP 




SP4A 


INC 






R0A3 




13052 


0D4B 




0007 


ADDL 




SP4A 




8000 




ADDL 




RH 






13054 






























13055 


0D4C 




STA 


ADD 


LSL 




POS 


UBB 


OPB 


lOR 






DATA 




13057 






























13058 


0D4O 






JSZ 


INT9 




SF2 


8C01 




ADDL 




SPIB 






13060 






























13061 






























13062 


0D4E 




RH XR15 


I OR 




XR15 


NEXT 




SP4A 


ADD 






CCPX 




13064 


0D4F 






ADD 












ADD 










13066 


0D50 






ADD 












ADD 
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SET TON; 

SKIP IF INT IS OFF 

SERVICE INTERRUPTS 

NEXT 

; SP3B:=UBB:«LR + CR , EMPTY RG IF SR « 7 

JSB; NEW (S):«(LR + CR ) + TR , EPSH 

; SP3B:-UBB:»LR + CR , FILL RA IF SR * 

ADDR OF LR; TR:-(LR + CR) + TR 

JSB, LR:-(S); CR:--(S), EPOP 

WAIT TWO CLOCKS FOR NEXT; 

P:-P + 1, READ NEXT INSTRUCTION 

READ NEXT INSTRUCTION; READ STAT 

SP4A:='MASK TO SET DINTFF; 

RH:»UBB:-BIT MASK 

SKIP IF INTERRUPTS ARE OFF; 

(STAT) :• 18000 lOR (STAT) 
SERVICE INTERRUPT IF INTERUPTS ON, SF2 F 

«INT9; 
SPIB: "EXTERNAL LABEL 
SET SINC8IT, NEXT; SET DINTFF 
NOP to keep system happy 
NOP to keep system happy 
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RECORD 

NO 

13071 
13072 
13073 
13074 
13075 
13076 
13077 
13078 
13079 
13080 
13081 
13082 
13083 
13084 
13085 
13086 
13087 
13088 
13089 
13090 
13091 
13092 
13093 
13094 
13095 
13096 
13097 
13098 
13099 
13100 
13101 
13102 
13103 
13104 
13105 
13106 
13107 
13108 
13109 
13110 
13111 
13112 
13113 
13114 
13115 
13116 
13117 
13118 
13119 
13120 
13121 
13122 
13123 
13124 
13i;'5 
13126 



c s. 

ADDR 



ERON Commentary 

<.«...«.••.. ALU ft ..•*••...•. 

I.ABL RREG SREG FUNC SFNC STOR SPSK 



..«••>,.*•>«.. ALU B •••••<■«••«'.«•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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ERON - REPLACEMENT FOR THE MPE PROCEDURE ERRORON 

Max ro-assembly code: %020104 ,%000030 ( doublewo rd op) 
available in version CX2603A and beyond 

This microcode routine replaces the MPE procedure ERRORON, 
which turns off traps, and if the caller is not a system 
routine increments the procedure's error level count, clearing 
that error level and possibly the one above it. If the count 
exceeds six the counter is still incremented every call, but 
that's all - the (non-existent) levels above 6 are not cleared. 

This roiutine hard-codes the offsets of all the locations it 
uses as they are defined in U-MIT, specifically: 

Current PCB number in absolute(4) 

Syscjlob entry for start of PCBs in LST 3 

Pointer to the PXFIXED area in (DL-2) 

Errorlevel, followed by 6 error words, at PXFIXED+35 

System code bit for process at offset PCB+3(1:1) 

Process type bit for process at offset PCB+9(6:1) 



*»««...«.* WARNING •**•••••*«- + 

IF ANV OF THE OFFSETS OR BIT POSITIONS USED BY THIS CODE | 
SHOULD CHANGE IN FUTURE VERSIONS OF MPE, THIS CODE MUST I 
BE MODIFIED OR IT WILL CEASE TO WORK PROPERLY. | 

„ ^ 

This routine also makes use of the enhanced LST/SST code, 
assuming the value for LST 3 to be in XRB105 (!E9). 

The oriLglnal source in SPL which this is taken from is 
defined iLn the module CHECKER, and is as follows: 

<<RUN TIME f ABORT) ERRORS. 

- INCREMENT ERROR LEVEL 

- CLEAR ERROR WORD >> 
<< >> 

PROCEDURE ERRORON; 

OPTION PRIVILEGED, UNCALLABLE, • 



BEGIN 



EQUATE 



CPCB=4, 

SYXL=9, 

SYSL=3; 

SYSF=(11:1)«; 

SYXF = (6;l)1t; 

TRAPFLD=(2:1)«; 

PCBPT = CURPRCtt; 



DEFINE 

DEFINE 

DEFINE 

DEFINE 

INTEGER PXFIXEDLOC; 

LOGICAL STATUS=0-1; 

INTEGER INDEX; 

< < > > 

STATUS. TRAPFLD;'0; 



<<TURN OFF TRAPS>> 
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RECORD C.S. **.*.«««».. ALU A ••••».••«.• •....»...*... ^lu b ••••»•••«•*•*» 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

13127 • IF PROCSTATE .SYSTEMPROCFLAG THEN RETURN, * 

13128 • PXFIXED; • 

13129 • TOS:=PXFXERRLEVEL: * 

13130 • IF • THEN STKINFO. INSYSTEMFLAG :• 1; * 

13131 • TOS :• TOS+1; * 

13132 » ASSEMBLE(DUP,DUP) ; * 

13133 • PXFXERRLEVEL:«TOS; 

13134 * INDEX :=TOS; * 

13135 • T0S:'T0S-6; * 

13136 * IF > THEN RETURN; * 

13137 * IF < THEN 

13138 ' BEGIN PXFXINTRERR : -0; <<u5es index>> • 

13139 • INDEX "INDEX+l; • 

13140 • END; 

13141 • PXFXINTRERR:«0; • 

13142 • END; • 

13143 * * 

13144 * Where the previously defined objects are: • 

13145 " LOGICAL POINTER * 

13146 • LPCB-3; (SYSGLOB ENTRY t OF START OF PCBS • 

13147 * DEFINE * 

13148 • CURPRC-ABS0LUTE(4)t; "FIXED LOWMEMf OF CURRENT PCB * 

13149 * EQUATE * 

13150 * STKINF0W0RDNUM.3; ! STACK DST NUMBER • 

13151 • DEFINE * 

13152 • STKINFO«LPCB(PCBPT+STKINFOWORDNUM)»; * 

13153 * DEFINE * 

13154 ' INSYSTEMFLAG-(1:1)», !IF EXECUTING SYSTEM CODE * 

13155 * EQUATE • 

13156 • PR0CSTATEW0RDNUM«9; * 

13157 • DEFINE * 

13158 • PROCSTATE-LPCB(PCBPT+PROCSTATEWORDNUM)»; * 

13159 • DEFINE * 

13160 • SYSTEMPR0CFLAQ-(6:l)t; "SYSTEM PROCESS TYPE • 

13161 • INTEGER * 

13162 • SO=S-0; * 

13163 • ARRAY • 

13164 ' QARRRAYI*) • Q+O; • 

13165 * INTEGER ARRAY 

13166 • 0AM2(*) • 0-2; * 

13167 • ARRAY * 

13168 • QP35(*) > OARRAY+35; 

13169 » DEFINE * 

13170 • PXFIXED»PUSH(Q,DL) ; * 

13171 • << TOS = DL - >> • 

13172 • PXFIXEDLOC := TOS-0AM2 ( SO ) « ; • 

13173 • << (DL-0) - contents of (DL-2) >> • 

13174 * DEFINE • 

13175 • PXFXERRLEVEL=OP35(PXFIXEDLOC)«, * 

13176 ' PXFXINTRERR=OP35(PXFIXEDLOC+INOEX)«; 

131'' * <<INDEX must be defined in process>> • 

131 '« ' <<INDEX must start at 1>> * 

I3i7n • • 

13180 ........»...«.*...».....».................».....»».».......... ....... 
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RECORD 

NO 

13182 
13184 
13185 
13187 
13188 
13190 
13191 
13193 
13194 
13196 
13197 
13199 
13200 
13202 
13203 
13205 
13206 
13207 
13208 
13210 
13211 
13213 
13214 
13216 
13217 
13219 
13220 
13222 
13223 
13225 
13226 
13227 
13229 
13230 
13232 
13233 
13235 
13236 
13238 



C.S. 
ADDR 

0080 

0D81 

0D82 

0D83 

0D84 

OD85 

OD86 

OD87 

OD88 
0D89 
008A 
0D8B 
0D8C 
0D8D 

0D8E 
0D8F 
0D90 
0D91 



ERON Inst ruction 

.«<,...«>,•.* ALU A <,»•*.*•).•><, 

lABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 
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ERON P 
0004 
UBA 

0209 UBB 
UBA OPA 
UBB 
DFFF 
UBA OPA 



INC 

ADDL 

ADD 

ADDL 

ADD 

ADD 

ADDL 

AND 



RONP 


00E9 




ADDL 
ADD 


CTR 
BKX3 


R0X3 


FFEO 


REGN 


ANDL 






OOIF 


REGN 


ANDL 


BKX3 


R0B3 


FFFF 


Q 


ADDL 




ROS 




P 


INC 


P 




0200 


OPB 


ANDL 




DATA 


FFFE 


DL 


ADDL 





ZERO 
NEXT 



The next 6 lines are very dependent on each other and should 
NOT be modified without careful study, especially the reads 
UBB ADD 



FFFA 
0023 DL 
UBA OPA 



ADDL 

ADDL 

SUB 

ADD 

ADD 

INC 



end of heavily dependent code. 
■■"■ ADDL 



FFF9 UBA 
UBA 



ADD 
ADD 
ADD 



NEG 
NEXT 



RH 


UBA 


ADD 
ADD 


4000 


OPB 


lORL 




OPB 


ADD 




SPIB 


ADD 


RH 


UBA 


ADD 




UBA 


INC 
ADD 
ADD 



ROAS 
R0X3 



SPIB 
SP3B 



DATA 
WRS 



DATA 
DATA 



Read next instruction into NIR 

Set up for LST 3 

Set up for CPCB read (absolute 4) 

Use bank zero for absolute read 

Read CPCB (absolute 4) into OPA 

Partial offset for LST 3 

Get final offset for LST 3 

Get the banl( number from the LST 3 

Get PROCSTATE-(*(LST 3)+ • ( abs4) + ! 209 ) 

Get pointer to status (Q-l| to mask 

Read the status to mask user traps 

Increment P so it points to next inst. 

Mask for user trap enable status off 

Test PROCSTATE.SYSTEMPROCFLAG bit 

Write masked status back out 

Get DL-2, return if system process 



Get (-6) for STKINFO address calcs 
Read (DL-2) for ERRORLEVEL computation 
Get DL+123 as part of ERRORLEVEL addr 
Read STKINFO into OPB for flag set 
Read ERRORLEVEL into OPB, ptr in RH, 

where ERRORLEVEL= (DL- •(DL-2)+ !23) 
Set STKINFO. INSYSTEMFLAG, but we will 

not write it til we check ERRORLEVEL 
Test ERRORLEVEL for zero, as well as 

saving it in SP3B for later checks 
Increment ERRORLEVEL and write it out 
Write modified STKINFO if ERRORLEVEL-0 

Compute (orig ERRORLEVEL) -6 for tests 
Set up for PXFXINTRERR wri t es-indexed 
Test ERR0RLEVEL>6, skip next if false 
Test ERR0RLEVEL<6 so skip extra clear 
Return if > 6, thus not clearing any 
Conditional clear PXFXINTRERR, inc ptr 
Always clear one PXFXINTRERR if <- 6, 
and then return from routine 
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RECORD C.S. ........... f^nj A ....«.«••** «. .<,*«**«*.*. f^nj g ••••>,.•....*«* 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

13241 • * 

13242 * ERXT - REPLACEMENT FOR THE MPE PROCEDURE ERROREXIT • 

13243 * • 

13244 • Macro-assembly code: %020104 ,%000031 (doubleword op) * 

13245 * available in verion CX2603A and beyond * 

13246 * * 

13247 * This microcode routine replaces the MPE procedure * 

13248 • ERROREXIT. All the offsets to the locations used by this • 

13249 • routine, and the different bit positions accessed by it, are * 

13250 • hard coded as they are defined in U-MIT • 

13251 * The routine is built on top of the new LST/SST instruc- • 

13252 • tions which store the first 16 table pointers in the extended • 

13253 • registers !E6 through !F5. • 

13254 • * 

13255 • + ««..*««» WARNING ••*••*••»* + • 

13256 • I IF ANY OF THE OFFSETS OR BIT POSITIONS USED BY THIS CODE | * 

13257 • I SHOULD CHANGE IN FUTURE VERSIONS OF MPE, THIS CODE MUST | • 

13258 • I BE MODIFIED OR IT WILL CEASE TO WORK PROPERLY. I • 

13259 • + - + • 

13260 • • 

13261 * The original SPL source code, as defined in the module * 

13262 • CHECKER is as follows : ' 

13264 • <<RUN TIME (ABORT) ERRORS. • 

13265 * IF STOV FLAG SET THEN ABORT * 

13266 • IF ERROR LEVEL <-l • 

13267 • IF INTRINSIC i-gg THEN IGNORE CARRY AND NO ABORT • 

13268 • IF ERRWORDoO THEN (ERROR) • 

13269 • -INSERT ERRWORD • 

13270 • -IF INTRINSIC •«0 DO NOT ABORT • 

13271 • -IF ERROR LEVEL <-0 THEN ABORT 

13272 • RESET :-Q-DELTAQ • 

13273 • CARRY BIT IN STATUS: • 1 IF ERROR • 

13274 • :- IF NO ERROR * 

13275 • DECREMENT ERROR LEVEL • 

13276 « EXIT THROUGH THIS PREVIOUS STACK MARKER * 

13277 • USING PARAMETER COUNT (N) • 

13279 • INTRINEXIT. (0:10) = INTRINSIC ERROR « • 

13280 * (10:6) » PARAMETER COUNT (N) • 

13281 • ERRWORD. (0:8) = PARAMETER • 

13282 • (8 8) = ERROR BYTE • 

13283 ■> PARAM =^ ADDITIONAL INFO IF ABORT OCCURS >> • 

13284 • • 

13285 •PROCEDURE ERROREXIT ( INTRINEXIT , ERRWORD , PARAM) ; * 

13286 • VALUE INTRINEXIT , ERRWORD , PARAM , * 

13287 • LOGICAL INTRINEXIT , ERRWORD , PARAM; 

13288 • OPTION PRIVILEGED , UNCALLABLE ; 

13289 ' BEGIN ' 

13290 • EQUATE TYPE=1, MARK'2, MODE* [8/MARK , 8/TYPE] ; * 

13291 • EQUATE SOTYPE=0, SOCODE=20, SOMODE« [ 8/MARK , 8/SOTYPE] , * 

13292 * EQUATE CPCB=4, * 

13293 • SYSL=3, * 

13294 « SYXL=9, * 

13295 * ST0VL=9; • 
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RECORD 

NO 

13296 
13297 
13298 
13299 
13300 
13301 
13302 
13303 
13304 
13305 
13306 
13307 
13308 
13309 
13310 
13311 
13312 
13313 
13314 
13315 
13316 
13317 
13318 
13319 
13320 
13321 
13322 
13323 
13324 
13325 
13326 
13327 
13328 
13329 
13330 
13331 
13332 
13333 
13334 
13335 
13336 
13337 
13338 
13339 
13340 
13341 
13342 
13343 
13344 
13345 
13346 
13347 
13348 
13349 
13350 
13351 



ERXT Commeniary 
C.S. «<.<.«...««,«» ALU A •••••*••••• 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



DEFINE ST0VF»(5:1)« 

DEFINE SYXF»(6:1)«; 

DEFINE SYSF=(11:1)« 

DEFINE IFLD=(0:10)« 
NFLD=(10;6)» 
CFLD=(5:1)»; 

ARRAY QARRAY(*)«0+0 

INTEGER PXFIXEDLOC; 

INTEGER INDEX; 

INTEGER PCBPT; 

INTEGER KARRY=0; 

LOGICAL DELTAO=Q+0, 



• ••••••••«<,** ALU B <,•*«*.<,«***,><,• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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STATUS=Q-1 ; 



PCBf'T ■= CURPRC" 

IF PROCSTATE.SYSTEMPROCFLAG THEN GOTO CONT ; 

PXFIXED; 



TOS: 
IF< = 



:=PXFXERRLEVEL; 
THEN 

BEGIN T0S:-T0S+1; 
INDEX: «0; 
PXFXINTERR: >0 
INDEX:=1 , 
PXFXINTERR:=0 
END; 
T0S:«T0S-1; 
ASSEMBLE(DUP,DUP) ; 
PXFXERRLEVEL:»TOS; 
ASSEMBLE (TEST) ; 
IF > THEN GOTO CONTX ; 
STKINFO . INSYSTEMFLAG : »0 ; 
IF f'ROCSTATE.STOVFLAG 

AND NOT RESABORTINFO.CRITFLAG 
AND NOT RESABORTINFO.HASSIRFLAG 



< DECR. ERROR LEVEL >> 



<<STACK OVFLW CHECK>> 



THEM 



TOS: 
IF 



BEGIN 

COMMENT: LET KERNEL ROUTINES KNOW PROCESS IS 

ABORTING. NOTE THAT ERROREXIT DOESN'T CHECK 
STOVABORT BIT SINCE CURRENTLY STOV->ABORT-> 
DEBUG->ERROREXIT MUST RESULT IN ANOTHER CALL 
TO ABORT STOVABORT BIT IS LEFT ON TO ALLOW 
YOU TO GET INTO DEBUG. WE COUNT ON LAST CALL 
TO ERROREXIT TO CATCH STOV AND GO TO ABORT; 

DISABLE j^ 

PROCSTAtE.STOVFLAG:=0; < <MUST TURN THIS OFF>> 

RESAB0RTINF0.ST0VAB0RTFLAG:=1; 

ENABLE, 

ABOR T ( SOMOOE , SOCODE , ) ; 

END, 

<<ERROR WORD>> 
<<N0 ERROR>> 



-ERRWORD; 
THEN GOTO CONT 
K A R R' Y 3 I ' 

ASSEMBLE (XCH.DUP) ; 
IF T0S>=6 THEN 
BEGIN DEL, 

TOS: =5, 
END, 
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RECORD , 

NO 

13352 
13353 
13354 
13355 
13356 
13357 
13358 
13359 
13360 
13361 
13362 
13363 
13364 
13365 
13366 
13367 
13368 
13369 
13370 
13371 
13372 
13373 
13374 
13375 
13376 
13377 
13378 
13379 
13380 
13381 
13382 
13383 
13384 
13385 
13386 
13387 
13388 
13389 
13390 
13391 
13392 
13393 
13394 
13395 
13396 
13397 
13398 
13399 
13400 
13401 
13402 
13403 
13404 
13405 
13406 
13407 



C.S. 
ADDS 



ERXT Commentary 

**ftftft««««A« ALU A *********** 
LABL RREQ SREQ FUNC SFNC STOR SPSK 



************* ALU B ************** 
RREG SREQ FUNC SFNC STOR SPEC SKIP 
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<<PUT ERROR WORD>> 



INDEX :-TOS+l: 

PXFXINTERR:-tOS; 

ASSEMBLE (TEST) ; 

IF > THEN GOTO CONT ; <<NESTED ERROR>> 

IF INTRINEXIT.IFLD-0 THEN GOTO CONT; 

ABORT(MODE,INTRINEXIT,PARAM); 



TOS 
TOS 
TOS 
TOS 



X031400; <<EXIT INSTRUCTION)) 

•TOS LOR INTRINEXIT.NFLD; 
-KARRY; 

INTRINEXIT IFLD; 



ASSEMBLE (SED 0); 

PUSHIQl ; 

TOS;«DELTAO; 

TOS: -TOS -TOS; 

SET(Q); 

IF t0S"99 THEN DEL ELSE STATUS CFLD: -TOS ; 

ASSEMBLEtXEQ 0); << EXIT N >> 

HELP; <<DEBUG LINKING CALL>> 



where : 

Current PCB number in ■bsolute(4) 

Sysglob entry for start of PCB's in LST 3 

Pointer to PXFIXED in (DL-2) 

Errorlevel at PXFIXED+35 

Stack information for process at offset PCB+3 

Process state information for process at offset PCB+9 

Abort information for process at offset PCB+0 



IDENTIFIER 


CLASS 


TYPE 


ADDRESS 




CFLD 


DEFINE 






(5:1) 


CONT 


LABEL 




PB+165 




CONTX 


LABEL 




PB+134 




CPCB 


EQUATE 






VALUE -XA 


DELTAQ 


SIMP.VAR 


LOGICAL 


Q+000 




ERRWORD 


SIMP.VAR 


LOGICAL 


Q-005 




IFLD 


DEFINE 






(0:10) 


INDEX 


SIMP.VAR 


INTEGER 


0+002 




INTRINEXIT 


SIMP.VAR 


LOGICAL 


Q-006 




KARRY 


SIMP.VAR 


INTEGER 


Q+004 




MARK 


EQUATE 






VALUE -%2 


MODE 


EQUATE 






VALUE'XIOOI 


NFLD 


DEFINE 






(10:6) 


PARAM 


SIMP VAR 


LOGICAL 


Q-004 




PCBPT 


SIMP.VAR 


INTEGER 


0+003 




PXFIXEDLOC 


SIMP.VAR 


INTEGER 


Q+OOl 




OARRAY 


ARRAY 


LOGICAL 


Q+000 




SOCOOE 


EQUATE 






VALUE=%24 


SOMODE 


EQUATE 






VALUE=%1000 


SOTYPE 


EQUATE 






VALUE'%0 


STATUS 


SIMP.VAR 


LOGICAL 


Q-OOl 




STOVF 


DEFINE 






(5:1) 


STOVL 


EQUATE 






VALUE=5!;il 


SYSF 


DEFINE 






(11 1) 
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RECORD 

NO 

13408 
13409 
13410 
13411 
13412 
13413 
13414 
13415 
13416 
13417 
13418 
13419 
13420 
13421 
13422 
13423 
13424 
13425 
13426 



ERXT Commentary 
C.S. *»,...*...,.« ALU A ••**•••*••• 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



SYSL 
SYXF 
SYXL 
TYPE 



EQUATE 
DEFINE 
EQUATE 
EQUATE 



».„»*i,<.*»„»** ALU B •*•«••••••«>•• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



VALUE -XS 

(6:1) 
VALUE 'Xll 
VALUE'%1 



10/ 2/86 9:27 AM 



NOTE : Procedure ERROREXIT requires three parameters, i.e 
INTRINEXIT, ERRWORD, and PARAM, This microcode version 
assumes that these parameters are pushed onto the stack 
previous to calling the routine, and that they will reside 
in TOS registers RC,RB, and RA respectively. 

When we exit the microcode routine, the condition codes 
will be set to pattern CCA, where CCE means an exit thru 
the previous stacK marker (taken care of in the definel, 
and CCG means that we have to go to ABORT. If the latter is 
true, the necessary parameters for the ABORT procedure will 
be pushed onto the stack by ERXT. 
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RECORD 

NO 

13428 
13430 
13432 
13433 
13434 
13436 
13437 
13439 
13440 
13442 
13444 
13446 
13448 
13449 
13451 
13452 
13454 
13455 
13457 
13458 
13460 
13461 
13463 
13465 
13466 
13468 
13470 
13471 
13473 
13475 
13476 
13478 
13480 
13481 
13482 
13484 
13485 
13487 
13488 
13490 
13491 
13493 
13495 
13496 
13497 
13498 
13499 
13501 
13502 
13503 
13505 
13506 
13508 
13509 
13511 
13513 



C S. 
ADDR 



0D92 
0D93 



0D94 

0D95 

0D96 
0D97 
0D9 8 
0D99 

0D9A 

0D9B 

0D9C 

0D9D 

0D9E 
0D9F 

ODAO 
ODAl 

0DA2 
0DA3 

0DA4 
0DA5 

0DA6 

aDA7 

0DA8 

0DA9 
ODAA 



ERXT Instruction 

*.«*.•«.«,<,• ALU A t. •.*...««. 

LABL RREG SREG FUNC SFNC STOR SPSK 

ERXT ADD 

JSZ 



ADD 

JSZ 

ADD 
ADD 
ADD 
0209 UBS ADDL 



*****««•*««** ALU B ****<(********* 
RREG SREG FUNC SFNC STOR SPEC SKIP 



P RONP 
BKX3 



FFFE DL 
UBA 

0023 DL 
UBA OPA 

OPA 



ADDL 

ADD 

ADDL 

SUB 

ADD 
ADD 

ADD 
JSB 



SP4A INC 
SPOA INC 



LBLl SPOA 



ADD 
ADD 



UBB ADD 

FFF7 RH ADDL 

UBA ADD 

ADD 
3000 OPA ANDL 



SRL2 




P 


INC 
ADD 


SRG2 


0004 




ADDL 


UNC 


UBB 




ADD 




00E9 

FFEO 
OOIF 


REQN 
REGN 


ADDL 
ADD 
ANDL 
ANDL 




UBA 


OPB 


ADD 


ROS 


FFFA 


UBB 


ADDL 




0200 


OPB 


ANDL 


SPOA ROS 






JSB 


SP4A 




OPB 
SPIB 


ADD 
ADD 


ZERO 
POS 


BFFF 


OPB 


ADD 
ANDL 


SP4A 

WRS 






ADD 
ADD 


DATA 
WRS 


FFFF 


SP4A 


ADD 
ADDL 


DATA 


UBB 




ADD 
JSB 


R0X3 




SPIB 


ADD 




FBFF 
0400 


SP2B 
SP2B 


ANDL 
ANDL 



CTR 

BKX3 

RH 

SPIB 



ZERO 
UNC 



ZERO 
POS 



ODAE 
TDAF 
ODBC 





JSB CONX 


0002 OPA 


lORL 


UBA 


ADD 

J-^B ABRT 

ADD 



ZERO 


UBB 


JSB 


UNC 




RH ADD 
SP2B ADD 


DATA 
UNC 


FFF9 


ADD 
ADD 
SP4A ADDL 



WRX3 
DATA 
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COMMENT 

Increment P and store new instr. In NIR 
jump to PUL2 if we have less than 2 valid 

TOS registers 
read from BANK 

Check for at least 3 valid TOS registers 
UBB gets 4 (for abs|4) read) 
Pull one item from memory to TOS regs . 
read abs(4) 
set up for LST 3 
waiting for the store in CTR 
get address bits for LST 3 
get partial address of PROCSTATE 
set the correct bank for future reads 
compute DL-2 for future use 
read PROCSTATE, store pointer in RH 
read from (DL-2) into OPA 
SPIB gets the address of STKINFO 
compute DL+123 for future use 
test if SYSTEMPROCFLAG is on 
read ERRORLEVEL, store pointer in SPOA 
if PROCSTATE. SYSTEMPROCFLAG on.jmp to ONTO 
store PROCSTATE in SP2B 
store ERRORLEVEL in SP4A 
read STKINFO into OPB 
if ERRORLEVEL « 0. skip the jump 
If ERRORLEVEL >0 go to LBLl 
Prepare to clear STKINFO. INSYSTEMFLAG 
else, increment ERRORLEVEL 
increment the pointer to ERRORLEVEL, and 

set up for the write . 
clear (original ERRORLEVEL location) +1 
set up to write into (orig. ERRORLEVEL loc . ) 
ERRORLEVEL gets ERRORLEVEL-1 , store new 

value in SP3B for future use 
write new data into original location 
if new ERRORLEVEL > 0, skip the jump 
get address of RESABORTINFO 
If new ERRORLEVEL > 0, go to CONX 
read RESABORTINFO Into OPA 
if new ERRORLEVEL<-0, clear INSYSTEMFLAG 
Prepare to clear PROCSTATE . STOVFLAG (2604) 
test both, RESABORTINFO. CRITFLAG and 

RESABORTINFO. HASSIRFLAG 
get PROCSTATE. STOVFLAG 
**this line MUST immediately follow the 

previous one for SP2B to be correct*'* 
if either CRITFLAG or HASSIRFLAG are set 

then jump to CONX 
if PROCSTATE. STOVFLAG=0 then jump to CONX 
jump to CONX 

set up for the write into PROCSTATE (2604) 
prepare to set RESABORTINFO. STOVABORTFLAG 
clear PROCSTATE . STOVFLAG 
set RESABORTINFO. STOVABORTFLAG 
Jump to ABORT 
Get ( new ERRORLEVEL )- 6 into UBB and RH 
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£R) 


RECORD 


C.S. 




NO 


ADDR 


LA8L 


13515 


ODBl 




13517 






13518 


0DB2 




13520 






13521 






13522 


0DB3 




13524 






13525 






13526 


0DB4 




13528 






13529 






13530 


0DB5 




13532 






13533 


0DB6 




13535 


0DB7 




13537 


0DB8 




13539 


0D69 




13541 


0D6A 


CNTO 


13543 






13544 


ODBB 


CNTl 


13546 






13547 






13548 


ODBC 




13550 






13551 


ODBD 




13553 






13554 


ODBE 




13556 






13557 


ODBF 




13559 


ODCO 




13561 


ODCl 




13563 


0DC2 




13665 


0DC3 




13567 


0DC4 


EXT 


13569 


0DC5 




13571 


0DC6 


ABRT 


13573 


0DC7 




13575 


0DC8 




13577 






13578 


0DC9 


ABTl 


13580 


ODCA 




13582 


ODCB 





ERXT Inst rue t ion 

.«..«... ALU A •««•••«*••• 
LA8L RREG SREG TUNC SFNC STOR SPSK 



NEG 
WRS 



UBB 


ADD 


SPOA UBB 


ADD 


RH 


ADD 



SPOA SP4A ADD 



ADD 

ADD 
ADD 
ADD 
ADD 
ADD 

ADD 



FFCO RC ANDL 

E740 USA ADDL 

UBA JSB EXT 

ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
ADO 
ADD 

ADD 
ADD 
ADD 



..«..••«<,<,..,. ALU B «»••»•*••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



ADDL 
ADD 



JSB CNTO 



DATA SP3B 







JSB 


CNTl 






UNC 


FFCO 


RC 


ANDL 

JSB 

JSB 


CNTl 
ABTl 






NZRO 

UNC 

UNC 


FBFF 




ADDL 




RH 






003F 


RC 
UBA 


ANDL 
ADD 




SPIB 






UBB 


OPB 


SUB 







.. 




FFFF 


UBB 


ADDL 










UBB 




ADD 






ROS 




RH 




ADD 








EVEN 


RH 


OPB 


AND 






DATA 




RH 




ADD 








ODD 


RH 


OPB 


lOR 






DATA 




3300 


SPIB 


lORL 
ADD 




RA 


CCA 


NEXT 


0014 




ADDL 




RB 






0200 




ADDL 




RC 








UBB 


ADD 






CCA 


NEXT 


0201 


RC 


ADDL 
ADD 




RC 
RB 








RC 


ADD 






CCA 


NEXT 
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COMMENT 

If (new ERR0RLEVEL)<6, skip 

Put 6 into UBB 

else, set up to write PXFXINTERR location 

where INDEX>6 
if ERRWORDlin RB)=0, take jump to CNTO 
skip next line if INDEX = 6 
use RH as a mask depending on entry point 

to CNTl/CNTO 
set up to write PXFXINTERR location 

where INDEX* ERRORLEVEL 
go to CNTO 

Write ERRWORD into correct location 
Test ERRORLEVEL-1 
If entry flag • 0. go to CNTl 
If INTRINEXlT(in RC) . (0 : 10 ) <>0 , go to ABORT 
else, go to CNTl 
go to ABORT 
set up mask, depending on entry point. 

store it in RH 
Read delta Q into OPB 
these bits determine how many items to pop 

off the stack when we exit 
UBA <- INTRINEXIT(0:10) 
UBB <- Q 

UBA <- INTRINEXIT(0:10) - 
Q <- Q - DELTAO 
If INTRINEXIT(0:101 - 99 
UBB <- Q -1 (STATUS) 
Read STATUS into OPB 
If error, skip next line 
Clear STA.CFLD 
If no error, skip next line 
Set STA.CFLD 

TOS <- exit (N) instruction 
EXIT and set condition code to CCE 
push SOCOOE onto TOS-1 
push SOMODE onto TOS-2 
push onto TOS 
set CCA to CCG and EXIT 
push MODE onto TOS-2 
push INTRINEXIT onto TOS-1 



99 
t 0, go to EXT 
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RECORD 

NO 

13584 
13585 
13586 
13587 
13588 
13589 
13590 
13591 
13592 
13593 
13594 
13595 
13596 
13597 
13598 
13599 
13600 
13601 
13602 
13603 
13604 
13605 
13606 
13607 
13608 
13609 
13610 
13611 
13612 
13613 
13614 
13615 
13616 
13617 
13618 
13619 
13620 
13621 
13622 
13623 
13621 
13625 
13626 
13627 
13628 
13629 
13630 
13631 
13632 
13633 
13634 
13635 
13636 
13637 
13638 
13639 



C.S 
ADDR 



XGDB Commentary 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



XGDB - REPLACEMENT FOR THE MPE PROCEDURE EXCHANQEDB 

Macro-assembly code: X020104 ,X000032 (doubleword op) 
available in version CX2603A and beyond 

This microcode routine replaces the MPE procedure EXCHANQEDB, 
which switches the OB and DBank software registers to point to 
a specific data segment (passed in as the DST« of the segment) 
or to the program's own stack segment (passed as 0). The 
microcode handles all cases except absent data segments, which 
are detected and passed back to the software to handle. This 
is flagged bv the condition codes: CCE means the microcode was 
able to handle it, CCG means the software must. 



f .««•««•«•• WARNING ••*••*«•••-- + 

I IF ANY OF THE OFFSETS OR BIT POSITIONS USED BY THIS CODE I 
I SHOULD CHANGE IN FUTURE VERSIONS OF MPE, THIS CODE MUST I 
I BE MODIFIED OR IT WILL CEASE TO WORK PROPERLY. | 

t + 

The SPL source used to create this routine is as follows: 

LOGICAL PROCEDURE EXCHANGEDB (WHERE ) ; 

VALUE WHERE, 

INTEGER WHERE- 

OPTION PRIVILEGED, UNCALLABLE; 

COMMENT 

EXCHANQEDB IS CALLED TO PUT DB AT THE BASE OF A DATA SEGMENT 
OR TO RETURN DB TO THE CALLER'S STACK DB THE DESTINATION DATA 
SEGMENT NUMBER IS SUPPLIED AS PARAMETER IF NOT RETURNING TO THE 
STACK. IF RETURNING TO THE STACK, SUPPLY AS PARAMETER. 

EXCHANQEDB RETURNS THE DST NUMBER OF WHERE DB WAS (0 IF STACK). 
THIS VALUE MAY BE SAVED AND RETURNED ON THE NEXT CALL TO EXCHAN 
TO RESTORE THE PREVIOUS ENVIRONMENT. 



BEGIN 

LOGICAL DELTAP-0-2: 
LOGICAL STATUS-Q-1; 
INTEGER PROCINX, 

PCBPT; 
DOUBLE OBJ :» OD; 
LOGICAL ARRAY OBJIDENTC 
INTEGER DESCSTINX; 

TURNOFFTRAPS; 

PDISABLE; 
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RECORD 

NO 

13640 
13641 
13642 
13643 
13644 
13645 
13646 
13647 
1364S 
13649 
13650 
13651 
13652 
13653 
13654 
13655 
13656 
13657 
13658 
13659 
13660 
13661 
13662 
13663 
13664 
13665 
13666 
13667 
13668 
13669 
13670 
13671 
13672 
13673 
13674 
13675 
13676 
13677 
13678 
13679 
13680 
13681 
13682 
13683 
13684 
13685 
13686 
13687 
13688 
13689 
13690 
13691 
13692 
13693 
13694 
13695 



C.S. 
ADDR 



XGDB Commentary 

..........I, ALU A ••••••«••*• 

LABL RREQ SREG FUNC SFNC STOR SPSK 



«*.«...•..,... ALU B «««««•••«••«<.« 
RREG SREG FUNC SFNC STOR SPEC SKXP 
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< <MMSTAT ■ (KMSTATEXCHDB .WHERE . DELTAP , STATUS , . , ) ; > > 
IF PMBCFIRMWARE 

THEN UPDATE ICS'XDSEGBNKCELL; 
TOS:=%1000D; 

ASMB(XCHD); <<FOR FAST ADDRESSING)) 
PROCINX ;« PCBPT := CURPRC; 
TOS:=DBXDSINFO; 

IF < THEN SUDDENDEATH(611) ; < <MUST RESET FIRST>> 
EXCHANGEDB : »TOS . XDSDSTFIELD ; 
TOS: -WHERE; 

TOS. (0:1) ;-0; <<DISCARD CLEAN BIT)) 
DBXDSINFO. XDSDSTFIELD :« SO; 
OBJIDENT(ObilDnumField) :=S0; 
IF S0=0 THEN 

BEGIN <<DB GOES TO STK)) 

TOS;=ICS(-ICS'STKBANKCELL) ; 

TOS:=ICStX:=X+l) ; 

ASMB(XCHD) ; 

END 
ELSE 

BEGIN <<GOING TO AN XDS>) 

IF DST(O) < SO THEN SUDDENDEATH(611 ) ; <<OUT OF RANGE)) 

DISABLE; 

DESCSTIN1X:«T0S & LSL(2): 

IF DST(DESCSTINX)=%100060 THEN 
SUDDENDEATH(625) ; 

IF NOT 10GICAL(DST(DESCSTINX)) ABSENTFLAG THEN 
BEGIN <<NEW DB SEG IS PRESENT)) 
IF PMBCFIRMWARE 



THEN BEGIN 

X := DESCSTINX; 

GET 'XDSEG'LIMITS; 

XFER'XDSEG' LIMITS; 

END; 



DESCSTINX; 

:»X+2); 

:-X+l) ; 



X 

T0S:»DST(X;" 
T0S:-DST(X:' 
ASMB(XCHD) : 
END 
ELSE 

BEGIN <<NOT PRESENT) > 
ENABLE: 

IF LC<3ICAL(DST(X;«X+1)) ROCFLAG THEN 
BEGIN 
IF GCLASSENABLEDMASK.CLASSO THEN 

BEGIN <<MEASURE RECOVERY OF DATA SEQ BY PROCESS) > 

TOS : "MEASSTATXDSBANK ; 

TOS : -MEASSTATXDSBASE ; 

TOS : •TOS+COSUBO ' SEGRELOFF+C DATARECOVERY ; 

ASMB(LSEA) ; 

T0S:=T0S+1; 

ASMB(SSEA;DDEL) ; 

END; 
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RECORD 

NO 

13696 
13697 
13698 
13699 
13700 
13701 
13702 
13703 
13704 
13705 
13706 
13707 
13708 
13709 
13710 
13711 
13712 
13713 
13714 
13715 
13716 
13717 
13718 
13719 
13720 
13721 
13722 
13723 
13724 
13725 



XGDB Comnienlary 
C S. .«...««.... ALU A •«**••••••• ««.»«.•.«*••. ALU B •«•••••••••••• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

• RECOVEROC(OBJ,DESCSTINX,DD) ; 
END 

« ELSE 

• BEGIN <<REALLY ABSENT>> 

• QueueOnObjec t (OBJ) ; 

• PDISABLE; 

• END, 
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IF PMBCFIRMWARE THEN 

BEGIN 

X ■ DESCSTINX; << SET X 

GET'XDSEQ'LIMITS; 

XFER'XDSEG'LIMITS; 

END: 

X :« DESCSTINX; 
TOS:« DST(X:« X+2) ; 
T0S:-DST(X:.X+1) ; 
ASMB(XCHD) ; 
END; 
DST (DESCSTINX) . REFERENCEDFLAG : -1 ; 
END; 
PENABLE; 
END <<PROCEDURE EXCHANGEDB> > : 

And now for the microcode procedure.. 



TO DST ENTRY >> 
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RECORD 

NO 

13727 
13729 
13730 
13732 
13733 
13735 
13736 
13738 
13739 
13741 
13742 
13744 
13745 
13747 
13748 
13750 
13751 
13753 
13754 
13756 
13757 
13759 
13760 
13762 
13763 
13765 
13766 
13768 
13770 
13772 
13773 
13775 
13776 
13778 
13779 
13781 
13783 
13784 
13786 
13787 
13789 
13790 
13792 
13793 
13795 
13796 
13798 
13799 
13801 
13802 
13804 
13806 
13807 
13809 



C S. 
ADDR 

ODCC 

ODCD 

ODCE 

ODCF 

ODDO 

ODDl 

0DD2 

0DD3 

0DD4 

0DD5 

0DD6 

0DD7 

ODDS 

0DD9 
ODDA 
ODDB 

ODDC 

ODDD 

ODDE 
ODDF 

OOEO 

ODEl 

0DE2 

0DE3 

ODE 4 

ODES 

0OE6 
ODE 7 

oors 

ODt 3 



XGDB Inst rue 
LAI3L RREG SREG 
XGDB UBA 

0202 OPA 
UBA UBB 
SPOA Q 

OPA 
RH OPA 
COOO OPA 
OlFC 
XFIN SP4A 
SPOA UBB 
UBB RG 
UBA 

RH 

1000 UBA 

GOXD 

SP2B 

UBA UBB 

UBB UBA 

0003 SREG 

OPA 

2000 

UBA OPA 



t ion 

*" ALU A •' 
FUNC SFNC 

CAD 

JSB XDIE 

ADDL 

ADD 

RSUB 

JSB 

AND 

ANDL 

ADDL 

ADD 

I OR 

ADD 

CAD 

ADD 
ADD 
INC 

lORL 

ADD 

ADD 
ADD 

ADD 

ADD 

ADDL 

JSB 

ADDL 

]:0R 

ADD 
ADD 

ADD 
ADD 



STOR SPSK 
R0X3 
SR7 

SP4A R0X4 
WRS 
NEG 
DATA 

SPOA 

RG 

WRX4 
DATA 
R0B3 
R0B3 



RREG 

00E9 

UBA 

FFEO 

OOIF 

3FFF 

7FFF 

UBB 

OOED 

RH 

FFEO 

OOIF 





REGN 

REGN 



OPB 
UBB 

SPIB 
REGN 
REGN 



>•«'* ALU B 
FUNC SFNC 

ADDL 

RSUB 

ANDL 

ANDL 

ADDL 

INC 

ANDL 

JSB 

ADDL 

AND 

ANDL 

ANDL 

ADD 



STOR SPEC SKIP 
CTR 

ROS 

BKX4 

RH 

P RONP 

SPIB 

SP2B NZRO 

CTR 



UBB 

UBA 

UBA 

00E8 
0200 

FFEO 

OOIF 

SP3B 

FFFF 

UBB 



OPB 
OPB 
BNKS 



REGN 
REGN 
SP2B 
SPIB 
OPB 



ADD 
ADD 
XOR 

ADD 

ADD 

ADDL 
ADDL 

ANDL 

ANDL 

ADD 

ADDL 

JSBS XDIE 

JSB XFIN 

INC 
ADD 

ADD 
ADD 



DB 
BNKD 



ZERO 
CCPX UNC 
CCPX 



CTR 
SP2B 



SP38 
BKX3 



POS 

UNC 
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COMMENT 

Read CURPRC > absolute(4) 

Set up for LST 3 (DBXDSINFO) 

Check to make sure RG is scratchpad 

Read WHERE from address (0-4) 

More LST 3 calculations (SYSGLOB + 2) 

Mask LST 3 for offset 

Full LST 3 read of DBXDSINFO 

Mask LST 3 for bank and put in BKX4 

Set up return value address (Q - 5) 

Set up mask for XDSDSTFIELD (2:14) 

Die if LST 3 (DBXDSINFO) < 

Move P up for doubleword instruction 

Mask and write return value to (0-5) 

Mask high bit of WHERE, store in SPIB 

Mask off low bits of DBXDSINFO for DPF 

Jump off to handle XDS if WHERE <> 

Offset of LST 7: ICS( -ICS_ABSTKDBCELL ) 

Set up for LST 7 access to REGN 

Set up for SST 3 write (DBXDSINFO) 

Mask WHERE for SST 3 deposit (2:14) 

Write SST 3 (DBXDSINFO. XDSDSTFIELD ) 

Mask for offset of LST 7/2 (ICS/DST) 

First full LST read ( ICS or DST) 

Mask LST for bank to read from 

Second LST read of ICS or DST 

Clear condition code for good return 

Put results of first read into DB 

Put results of second read into DBANK 

Set up 14000 for possible FSS set 

Check BNKS « BNKD for split stack mode 

Set up 15000 for possible FSS clear 

Set FSS (split stack) and skip clear 

Return to caller , but not before... 

Clear FSS (split stack) if not skipped 

Set up for LST 2 read (DST) 

Get (WHERE << 2) for LST 2 (DST) 

Get %1000 for SYSGLOB relative address 

Add %1000 to (WHERE << 2) for SYSGLOB 

Mask offset for LST 2 (DST) 

Full LST 2 (DST.DESCSTINX) read 

Mask LST 2 for bank of read (DST) 

Set up for LST 2 of XCHD.save in XRO 

Read LST 2 ( DST(O) ) for cmp to WHERE 

Die if bit 6 of DST.DESCSTINX is on 

Use WHERE-1 for compare to LST 2 

Bit set for SST 2: DST (DESCSTINX ) . REF 

Die if LST 2 < WHERE 

Write SST 2 ( DST (DESCSTINX ). REFERENC 

Finish up with code above.. 

Set condition code to show not handle 

Go to next macro instruction. 

set CCA to CCG and EXIT 

NOP to keep system happy 

NOP to keep system happy 
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RECORD 


C.S. 


NO 


ADDR 


13812 




13813 




13814 




13815 




13816 




13817 




13818 




13819 




13820 




13821 




13822 




13823 




13824 




13825 




13826 




13827 




13828 




13829 




13830 




13831 




13832 




13833 




13834 




13835 




13836 




13837 




13838 




13839 




13840 




13841 




13842 




13843 




13844 




13845 




13846 




13847 




13848 




13849 




13850 




13851 




13852 




13853 




13854 




13855 




13856 




13857 




13858 




13859 




13860 




13861 




13862 




13863 




13864 




13865 




13866 




13867 





TIMR Commentary 

***•*. HI,... ALU A •••••••«.«* 

LABL RREG SREG FUNC SFNC STOR SPSK 



••>••>•.*•.«. ALU B •••••«•••«••*« 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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TIMR - REPLACEMENT FOR THE MPE DOUBLE PROCEDURE TIMER 

Macro-assembly code: %O20104 ,%000033 (doubleword op) 
available In version CX2603A and beyond 

This microcode routine replaces the MPE procedure TIMER only 
lor the SERIES 64 machines. All the offsets to the locations 
used by this routine and the different bit positions accsessed 
by it are hard coded as they are defined in U-MIT. 

This routine is built on top of the new LST/SST instructions 
which store the first 16 table pointers in the extended regs . 
!E6 through !F5. 



..«....«.. WARNING •»•*•••••• -- + 

IF ANY OF THE OFFSETS OR BIT POSITIONS USED BY THIS CODE I 
SHOULD CHANGE IN FUTURE VERSIONS OF MPE, THIS CODE MUST | 
BE MODIFIED OR IT WILL CEASE TO WORK PROPERLY. | 



This routine returns an unsigned 31 bit double word. 
This quantity represents the number of milliseconds since the 
midnight preceeding the last cold load. This quantity will be 
reset to zero on 24-day intervals at exactly 12 o'clock midnight 
Detection and correction of this case between two calls to TIMR 
(less than 24 days apart) can be done as follows 

If the current returned TIMR value is equal or less than the 
last TIMR value, add 2073600000 (the number of MS in 24 days) 
to the result . 

The millisecond count since the midnight preceeding cold load 
is computed in number of clock ticks by adding the count regis- 
ter (XR31) of the system clock with the overflow counter (TRL(5) 
and TRL(6)) The procedure TICK will reset the count in TRL 
every 24 hours and the number of days since cold load is stored 
in TRL(3). TRL(3) is reset every 24 days and the base Julian 
date is updated accordingly. 

This routine places the LSW of the result in 0-4 and the MSW of 
the result in 0-5(1:15) . 

The SPL code is as follows : 



DOUBLE PROCEDURE TIMER; 
OPTION PRIVILEGED; 



LOGICAL S33 = TRUE; 

INTEGER NUM'OFDAYS. TICK'IN'INT = 1100, 

MSW = 0-5, LSW = 0-4; << RETURN VALUE >> 
DOUBLE MS, NUMOF ' TICKS, NUM ' TICK ' PER ' DAY = 944710000D; 
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RECORD C S. 


NO ADDR 


13868 


13869 


13870 


13871 


13872 


13873 


13874 


13875 


13876 


13877 


13878 


13879 


13880 


13881 


13882 


13883 


13884 


13885 


13886 


13887 


13888 


13889 


13890 


13891 


13892 


13893 


13894 


13895 


13896 


13897 


13898 


13899 


13900 


13901 


13902 


13903 


13904 


13905 


13906 


13907 


13908 



TIMR Commentary 

..*...•..*>, ALU A «•««•••••«• 
LABL RREG SREG FUNC SFNC STOR SPSK 



**»„,*****»*» ALU B •«•••««*••*•«• 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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REAL TICKTO'MS :■ 9 . 14566375E-2 ; < <CONVERT TICK TOMS>> 
SET(STATUS) ; 



<< COUNT REG VALUE >> 



LAST UPDATED COUNT REG VALUE >> 



DISABLE; 

PUSH(STATUS) ; T0S.(2;1):- 

ASMB(PCN) ; << GET CPU « 

IF TOS <> SERIES'33 THEN 

BEGIN 

S33 : • FALSE; 

NUM' TICK 'PER 'DAY :« MS PER 'DAY; 
END; 

TOS :- 0; 
ASMB(RCCR) , 
IF S33 THEN 
BEGIN 

TOS :>= IF(TEMPLR) , 

ASMB(LSOB) ; 
END, 
TOS :■ TRLDTIMEl; 
TOS :■ TRLDTIME2; 
ASMB(DADD; DDUP) ; 

NUM'OF'DAYS :« TRLNUMDAYS; 
TOS ;. NUM' TICK 'PER 'DAY; << CHECK IF OVER A DAY >> 
ASMB(DSUB; DDEL) ; 
IF >• THEN 
BEGIN 

NUM'OF'TICKS :» TOS - NUM'TICK ' PER 'DAY ; 

NUM'OF'DAYS :• IF NUM'OFDAYS ' 23 THEN ELSE 
NUM'OF'DAYS + 1; 
END ELSE NUM'OF'TICKS :« TOS; 

MS :■ IF S33 THEN FIXR (REAL(NUM'OF ' TICKS) "TICK ' TO'MS) 
ELSE NUM'OF'TICKS; 



TOS 
LSW 
MSW 



DOUBLE (NUM'OF'DAYS) 
TOS; 

TOS. (1:15); 
< TIMER >> 



"MS 'PER 'DAY + MS; 



This routine Is not meant to be called by the users, 
user calls it, he/she needs to make sure that SR ° 
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TIMR Ins 


f ruci 


ion 


















RECORD 


c s. 




A • A « 


k**** 


•• ALU A • 


A A * ft A : 


• • • • a 


A A « * 1 


k A * A A 


•••• ALU B 


A A A A I 


1 A A* Af 


I A A A A 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC SFNC 


STOR 


SPEC 


SKIP 


13912 




%E00 
























13913 


OEOO 


TIMR 






ADD 


SPOA 




OOFO 




ADDL 


CTR 






13915 




























13916 


OEOl 




0015 




ADDL 










ADD 


BKX3 






13918 


0E02 




0013 




ADDL 






UBA 




ADD 




R0A3 




13920 


0E03 




UBA 




ADD 




R0B3 


FFEO 


REGN 


ANDL 








13922 




























13923 


0E04 






OPA 


ADD 






0206 


UBB 


ADDL 


SP2B 






13925 




























13926 


0E05 




FFFF 


UBB 


ADDL 


RH 




UBA 


XR31 


ADD 








13928 




























13929 




























13930 


OEOS 




FFFE 


UBA 


ADDL 


SP4A 




UBB 


OPB 


ADD 


RA 






13932 




























13933 


0E07 








ADD 






OOIF 


REGN 


ANDL 


BKX3 






13935 


OEOS 








ADD 








RH 


ADD 




R0X3 




13937 


0E09 






SP4A 


ADD 




R0X3 






ADD 


RB 






13939 




























13940 


OEOA 






SP2B 


ADD 




R0X3 






ADD 


SP2B 






13942 




























13943 


OEOB 






OPA 


ADD 


RH 






P 


INC 


P 


RONP 




13945 




























13946 


OEOC 






OPA 


ADD 








OPB 


ADD 








13948 




























13949 


OEOD 




UB8 


RB 


ADD 






UBA 


RA 


LINK 


RC 






13951 




























13952 




























13953 


OEOE 






UBA 


ADD 


RD 




5C00 




ADDL 








13955 




























13956 


OEOF 




UBB 




ADD 


SP4A 




0526 




ADDL 


SP3B 






13958 


OEIO 




RD 


UBB 


SUB 






RC 


UBA 


LINK 


RA 






13960 




























13961 




























13962 


OEll 






UBA 


ADD 


RB 








ADD 








13964 


0E12 






UBA 


JSB TIMl 




NEG 


FFE9 




ADDL 








13966 




























13967 


0E13 




RH 


UBB 


ADD 




ZERO 




RA 


ADD 


RC 






13969 




























13970 


0E14 






RH 


INC 


RH 


NZRO 






ADD 








13972 


0E15 








ADD 


RH 








ADD 








13974 


0E16 








ADD 








RB 


ADD 


RD 






13976 


0E17 


TIMl 


FFFB 





ADDL 






FFFC 





ADDL 








13978 




























13979 


0E18 






UBA 


ADD 




WRS 




UBB 


ADD 




WRS 




13981 




























13982 


0E19 








ADD 










REPN 






OOIF 


13984 




























13985 


OEIA 






UBA 


MPAD 






RH 


UBB 


LINK 




DCTR 


CTRO 


13986 


OEIB 






UBA 


ADO 








UBB 


ADD 








13987 


one 






UBA 


ADD 






SP3B 




ADD 


RA 






139H9 


OEID 




SPOA 




ADD 










ADD 








13991 


OEIE 




RD 


UBA 


ADD 






RC 


RA 


LINK 




DATA 




13993 




























13994 




























13395 


OEIF 






UBA 


ADD 




DATA 






ADD 






NEXT 
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SPOA <- for the multiplication 

Set up for LST %12 

Set up for reading TR ; Read from bank 

Set up for reading LR ; Read TR into OPA 

Read LR into OPB 

Partial offset for LST %12 

UBA <- TR 

UBB <- offset for TRLDTIME2 

UBA <- offset for TRLDTIMEl 

UBB <- TR+CR, where CR is loaded into XR31 

by the TCLK routine. 
SP4A <- offset for TRLNUfOAYS 
RA <- SYS CLK CTR - TR+LR+CR 
Get bank number for LST %12 
Read TRLDTIMEl into OPB 
Read TRLNU^©AYS into OPA 
RB <- 

Read TRL.DTIME2 into OPA 
SP2B <- 0, for the multiply 
RH <- TRLNUMDAYS 

Increment P and put the new value in NIR . 
UBA <- TRLDTIME2 
UBB <- TRLDTIMEl 
Perform a double add, where 

Y • O.SYS CLK CTR + TRLDTIMEl , TRLDTIME2 
RC <- Y(LSW) 
RD <- Y(MSW) 
UBB <- MS'PER'DAY(LSW) 
UBB, UBA = SP3B,SP4A <- MS PER DAY 
Perform a double subtract, where 

Z - Y - MS' PER DAY 
RA <- Z(LSW) 
RB <- Z(MSW) 
If Z < 0, jump to TIMl 
UBB <- -23 

23, skip next line 



If NUM'OF'DAYS 

RC <- RA 

NUM'OF'DAYS <- NUM'OFDAYS 

NUM'OFDAYS <- 

UBA <- POINTER TO 0-5 
UBB <- POINTER TO 0-4 
Set up to write at Q-5 
Set up to write at 0-4 
The next 3 lines perform a 
NUMOF'DAYS'MSPERDAY 



+ 1 



mul t iplic at ion 



RA <- NUM'OF'DAYS*MS'PER'DAY(LSW) 

UBA <- NUM'OF DAYS'MSPER DAYIMSW) 

Perform a double add. where RESULT = 

(NUMOF 'DAYS'MS'PER'DAYl+MS, where MS=RD,RC 

0-4 <- RESULT(LSW) 

0-5 <- RESULKMSW) , Exit ! 
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RECORD 

NO 

13998 
13999 
14000 
14001 
14002 
14003 
14004 
14005 
14006 
14007 
14008 
14009 
14010 
14011 
14012 
14013 
14014 
14015 
14016 
14017 
14018 
14019 
14020 
14021 
14022 
14023 
14024 

iso^-s 

140;'fi 
14027 
14028 
140;'9 
14030 
14031 
14032 
14033 
14034 
14035 
14036 
14037 
14038 
14039 
14040 
14041 
14042 
14043 
14044 
14045 
14046 
14047 
14048 
14049 
14050 
14051 
14052 
14053 



C.S. 
ADDR 



TMRO Commenl ary 

..*«.»«»,>.» ALU A ••««••••«•• 
LABL RREG SREG FUNC SFNC STOR SPSK 



• •«.•.>.<,.><«•> ALU B .............. 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



TMRQ - REPLACEMENT FOR THE MPE INTEGER PROCEDURE TIMEREO 

Macro-assembly code: %020104 ,%000034 (doubleword op) 
available in version CX2603A and beyond 

This microcode routine replaces the MPE procedure TIMEREO 
only for the series 64 machines All the offsets to the locations 
used by thus routine and the different bit positions accessed 
by it are hard coded as they are defined in U-MIT. 

This routine is built on top of the new LST/SST instructions 
which stor(! the first 16 table pointers in the extended regs . 
!E6 through !F5 



+ -- ..»«»*«**»«* WARNING ••<•••«•••• -- + 

I IF ANY OF THE OFFSETS OR BIT POSITIONS USED BY THIS CODE | 
I SHOULD CHANGE IN FUTURE VERSIONS OF MPE, THIS CODE MUST | 
I BE MODIFIED OR IT WILL CEASE TO WORK PROPERLY. | 

+ + 

This routine sets up a time request. It accepts time up to 
2**32-l. The most prioritary request is always first in the 
list. All header entries are table word offsets. Entry S in 
entry is the number of the next entry. 

This routine also returns an integer value to location Q-%10 
Upon exit, it sets the condition codes in the following manner : 
CCG = go to SUDDENDEATH (N). where N is already placed in TOS 
CCL - go to MPE 'TABLE 'FULL (N), N already in TOS 
CCE > regul.ar exit. 



NOTE 



FOR PERFORMANCE REASONS, TRLENTRYSIZE (=4), WAS HARD 
CODED. IF IT WERE TO CHANGE, THIS ROUTINE SHOULD CHANGE 
TO REFLECT THE NEW VALUE. 



The SPL code is as follows : 

INTEGER PR0CE;DURE TIMEREQ(C0DE , REQ, TIME ) ; 

VALUE CODE, REQ, TIME; 

DOUBLE TIME ; 

INTEGER CODE, REQ; 

OPTION UNCALLABLE, PRIVILEGED; 



BEGIN 

INTEGER TRLX, S, T :- 8; 
INTEGER SO • S-0, SI - S-1; 
INTEGER MST = 0-5, LST = Q-4; 
INTEGER TRLPTR; 

TIME :» TIME+IOOD; 
TOS : = ; TOS : = MST ; 
TOS := 100; 
ASMB( LDIV ) ; 
TOS := LST, 



<< TIME >> 



<< FIGURE TICKS >> 



PAGE 280 
RECORD C.S. 
NO ADDR 

14054 
14055 
14056 
14057 
14058 
14059 
14060 
14061 
14062 
14063 
14064 
14065 
14066 
14067 
14068 
14069 
14070 
14071 
14072 
14073 
14074 
14075 
14076 
14077 
14078 
14079 
14080 
14081 
14082 
14083 
14084 
14085 
14086 
14087 
14088 
14089 
14090 
14091 
14092 
14093 
14094 
14095 
14096 
14097 
14098 
14099 
14100 
14101 
14102 
14103 
14104 
14105 
14106 
14107 
14108 
14109 
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10/ 2/86 9:27 AM 



TOS -.' 100; 

ASMB( LDIV.DEL ); 

DISABLE ; 

TRLX :- TRLFREELISTP; 

IF • THEN SUDDENDEATH(3) ; 

IF N0T(%14 <- TRLX <■' TRLNUMENTRIES 



TRLENTRYSIZE) THEN 
report TABLEFULL >> 



SUDDENDEATH(25) ; 
<< If this is last TRL entry 
TRLPTR •. « TRLX; 
TOS :• TRLPTRNEXT; 
if • then 

MPE TABLE 'FULL(4) ; << 4 is timer req. list >> 
TRLFREELISTP ; - TOS ; << UPDATE NEXT POINTER) > 
TIMEREO :■ TRLX4ASR(2) ; 
DO 

BEGIN << FIND POSITION IN LINE >> 

TRLPTR :- T; 

T :- TRLPTRNEXT. 

TOS :- TRLSERVTIMEl; 

TOS :• TRLSERVTIME2; 

ASMB( DSUB ) ; 

END 
UNTIL T . OR SI < TRL(T+2) OR - AND LOGICAL(SO) 
L0GICAL(TRL(X:-X+1)) ; 
:« TRLPTR; 

<< BUILD ENTRY >> 

IF REO'O THEN SUDDENDEATH(26 ) ; 

TIME ;« TOS, 
TRL(TRLX) ;- %10000a+COOE&LSL{ 10)+(T/TRLENTRYSIZE ) ; 
TRLPTR :• X; 
TRLREQUEST :• REO; 
TRLSERVTIMEl :• MST ; 
TRLSERVTIME2 :• LST; 
TRLPTR :» S; 
TRLLINK :• TRLX&ASR(2); << CONVERT TO ENTRY t >> 

<< CHECK FOR TIME ADJUST IN T >> 
IF TOO THEN 
BEGIN 
TRLPTR :- T; 
TOS :- TRLSERVTIMEl; 
TOS := TRLSERVTIME2; 

TOS := TOS-TIME; 
TRLSERVTIME2 :• TOS; 
TRLSERVTIMEl :» TOS; 
END; 



<< IF SIO TIMEOUT, DIT8.((C0DE LAND X17):l) 

TOS : - CODE ; 

TOS (11:1) : • ; 

IF = THEN DEL 

ELSE 

BEGIN << SIO TIMEOUT >> 
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RECORD 

NO 

14110 
14111 
14112 
14113 
14114 
14115 
14116 
14117 
14118 
14119 
14120 
14121 
14122 
14123 
14124 
14125 
14126 
14127 
14128 



TMRO Commentary 
C.S. «*....«,«..» ALU A «•*••»••*•• 
ADDR LABL RREG SRECI FUNC SFNC STOR SPSK 



TOS :• F(%1010+REO) ; 
ASMEKXBX; 

TRBC 0,X; 

XCH.STAX; ) ; 
F(X) :=■ TOS; 
END; 



TRLTRACEWORD := %10000 + TRLX; 



END; << T I M E R E Q >> 



***»»*»**„»»» ALU B .>..»«.»<.> <,,.>,« 
RREQ SREG FUNC SFNC STOR SPEC SKIP 
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This routine is not meant to be called by the users, 
case it is:, he/she needs to make sure that SR = 4. 
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RECORD 

NO 

14130 
14132 
14134 
14136 
14137 
14139 
14140 
14142 
14144 
14145 
14146 
14147 
14148 
14149 
14151 
141b2 
14153 
14154 
14155 
14156 
14158 
14160 
14161 
14JB3 
14164 
14166 
14167 
14168 
14170 
14171 
14173 
14175 
14176 
14178 
14179 
14180 
14182 
14183 
14185 
14186 
14188 
14189 
14191 
14192 
14194 
14195 
14197 
14198 
14200 
14201 
14203 
14204 
U206 
14208 
14209 
14211 



c.s. 

ADDR 

0E20 
0E21 
OE22 



0E24 
0E25 



0E28 
0E29 
0E2A 



0E2B 

0E2C 
0E2D 
0E2E 
0E2F 

0E30 

0E31 

0E32 
0E33 

0E34 
0E35 

0E36 



0E37 
0E38 
0E39 
0E3A 
0E3B 
0E3C 
0E3D 
0E3E 
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TMRQ SR 
XXX 

SR 



UBA 
USA 



UBA SUB 

JSZ PULM 
RH JSBS XXX 



PCS 

UNC 
NEG 



ADD 
UBA ADD 

ADD 
RH DVSB 

ADD LSR 
SP4A ADD 
RA ADD 



RB 
SPOA 



0064 
UBB RA 



UBB 
0064 



ADD 
ADD 
ADDL 



ADD 
ADDL 

REPN 

LINK 

ADD 

ADD 

ADD 



RG 
UBA RH 
UBA 



ADD 
DVSB 
ADD LSR 
ADD 
SP4A ADD 



UBB 
OOFO 



RA 



0200 ADDL 
UBA UBB ADD 



UBA INC 
OPA ASL 



REPN 
LINK 
ADD 
ADDL 
P INC 



FFEO REGN ANDL 
OOIF REGN ANDL 



0010 
DCTR CTRO 



0010 
DCTR CTRO 



CTR 
P 



UBA ASL 
UBA ADD 



ADO 
INC 



ADD 
OPB JSB DY03 SP2B 



UBA OPB JSBS DY25 



ZERO 
NEG 





RF 


ADD 


0002 


UBA 


ADDL 


UBA 




ADD 




SP2B 


ASR 




UBA 


ASR 




UBB 


ASL 




UBB 


ADD 


RH 




ADD 


RF 


SPIB 
UBA 


ADD 
ADD 


03FF 


OPA 


ADD 
ANDL 





UBA 


OPB 


JSBS DY25 






UBA 


OPB 


ADD 




WRX3 


0008 




ADDL 


SPIB 




03FF 


OPB 
UBB 


ANDL 
ASL 


RG 


DATA 


FFF8 





ADDL 




WRS 




UBA 


ADD 




DATA 






ADD 




R0X3 


0002 




ADD 
ADOL 






UBA 
UBB 


UBB 


ADD 
INC 





to PULM 
■ 4 



lOOD, where TIME is in RB.RA 



R0A3 
R0X3 



COtWENT 

Check if SR • 
if SR-4 < 0, 
Repeat until 
UBB <- lOOD 
TIME <- TIME 
RA <- LST 
RB <- MST 

The next 4 lines perform the division 
0,MST/100D. RB <- quotient, RG <- rem. 



The next 4 lines perform the division 

RG,LST/100D. RA <- quotient, the remainder 
is ignored. 



CTR <- FO for LST %12 

RA <- quotient 

inc P and store new instr. in NIR 

UBA <- offset to TRLNUMENTRIES 

UBB <- address bits for LST %12 

RF <- address of TRLNUMENTRIES ; read into OPA 

BKX3 <- correct bank for LST %12 

UBA <- TRLNUMENTRIES*2 

Read TRLFREELISTP info OPB 

UBA <- TRLNUMENTRIES«TRLENTRYSIZE 

SP2B <- TRLFREELISTP; if 0, go to DY03 which 

sets up things for SUDDENDEATH( 3 ) 
UBA <- %13 for range check later 
if TRLFREELISTP > TRLNUMENTRIES'TRLENTRYSIZE 

then go to DY25 
UBA <- address of LST %12 
if TRLFREELISTP < %14 go to DY25 
UBA <- address of TRLFREELISTP 
Read TRLLINK into OPB 
Set up to write into TRLFREELISTP 
SPIB <- initial T - 8 
UBA <- TRLX&ASR 
RG <- TRLLINK 
RH <- TRLX4ASR(2) 
UBB <- TRLLINK*2 
TRLFREELISTP <- TRLPTRNEXT 
UBB <- - XIO 

Set up to write return value at Q-5410 
IF TRLPTRNEXT <> 0, SKIP NEXT LINE 
Write return value 
SET Fl TO GO TO TBFL ON EXIT 
RE <- TRLPTR 

Read TRL(TRLPTR) into OPA 
UBB <- 2 

Read TRLSERVlCETIMEl into OPA 
RG <- TRLLINK 
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TMRO Inst rut 


tion 




RECORD 


C S 


* * * * 




•• ALU A • 


NO 


ADDR 


LABL RREG 


SRECl 


FUNG 


SFNC 


14213 












14214 


0E43 




UBA 


ASL 




14216 


0E44 






ADD 




14218 


0:45 


RB 


OPA 


SUB 




14220 


0E46 




UBA 


ADD 




14221 


0E47 




SPlEl 


JSB 


LI 


14223 












14224 


0E48 


RF 


UBB 


ADO 




14226 


0E49 






ADD 




14228 


0E4A 






ADD 




14229 


0E4B 


RB 


OPA 


SUB 




14231 












14232 


0E4C 


UBA 




JSB 


LUPl 


14233 


0E4D 


1.1 


RC 


JSB 


DY26 


14235 


0E4E 




RD 


ADD 




14237 












14238 


0E4F 






ADD 




14240 


0E50 






ADD 




14242 


0E51 




SPIB 


ASR 




14244 


0E52 


RF 


SP2EI 


ADD 




14246 












14247 


0E53 


UBB 


RG 


ADD 




14249 












14250 


0E54 


RC 




ADD 




14252 












14253 


0E55 


RB 




ADD 




14255 












14256 


0E56 


RA 




ADD 




14258 












14259 


0E57 


FCOO 


OPA 


ANDL 




14261 












14262 


0E58 




SPIGI 


JSB 


LUP2 


14264 












14265 


0E59 






ADD 




14267 


0E5A 


RF 


UBB 


ADO 




14269 


0E5B 






ADD 




14271 


0E5C 






ADD 




14273 


0E5D 




OPA 


ADD 




14275 












14276 


0E5E 


UBA 


RB 


SUB 




14278 


OE'jF 


UBA 




ADD 




14279 


oreo 


LUF2 0010 


RD 


ANDL 




14281 












14282 


0E61 


0208 


RC 


ADDL 




14284 












14285 


0E62 


UBA 




ADD 




14287 












14288 


0E63 


FFFE 




ADDL 




14290 












14291 












14292 


0E64 


UBA 




ADD 




14294 


0Efi5 




UBA 


ADD 




14295 


OF 6 6 


MSK UBA 




ADD 




14296 


OF 6 7 


UBA 




CSL 




14297 


Of 6 8 


UBA 




ADD 




14298 


Of 6 9 


UBA 




ADD 
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ZERO 


UBA 
RA 

0002 


OPB 
UBB 
SPIB 


ADD 

ASL 

LINK 

ADD 

ADDL 




SPIB 
RA 






R0X3 


UBA 
RA 


OPB 


ADD 
INC 
ADD 
LINK 






R0X3 




POS 
ZERO 






ADD 
ADD 
REPN 








0009 


WRX3 


UBA 
8000 


UBB 
UBB 

UBA 


ASL 
ADDL 
ADD 
ASR 




RG 


DCTR 


CTRO 


DATA 


RE 


RF 


ADD 






R0A3 




DATA 




SP2B 


ASR 










DATA 




UBB 


ASR 










DATA 


03FF 


UBB 
UBB 


ANDL 
ADD 










ZERO 


UBA 


UBB 


I OR 






DATA 




R0X3 


0002 
UBA 


SPIB 
OPB 


ADDL 

ADD 

INC 

ADD 

ADD 






R0X3 




DATA 


UBB 


RA 


LINK 

ADD 

ADD 




BKX4 


DATA 






UBA 




JSB 


LUP3 






ZERO 


R0X4 


OOOF 


RD 


ANDL 












OOOF 


UBB 


SUBL 








N2:R0 




UBB 

UBB 
UBB 
UBB 
UBB 


UBB 


JSB 
ADD 
CAD 
JSB 
ADD 
ADD 


NMSK 
MSK 






UMC 
NZRO 
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COMMENT 

Read TRLSERVICETIME2 into OPB 

UBA <- TRLLINK*2 

SPIB (T) <- TRLPTRNEXT 

RB.RA <- TIME - TRLSERVICETIMEl , 2 



II T » g 
UBB <- T+2 



o to Li 



Read TRL(T+2) into OPA 
Read TRL(X:"X+1) into OPB 



If S-0,S-1 
LUPl, 



>- TRL(T+2) ,TRL(X:.X+1) go ti 



If REQ » go to DY26 

UBA <- CODE 

Set up for C0DE&ASL(10) 

UBB <- CODE&ASL(10) 

RG <- %100000 + CODE&ASL(10) 

UBA <- T/2 

Set up to write into TRL(TRLX) 

UBB <- T/TRLENTRYSIZE 

TRL(TRLX) <- %100000+CODE&ASL(10)+T/TRLENTRY 

Read from TRL(TRLPTR) into OPA 

TRLREOUEST <- REQ 



UBB <- TRLX&ASR 
TRLSERVICETIMEl <■- 
UBB <- TRLX&ASR (2 I 
TRLSERVICETIME2 <- 
UBB <- TRLX&ASR(2 1 



MST 
LST 



(6 



10) 

6) 

10) 



UBA <- TRL(TRLPTR) . (0 

UBB <- TRLX&ASR(2I . (6 

If T - go to LUP2 

TRLLINK <- TRLX&ASR(2) . (6. 10) 

UBB <- TRLPTR + 2 

Read TRLSERVICETIMEl into OPA 

Read TRLSERVICETIME2 into OPB 

waiting for the reads to complete 

UBA <- TRLSERVICETIMEl 

UBB <- TRLSERVICETIME2 

TRLSERVICETIMEl, 2 <- TRLSERVICETIMEl , 2-TIME 

UBA <- CODE. (11:1) 

BKX4 <- 

UBA <- REQ + %1010 

If CODE, (11:1) • go to LUP3 

Read abs (REO+%1010) into OPA 

UBB <- CODE. (11:1) := 

The next 4 lines will set up the mask to 

clear the correct bit in the TRBC 0,X 

inst ruct ion . 
The mask is already set up, so go to NMSK 
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i* rue 


iion 




















R€CORD 


C S 




****< 


I**** 


•• ALU 


A •••*•• 


* A * Ik 41 


•••••***•••«• ALU B 


************** 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFMC STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


14299 


0E6A 


NMSK 


UBA 


OPA 


AND 




DATA 






ADD 










14301 


0E6B 


LUP3 


0009 


RF 


ADDL 






1000 


SP2B 


ADDL 




RH 






14303 






























14304 


0E6C 




UBA 




ADD 




WRX3 






ADD 










14306 


0E60 




RH 




ADD 




DATA 






JSB 


TBFL 






Fl 


14308 






























14309 


0E6E 








ADD 










ADD 






CCA 


NEXT 


14311 


0E6F 


DY03 






ADD 






0003 




ADDL 




RA 






14313 


0E70 








ADD 






UB8 




ADD 






CCA 


NEXT 


143 IS 


0E71 


DV25 






ADD 






0019 




ADDL 




RA 






14317 


OE72 








ADD 






UBB 




ADD 






CCA 


NEXT 


14319 


0E73 


Dr26 






ADD 






OOIA 




ADDL 




RA 






14321 


OE74 








ADD 






UBB 




ADD 






CCA 


NEXT 


14323 


0E75 


TBFL 


FFFF 




ADDL 






0004 




ADDL 




RA 






14325 


0E76 








ADD 






UBA 




ADD 






CCA 


NEXT 
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COWENT 

Clear bit. write it back to abs (REQ+%1010) 

UBA <- address of TRLTRACEWORD 

UBB <- TRLX + XIOOOO 

Set up to write into TRLTRACEWORD 

TRLTRACEWORD <- TRLX + %10000 

IF Fl, GO TO TBFL 

SET CC TO CCE AND EXIT 

Store 3 in TOS 

Set CC to CCG and exit 

Store Z5 in TOS 

Set CC to CCG and exit 

Store 26 in TOS 

Set CC to CCG and exit 

Store 4 in TOS 

Set CC to CCL and exit 
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RECORD C.S. «•..«..«,..* ALU A »•««•••••«• «*«««««. »r> ««« alu B ••••«••••*•••• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREQ SREG FUNC SFNC STOR SPEC SKIP COMMENT 

14329 • * 

14330 • MSTA - REPLACEMENT FOR THE MPE PROCEDURE MMSTAT • 

14331 • • 

14332 • Mijcro-assembly code: «020104 ,%000035 (doubleword op) • 

14333 * available in version CX2603A and beyond * 

14334 • * 

14335 • This routine replaces the MPE procedure MMSTAT. which logs • 

14336 * low-level system events into a 128-entry circular queue. Each • 

14337 • event consists of the current process number, an event number, • 

14338 * and six parameters. Every time the queue wraps around, the * 

14339 * time is saved, along with the previous wrap time (from a call * 

14340 * to TIMER, also microcoded into this routine). • 

14341 • » 

14342 * The routine assumes itself to be inside a procedure call, so * 

14343 • all the p.arameters passed to it are in the 0- area (0-4 thru * 

14344 • Q-%12). The monitor buffer is located by a pointer in LST %11, • 

14345 • and the current index is stored in SysGlob %34. * 

14346 • * 

14347 * This routine, as with some of the others in this group, uses * 

14348 * the condition codes to return status of the instruction. If * 

14349 * it was able to handle the call, it returns with the condition * 

14350 • code set to CCE If, however, it could not (as in when tape * 

14351 * logging is enabled [only in debuaging]. or if there are not * 

14352 • enough TOS registers [not possible in the way it is currently * 

14353 • called]), then it returns with a condition code of CCG. (whew!) • 
14-r,4 « • 
143b5 * If the routine is called with a negative event (those that only • 

14356 * get put into the tape buffer), and tape logging is disabled * 

14357 * (the normal case), then the routine just returns - finished. • 

14358 • If, however, the event is positive, the event number along with * 

14359 * the current process number and the six parameters are placed * 

14360 " into the circular queue. When a wrap occurs, the time is saved * 

14361 * as well as the previous time in entry (each is 2 words long). ' 

14362 * • 

14363 * + ..«««•«««.»« WARNING «••*»*»«••- - + » 

14364 * I IF ANY OF THE OFFSETS OR BIT POSITIONS USED BY THIS CODE | » 

14365 • I SHOULD CHANGE IN FUTURE VERSIONS OF MPE, THIS CODE MUST | • 

14366 • I BE MODIFIED OR IT WILL CEASE TO WORK PROPERLY. | • 

14367 ' + - - + • 

14368 • • 

14369 • The SPL source for this routine, from the module KERNELC, is: * 

14370 • • 

14371 *<<AA*AftA*«ftA**Aft*«ftAA***lkA«AAllA*AAAAililllftftA)l()llAA**AAftAll(AAA*AftAA*** A 

14372 * • 

14373 • COMMENT THIS FUNCTION IS CALLED TO MONITOR AND/OR COLLECT • 

14374 • PERFORMANCE MEASUREMENT DATA; • 

14375 » PROCEDURE MMSTAT' (EVENT, PI, P2,P3,P4,P5,P6 ) ; • 

14376 • VALUE EVENT . PI , P2 , P3 , P4 , P5 , P6 ; • 

14377 • INTEGER EVENT , Pi , P2 , P3 , P4 , P5 , P6 ; • 

14378 • OPTION PRIVILEGED , UNCALLABLE ; • 

14379 • • 

14380 • • 

14381 * BEGIN <<MMSTAT>> * 

14382 • * 

14383 » INTEGER * 
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RECORD 

NO 

14384 
14385 
14386 
14387 
14388 
14389 
14390 
14391 
14392 
14393 
14394 
14395 
14396 
14397 
14398 
14399 
14400 
14401 
14402 
14403 
14404 
14405 
14406 
14407 
14408 
14409 
14410 
14411 
14412 
14413 
14414 
14415 
14416 
14417 
14418 
14419 
14420 
14421 
14422 
14423 
14424 
14425 
14426 
14427 
14428 
14429 
14430 
14431 
14432 
14433 
14434 
14435 
14436 
14437 
14438 
14439 



MSTA Commentary 
C.S. «.«••»*».«« ALU ft ••••«<>*i.*« 

ADDR LABL RREQ SREQ FUNC SFNC STOR SPSK 

• PCBPT , 

• OFFSET; 

• DOUBLE 

• BASE , 

• SAVE ' DB ; 

• INTRINSIC TIMER; 

• SPAQE -SYSTEM TABLE MANAGEMENT 



* * * A A lift ft ** « iktk At_y B ft ft ft ft ft ft ft ft ft ft ft ft ft ft 
RREQ SREQ FUNC SFNC STOR SPEC SKIP 



<<TIME FUNCTION) > 
GET SYSTAB ENTRY- 



ID/ 2/86 9:27 AM 



DOUBLE SUBROUTINE CONVERT ' POINTER ' TO'DOUBLE 'ADDRESS( PTR ) ; 
VALUE PTR; 
LOGICAL PTR; 
BEGIN 

TOS :• ABSISYSBASE + PTR). (11:5); << extract bank >> 
TOS ;• ABS(X) LAND X177740; << extract address >> 
BASE :- TOS; 
CONVERT 'POINTER 'TO 'DOUBLE ADDRESS :• BASE; 

END; << subroulne CONVERT ' POINTER ' TO'DOUBLE ADDRESS >> 

<< IF A PROCESS IS EXECUTING, GET ITS PIN >> 

PCBPT :■ CURPRC; 

<< IF THE EVENT NUMBER IS POSITIVE THEN 

<< 

<< CHECK EVENT VALIDITY 

<< DISABLE INTERRUPTS 

<< XCHD TO SYSDB 

<< LOG THE EVENT TO MONBUF 

<< 

<< IF THE EVENT NUMBER IS NEGATIVE THEN 

<< 

<< MAKE IT POSITIVE 

<< CHECK ITS VALIDITY 

<< DISABLE INTERRUPTS 

<< XCHD TO SYSDB 



<< Turn off t raps >> 
PUSH (STATUS) ; 
TOS ( 2 : 1 ) : • ; 
SET (STATUS) ; 



TOS 



EVENT; 



IF >• THEN 

BEGIN <<POSITIVE EVENT>> 
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RECORD 

NO 

14440 
14441 
14442 
14443 
14444 
14445 
14446 
14447 
14448 
14449 
14450 
14451 
14452 
14453 
14454 
14455 
14456 
14457 
14458 
14459 
14460 
14461 
14462 
14463 
14464 
14465 
14466 
14467 
14468 
14469 
14470 
14471 
14472 
14473 
14474 
14475 
14476 
14477 
14478 
14479 
14480 
14481 
14482 
14483 
14484 
14485 
14486 
14487 
14488 
14489 
14490 
14491 
14492 
14493 
14494 
14495 



C.S. 
ADDR 



MSTA Commentary 

..«.•*..•.. ALU A ••«•*•«•»«• 
LABL RREG SREG l-UNC SFNC STOR SPSK 



RREG SREQ FUNG SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



MAXEVENTNUMBER THEN 



IF EVENT > 
RETURN; 



DISABLE: 

push(z); |}ush(s): assemble! sub) 



if TOS<34 then return; 
TOS :« SYSBASE D; 



ASSEMBLE CKCHD) ; 
SAVE'DB ;« TOS; 



<<MMstat cant stand a stack overflow>> 



PCBPT; 


- ai 


EVENT 


PI 




P2 




P3 




; a 


P4; 


: s 


P5; 


: « 


P6; 



<< Save procinx, event, and parms into MONBUF >> 

SMONBUFISIWNDIX) :• 

SM0N8UF(X :• X + 1) 
SM0NBUF(X:"X+1) 
SM0NBUF(X:«X+1) 
SM0NBUF(X:«X+1) 

SMONBUFiX :• X + 1) 

SMONBUFIX :» X + 1) 

SMONBUF ( X : » X + 1 ) 



<< IF THE END OF THE BUFFER HAS BEEN REACHED, 

<< SET THE BUFFER INDEX TO THE START OF THE 

<< BUFFER AND RESET THE TIME STAMPS IN THE 

<< FIRST ENTRY, THIS ENTRY CONTAINS TWO TIME 

<< TIME STAMPS INDICATING THE LAST TWO TIMES 

<< WRAP AROUND HAS OCCURED. TIME STAMPS ARE 

<< TWO WORDS IN LENGTH. 



IF (SMONDIX :• SMONDIX + SMON ' ENTRY ' SIZE 1 >- 
SMONBUFSIZE THEN 

BEGIN <<MONBUF WRAP AROUND) > 



SMON- ENTRY 'SIZE; 



TOS :• TIMER; 




TOS :• SMONBUF (0); 


TOS :■ SMONBUF X 


•X+11 
- TOS 


SM0NBUF(X:-X+2J 


SMONBUF (X:-X-li 


» TOS 


SM0NBUF(X:«X-1) 


■ TOS 


SM0NBUF(X:«X-1) 


« TOS 



<<GET NEW TIME STAMP) > 
<<GET OLD TIME STAMP) > 



<<SAVE OLD TIME STAMP) > 
<<SAVE NEW TIME STAMP)) 



END; <<MONBUF WRAP AROUND)) 
END <<POSITIVE EVENT)) 
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RECORD C.S. 
NO ADDR 

14496 
14497 
14498 
14499 
14500 
14S01 
14502 
14503 
14504 
14505 
14506 
14507 
14508 
14509 
14510 
14511 
14512 
14513 
14514 
14515 
14516 
14517 
14518 
14519 
14520 
14521 
14522 
14523 
14524 
14525 
14526 
14527 
14528 
14529 
14530 
14531 
14532 
14533 
14534 
14535 
14536 
14537 
14538 
14539 
14540 
14541 
14542 
14543 
14544 
14545 
14546 
14547 
14548 
14549 
14550 
14551 



MSTA Commentary 
LABL RREQ SREQ FUNC SFNC STOR SPSK 



RREQ SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



ELSE 

BEGIN <<NEQATIVE EVENT) > 

TOS :• -EVENT; 

IF (EVENT :• TOS) > MAXEVENTNUMBER THEN 
RETURN; 

DISABLE; 

TOS :• SYSBASE D; 
ASSEMBLE (XCHD) ; 
SAVE'DB - TOS; 

END; <<NEGATIVE EVENT>> 



<< IF A MONITOR RUN IS REQUESTED THEN LOG THE EVENT >> 
<< TO THE MEASBUF DOUBLE BUFFER SET AND CALL MEASIO >> 
<< WHEN A BUFFER IS FILLED. >> 



IF (TOS: -ME ASF LAG) THEN 

BEGIN <<MEASUREMENT ENABLED) > 



<< COMPUTE THE GROUP ID (MODULO 101 AND TEST ITS >> 
<< CORRESPONDING MEASUREMENT ENABLE FLAG. >> 



TOS :• EVENT/10; 
ASSEMBLE (TRBC 11); 

TOS :• IF - THEN MEAS'MSKO ELSE MEASMSKl; 

ASSEMBLE (STBX; TBC O.X; DDEL); 



<< IF THE EVENT IS ENABLED FOR MONTIORINQ, DUMP IT >> 

<< TO THE CURRENT MEASUREMENT BUFFER. IF THE BUFFER >> 

<< IS FILLED, CALL "MEASIO" TO WRITE THE BUFFER TO >> 

<< TAPE AND SWITCH TO THE OTHER BUFFER. >> 



IF <> THEN 

BEGIN <<EVENT ENABLED>> 



<<TEST ENABLE FLAG>> 



ASSEMBLE(TBC 14); <<TEST GROUP FLAG> 

OFFSET := IF « THEN ELSE MEASBUFSIZE; 

TOS := TIMER: 
ASSEMBLE (XCH) ; 
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RECORD 

NO 

14552 
14553 
14554 
14555 
14556 
14557 
14558 
14559 
14560 
14561 
14562 
14563 
14564 
14565 
14566 
14567 
14568 
14569 
14570 
14571 
14572 
14573 
14574 
14575 
14576 
14577 
14578 
14579 
14580 
14581 
14582 
14583 
14584 
14585 
14586 
14587 
14588 
14589 
14590 
14591 
14592 
14593 
14594 
14595 
14596 
14597 
14598 
14599 
14600 
14601 
14602 
14603 
14604 
14605 
14606 
14607 



C.S. 
AODR 



MSTA Commentary 

.>..*...•<,* ALU A ••••»••««•• 
LABL RREG SREG l-UNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



MEASBUI"( INTEGER (MEAS'IDX) + OFFSET) 



MEASBUF(X:=X+1) 
MEASBUF(X - X 
MEASBUF(X:=X+1) 
MEASBUF(X:«X+1) 
MEASBUt"(X;«X + l 
MEASBUI"(X:=X + 1) 
MEASBUF(X 
MCASBUF(X 
MEASBUF{X 



+ 1) 



X + 



TOS; 


■ = 


PCBPT; 


EVENT; 


PI 




P2 




P3 




; s 


P4: 


; X 


P5; 


: » 


P6; 



IF (MEAS'IDX ;- MEAS'IDX 
MEASBUFSIZE THEN 



BEGIN <<WRITE BUFFER>> 
DUP) 



+ MEAS'ENTRY'SIZE) >• 



MEAS'IDX .» 0; 
ASSEMBLE (TCBC 14 
MEA!5FLAG :- TOS; 



TOS 
TOS 
TOS 
TOS 
TOS 
TOS 
TOS 



<<SWITCH BUFFER FLAQ>> 
<<SAVE IN CASE INTERRUPTED) > 
<<RESULT>> 
MEAS'LDEV; <<TAPE LDEV>> 

1; <<MEASIO WRITE REQUEST) > 

CONVERT POINTER TO DOUBLE' ADDRESS ( ME ASBUFPTR) ; 
TOS + OFFSET; 

MEASBUFSIZE; <<MEASBUF SIZE>> 
MEAS'PLAB; <<MEASIO PLABEL>> 



TOS ;• SYSBASE D; 
ASSEMBLE (XCHD; DDE L) ; 

ASSEMBLE (PCAL 0) ; 



<<CALL MEASIO>> 



ON RETURN FROM "MEASIO", CHECK THE TAPE STATUS 
AND MARK THE APPROPRIATE MEASFLAG BIT: 



MEASFLAGI12:1) 
MEASFLAG 13:1 
MEASFLAG 1 14:1 
MEASFLAG! 15:1 



TAPE ERROR 

- END OF TAPE 

- BUFFER SELECT 

- MEASIO ENABLE 



DEL; 

IF (> THEN 

BEGIN <<TAPE STATUS) > 

:[F > THEN TOS. (13:1) ; 
ELSE TOS. (12:1) : 

TOS. (15:1) :• 0; 

END; <<TAPE STATUS) > 

END; <<WRITE BUFFER) > 



<<DELETE TAPE STATUS WORD)) 
<<TEST TAPE STATUS)) 



1 <<END OF TAPE)) 
1; <<TAPE ERROR)) 



<<CLEAR MEASIO ENABLE)) 
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RECORD C S »..»«*...«. ALU A ••••*•••••• ...«••*«...•« ftLU B •••••*••••«••» 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

14608 • END; <<EVENT ENABLED>> 

14609 * * 

14610 • MEASFLAG :» TOS , <<RESTORE MEASFLAG>> 

14611 * • 

14612 * END <<MEASUREMENT ENABLED>> • 

14613 • * 

14614 • * 

14615 • ELSE " 

14616 • • 

14617 • DEL; <<DELETE MEASFLAG>> * 

14618 • 

14619 • TOS :• SAVE ' DB ; ' 

14620 • ASSEMBLE ( XCHD ) ; • 

14621 * DDEL; * 

14622 • * 

14623 • END; <<MMSTAT>> 

14624 • • 

14625 .,,,,,..«,,...».«.»»».«..•..»*.....».»....«..».•....«»»«......»».«... 
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RECORD 


C.S. 


NO 


ADDR 


14627 


0E77 


14629 




14630 


0E78 


14632 




14633 


0E79 


14635 




14636 


0E7A 


14638 




14639 


0E7B 


14641 




14642 


0E7C 


14644 




14645 


0E7D 


14647 




14648 


0E7E 


14650 




14651 


0E7F 


14653 




14654 


0E80 


14656 




14657 


0E81 


14659 




14660 


0E82 


14662 




14663 


0E83 


14665 




14666 


0E84 


14668 




14669 


0E85 


14671 




14672 


0E86 


14674 




14675 


0E87 


14677 




14678 


OE88 


14680 




14681 


0E89 


14683 




14684 




14685 




14686 




14687 




14688 




14689 




14690 




14691 




14692 




14693 




14694 


0E8A 


14696 




14697 


0E8B 


14699 




14700 


0E8C 


14702 




14703 


0E8D 


14705 





MSTA Instruction 



RREG 


SREQ 


•• ALU A •' 
IFUNC SFNC 


STOR 


SPSK 


RREG 


SREG 


*«•• ALU B 
FUNC SFNC 


STOR 


SPEC 


SKIP 






JSB 


MMXT 




SRG2 




P 


INC 




P 


RONP 




02B7 




ADDL 








OOOA 




ADDL 












UBA 


ADD 






R0X3 


UBB 





RSUB 






ROS 




021C 




ADDL 




RH 




OOEF 




ADDL 




CTR 








OPA 


JSB 
ADD 


MMXT 




NZRO 
CCA 


0009 


OPB 


ADDL 
JSB 


MMXT 


RG 




NEG 




UBB 


ADD 




SPOA 




0004 




ADDL 




SPIB 








RH 


ADD 






R0X3 


FFEO 


REGN 


ANDL 










200 


UBB 
OPA 


ADDL 
ADD 




RD 




OOIF 


REGN 
SPIB 


ANDL 
ADD 




BKX4 


R0A3 




UBA 


RD 


ADD 






WRX4 


0008 


UBA 


ADDL 




SPIB 








OPA 


ADD 






DATA 


R6 





RSUB 






ROAS 




SPOA 


OPA 
OPA 
OPA 
OPA 
OPA 


ADD 
ADD 
ADD 
ADD 
ADD 
ADD 






DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3FF 


UBB 
UBB 
UBB 
UBB 
UBB 


INC 
INC 
INC 
INC 
INC 
ADDL 






ROAS 
ROAS 
ROAS 
ROAS 
ROAS 






OPA 


ADD 






DATA 


UBB 


SPIB 


JSBS 


MMDN 






POS 



The following code duplicates the TIMER 
routine (back at %E00) except its inline 
The result is final in line %E9E , and is 
written out to queue entry 



OOFO ADDL 

R0X3 BKX4 ADD 

R0B3 OOIF REGN ANDL 

FFEO REGN ANDL 



14 


ADDL 


UBA 


INC 


RREG 


CAD 


OPA 


ADD 



CTR 

BKX5 

BKX4 



10/ 2/86 9:27 AM 

COMMENT 

Make sure that we can use the last five TOS 

Increment and read from P - doubleword instr 

Get address of MEASFLAGS to see if tape on 

Get negative offset of EVENT for read 

Read MEASFLAGS for check of tape logging 

Read EVENT (0-X121 for use later 

Get address of SMON INDEX (SysGlob %34) 

Get pointer to LST %11 (SMON BASE) 

Leave if MEASFLAGS is on (tape logging) 

Get pointer to first parameter for later 

Set condition code to CCE for good returns 

Leave If EVENT is negative - all done! 

Store EVENT in SPOA for safekeeping 

Get address of CURRENT PROCESS for later 

Read SMON INDEX (SysGlob %34) 

Mask offset of LST %11 (SMON BASE) 

Compute partial address of next queue entry 

Set up bank register for queue address 

Get SMON INDEX for complete address compute 

Read CURRENT PROCESS NUMBER for entry 

Set up write address for queue entry 

Store now SMON INDEX in SfJlB temporarily 

Write CURRENT PROCESS NUMBER to entry 

Read first parameter for entry 

Write event to entry 

Read second parameter for entry 

Write first parameter to entry 

Read third parameter for entry 

Write second parameter to entry 

Read fourth parameter for entry. 

Write third parameter to entry 

Read fifth parameter for entry 

Write fourth parameter to entry 

Read sixth parameter for entry 

Write fifth parameter to entry 

Set up for queue wrap check 

Write sixth parameter to entry 

Check for queue wrap (INDEX >> %2000) 



Set up for reads of LR and TR 

Set up for LST %12 (TRL BASE) 

Read TR (Time since last software timer int ) 

Save queue bank register for later 



Read LR (System clock limit register) 

^- %h ■'- 

Get Tl< from memory 



Set 



[System c 
bank register for LST %I2 (TRL BASE) 
imo 
Get offset of LST'%12 (TRL BASE) 
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MS' 


RECORD 


C S. 


NO 


ADDR LABL 


14706 


0E8E 


14708 




14709 


0E8F 


14711 




14712 


0E90 


14714 




14715 


0E91 


14717 




14718 


0E92 


14720 




14721 


0E93 


14723 




14724 


0E94 


14726 




14727 


0E95 


14729 




14730 


0E96 


14732 




14733 


0E97 


14735 




14736 


0E98 


14738 




14739 


0E99 MIMM 


14741 




14742 


0E9A 


14744 




14745 


0E9B 


14747 




14748 


0E9C 


14750 




14751 


0E9D 


14753 




14754 


0E9E 


14756 




14757 


0E9F 


14759 




14760 


OEAO 


14762 




14763 


OEAl 


14765 




14766 


0EA2 


14768 




14769 


0EA3 MMDN 


14771 


0EA4 


14773 ■ 


OTA'^ MMXT 


14775 


OEAfi 


14 7 7 7 


OEm/ 



MSTA Inst ruct ion 

••••••• ALU A •••«••• 

LABL RREG SREG FUNC SFNC STOR 

0205 use ADDL 

UBA ADD 

FFFE UBA ADDL 

2E00 ADDL SP4A 

OPA ADD SPOA 

SP4A ADD LSL SP4A 

SPOA UBB SUB 



SPOA 
RE 



UBA 


JSB 


UBA 


ADD 




ADD 




ADD 




ADD 


SPOA 


ADD 




ADD 


UBA 


MPAD 


UBA 


ADD 


SPOA RE 


ADD 


RD 


INC 


SP2B 


ADD 


UBB 


ADD 


OPA 


ADD 


RH 
SPIB 


ADD 
ADD 
ADD 
ADD 
ADD 



R0X4 

DATA 

DATA 

DATA 

WRX3 
DATA 



««•>•..«««<«< ALU B *«••«••••«•«•« 
RREG SREG FUNC SFNC STOR SPEC SKIP 

UBA OPB ADD 

UBB XR31 ADD SP38 

UBA INC R0X4 

UBA ADD R0X4 

SP3B OPB LINK RG 
0526 ADDL SP3B 
RG UBA LINK RF 

OPB ADD RF 

RF ADD RG 
FFE9 OPB ADDL RF ZERO 

OPB INC RF 

BKX5 ADD BKX4 
RD ADD 

REPN 
RF UBB LINK 

UBB ADD 
SP3B RG LINK 

UBA ADD 

OPB ADD 

ADD 

0008 ADDL 

ADD 
ADD 
ADD 
ADD 
ADD 



R0X4 

OOIF 
DCTR CTRO 



10/ 2/86 9:27 AM 

COMMENT 

Compute offset of TRLDTIMEl 

Partial SYS CLK CTR . TR + LR 

Read TRLDTIREl Into OPA 

Full SYS CLK CTR • TR + LR + CR (from XR31) 

Compute offset of TRLNUMDAYS 

Read TRLDTIME2 into OPB 

LSW of MS PER DAY; shifted right one bit 

Read TRLNDMDAYS into OPB 

Perform doubleword add, where NUM TICKS » 

SPOA.RG ■ O.SYS CLK CTR+TRLDTIMEl rTRLDTIME2 

Get LSW of MS PFR DRY (!5C00) into SP4A 

Get MSW of MS~PER~DAY into SP3B 

Perform doubleworH subtract, where Z = 

UBA.RF - NUM_T1CKS - MS_PER_DAY 
If Z < 0, less than a day has' passed - skip 
Put TRLNUMDAYS into RF 
Set NUM TICKS • Z so under a day's ticks 

for boTh words involved (SPOA.RG) 
NUM OF DAYS- TRLNUMDAYS - 23, skip next line 

if NUR OF DAYS is zero (0) 
Otherwise TTRLNUMDAYS-23 <> 0) increment it, 

since we have subtracted a day's ticks 
Clear out SPOA for the upcoming multiply 
Restore the queue's bank register 
Put MSW of NUM_TICKS into RE for safekeeping 
Read old time stamp MSW from entryO(O) 
Set up for multiply - 32 bits wide 

using RREGA.RREGB • SPOA ,SP3BjSP4A 
Multiply NUM_OF_DAYS • MS PER_DAY to giving 
total number of ms since load (mod 24 days] 
Need this line for the multiply to work 
correctly - pipeline effects 
Perform doubleword add, where RESULT » 
UBA,SP2B ■ (NUM OF_DAYS*MS PER_DAY)+NUM TICK 
Read old time sTamp (LSW) Trom entryOdT 
Write now time stamp (MSW) into entryO(O) 
Write now time stamp (LSW) into entryO(l) 
Get old time stamp (MSW) from OPB 
Write old time stamp (MSW) into entry0(2) 

- this moves the old stamp up so we have 2 
Write old time stamp (LSW) into entry0(3) 
Set SMON INDEX to 8 ( entry 1 - we wrapped ) 
Set up address of SMON INDEX for write 
Write SMON INDEX back (possibly wrapped) 
Return to caller I ! I 
NOP to keep system happy 
NOP to keep system happy 
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RECORD 


C.S. 


NO 


ADDR 


M782 




14783 




14784 




14785 




14786 




14787 


OFOO 


14789 


OFOl 


14791 


0F02 


14793 


0F03 


14795 


0F04 



RSW Inst rue t ion 
**••"•«*••* ALU A .««•••<•••• 
LAI3L RREG SREG FUNC SFNC STOR SPSK 



• *«•>,.•• «<.•<,>, ALU B ••••«««•*••••• 
RREG SREQ FUNC SFNC STOR SPEC SKIP 



RSW ■• READ SWITCH REGISTER INSTRUCTION 



JSZ 
ADD 
ADD 
ADD 
ADD 



SR7 


SP4A JSL lOLT 


EPSH 


00B2 ADDL CTR 




ADD 




REGN ADD RH 




ADD 



CCA NEXT 



10/ 2/86 9:27 AM 



Empty one TOS; JMP it I/O instruction 

EPSH, SET CTR FOR SWCH REGISTER 

Wait around for CTR 

(S): "SWITCH REGISTER 0; NEXT INSTRUCTION 
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RECORD 

NO 

14797 
14798 
14799 
14800 
14801 
14802 
14803 
14804 
14806 
14808 
14809 
14811 
14812 
14814 
14815 
14817 
14819 
14821 
14823 
14825 



C S. 
ADDR 



0F09 
OFOA 
OFOB 
OFOC 
OFOD 



WARMSTART CCX)E 
LABL RREG SREG FUNC SFNC STOR SPSK 



*•••••••••*•* ALU B ••••*«•••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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WMST this routine resets any extra lOAs that may be 
installed on the system. 



OF 05 WMST 0C02 
0F06 0054 

0F07 WMSl 

0F08 



RF 
UBA 



ADDL 
ADDL 



ADD 
JSB 



ADD 
XRO ADD SWAB RG 
0080 RF ADDL RF 
XR15 ADD 

JSZ CLDE 





UBA 


ADD 






BUSC 








JSL 


L2PF 


BKX5 




UNO 


BOOO 




ADDL 




SP3B 






0180 


XRl 

RF 

UBB 

UBA 


JSL 

JSL 

SUBL 

JSB 

JSL 


lOMS 
lOMS 

WMSl 
DUMP 


SP3B 




UNO 
UNC 

NZRO 
EVEN 



UBA :< go BUSY cmd; XRBl : ' write command 
XRAO :• enable masks cmd (will be swapped); 

Go BUSY 
UBA. (11:2) ;- 1MB «; 

BKX5 :■ 0, lump to get physical lOA » 
Don't reset if lOA not present; 

SP3B :« lOCL command 
; SP3B :- write IMBI reg« 0, flush lOA 
RQ :• enable masks command, enable masks 
RF :• next lOA «; UBB = if done 
UBA :• load or dump? Jump back if not done 
Jump to dump else jump to load, set Fl to 

inhibit checksum & module mapping if load 
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RECORD C.S. ***»*««»i..» ALU A •••••**•*•• ......(,.««<,*. ALU B ••••*««*•••*«« 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

14827 OFOE CKCH E020 ADDL XR13 RG JSL CPEX ZERO ERROR CODE; «CPEX IF NO SP0LL2 RESPONSE 

14829 OFOF RG RG ADD NEG 0900 ADDL XR24 ; REG« 9 

14831 OFIO ADD RSB 4008 ADDL SP3B 

14832 OFll ADD JSL lOR BKX5 ZERO 

14833 0F12 ADD XR14 FIHB RG ADD RRZ BKX5 CF5B 

14834 0F13 UBA ADD LSR XR12 JSL PAUL UNC 
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RECORD 

NO 

14836 
14837 
14838 
14839 
14840 
14841 
14842 
14843 
14844 
14845 
14846 
14847 
14848 
14849 
14850 
14851 
14853 
14K55 
14857 
14859 
14861 
14863 
14865 
14867 
14869 
14870 



C.S 
ADDR 



OF 14 
Oris 
0F16 
OF 17 
0F18 
0F19 
OFIA 
OFIB 
OFIC 

OFID 



ADJUST NUMBER OF TOS REGISTERS 
LABL RREG SREG FUNC SFNC STOR SPSK 



•<••<•••••>•• ALU B «••»*•**«**«»« 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



ADJS - ADJuSt the number of TOS registers 

1. If SR agrees with the number of TOS registers needed then 
return . 

2. If SR is greater than the number of TOS registers needed 
then write the excess TOS registers to memory and update 
SR and SM. 

3 It SR is less than the number of TOS registers needed then 
fetch the remainder of the needed TOS registers from 
memory and update SR and SM. 



RH SUB 

ADD 
RH JSBS ADJl 
SM INC 
QDWN ADD 

JSB ADJS 
SM ADD 
JSZC STUl 

JSB ADJS 

ADD 



NZRO 


SR 


RH 


SUB 




RSB 






ADD 


PSHR 


NCRY 






ADD 




WRS 




SM 


INC SM 


DCSR 


DATA 


Z 


SREG 


JSZC STOl 




UNC 






ADD 


POPR 


ROBS 


FFFF 


SM 


ADDL SM 




NCRY 


SR 




ADD CTR 


INSR 


UNC 




OPB 


ADD REGN 


POPR 



Done if SR • n, otherwise adjust $ of TOS 
Return or save return address 
Jump if SR < n 

Write ft SM+1; Increment SM, decrement SR 
Write QDWN- Stack overflow if SM > Z 
Do again; Restore return address 
Read @ SM; Decrement SM 
Stack underflow if SM < 0; Increment SR 
Do again; Store (SM) into TOS register, 
restore return address 
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RECORD 

NO 

14872 
14873 
14874 
14875 
14876 
14877 
14878 
14879 
14880 
14881 
14882 
14883 
14884 
14885 
14886 
14887 
14888 
14890 
14892 
14894 
14896 
14898 



C.S. 
ADDR 



OFIE 
OFIF 
0F20 
0F21 
0F22 
0F23 



Optional Instruction Decoding 
LA8L RREG SREC! FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



Optional Instruction Decoding (Group 7) 

This module decodes the Group 7 optional instructions. At 
this t imo this only includes the instructions DDIV and OMUL 
Therefore, a jump table approach is not used. CIR.(12:4) 
is verifiled to be of the form lOOx and then the jump is mad 
to the instruction code. Otherwise the unimplement ed 
instructJLon trap is taken. The SR preadjust is set to zero 
because of those unimplemented instructions. 



LUT INSTR=DMUL/DDIV:0 010 000 101 llx xxx, ENTRY=GRP7 



RP7 OOOF CIR ANDL 
UBA UBB AND 

JSZ TRP 
FFFD ADDL 
ADD 
ADD 



NZRO 
UNC 



0008 
0006 UBA 



ADDL 

ANDL 

JSZ 

JSL 

ADD 

ADD 



TRP 
DMDV 



ZERO 

UNC 

UNC 



UBA :■ CIR. (12:4); UBB :- mask for bit 12 
Skip if bit 12 set; Skip if CIR. (13:2) ' C 
Unimplemented instruction trap 
SP4A :« -3 (for SR preadjust); JSB 
NOP to keep system nappy 
NOP to keep system happy 
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RECORD 


C.S 


NO 


ADDR 


14901 




14902 




14903 




14^04 




14:105 




14906 




14907 




14908 




14909 




14910 




14911 




14912 




14913 




14914 




14915 




14916 




14917 




14918 




14921 




14922 




14923 


1000 


14925 


1001 


14927 


1002 


14929 


1003 


14931 


1004 


14933 


1005 


14935 


1006 


14937 


1007 


14939 


1008 


14941 


1009 


14943 


lOOA 


14945 


lOOB 


14947 


lOOC 


14949 


lOOD 


14951 


lOOE 



COBOL II Firmware Instruction Set - Entry Point 

»*»...*.»*. ALU A «*«*••••••• ..«.»..«..*.* ALU B •••••••••••*•* 

LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



The entry point decodes t h 
range %020460/020476 . The opco 
word opcode Flag 5 is turned 
split stack mode, off if the u 
Flag 1 is turned on. Flag 2 i 
bit of the opcode for SDEC and 
zeroed for Bank D addressing wi 
and code segment set up. The t 
since most instructions occupy 
Instructions which occupy only 
distinguished by Flag 2. 



e single word opcodes i 
de %020477 denotes a do 
on if l he user is not i 
er is in split stack mo 
set to the least signi 
PB/DB testing. BKX3 is 
th t he CST in XBR . PARC 
able is indexed by pair 
an even-odd pair of ope 
a single word opcode ar 



n the 
uble 
n 

de. 
f leant 

ENDP, 

odes . 



SLUT INSTR-COBL:0 DIG 000 100 U , ENTRY-COBL ,DSPL>4 

%1000 

COBL DSPL ADD LSR 



UBB 


ADD 
ADD 
ADD 
ADD 




DSPL 


CSR 




CIR 


ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
ADD 






JSB 


XBR 




JSB 


ENDP 





COST 




ADDL 


LBL 








WRX3 




DB 


ADD 










NFSS 


UBB 


DL 


SUB 






CFl 


NCRY 


CFl 


Z 


DB 


SUB 






CTFl 




RAR 






ADD 




BKX3 


CF5B 


NFl 


HBF2 






ADD 






SF5B 








OPB 


ADD 
JSL 
JSL 
JSZ 
JSZ 
JSL 
JSL 


ALGN 

ABSN 

TRP 

TRP 

EDIT 

CMPS 


SPIB 


SFl 


RSB 
UNC 
UNC 
UNC 
UNC 
UNC 
UNC 


NF2 






JSB 


PARC 






F2 



OPCODE. (12:4) ; TABLE ADDRESS 

YRA:=rABLE START+OFFSET , 

SKIP IF NOT SPLIT BANKS OR DB < DL 

SPLIT STACK IF SPLIT BANK OR DB<DL OR DB>Z 

RAR:'YRA; F5:-SPLIT STACK; SKIP IF SO 

F2:»0PCC»E. (15.1) ;NOT SPLIT STACK MODE 

RANDOM INDEXED BRANCH; SAVE SECOND WORD OP. 

OPCODE BRANCH TABLE; ALGN (%020460/l) 

ABSN (X020462/3) 

UNIMPLEMENTED INSTRUCTION (%020464/5) 

UNIMPLEMENTED INSTRUCTION (%020466/7) 

EDIT (%020470/l) 

CMPS («020472/3) 

XBR (%020474); PARC (%020475) 

ENDP il%020476) ; 
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COBOL I 


RECORD 


C S 


NO 


ADDR 1. 


14954 


,. 


14955 


i» 


14956 




14957 




14958 


'< 


14959 


1* 


14960 




14961 


'» 


14962 


«* 


14963 


" 


14964 


" 


14965 


»i 


14966 


lOOF 


14968 


1010 


14970 


1011 


14972 


1012 


14974 


1013 


14976 


1014 


14978 


1015 C 


14980 


1016 


14982 


1017 


14984 


1018 


14986 


1019 


14988 


10)A 


14990 


lOlB 


14992 


lOlC 


14994 


10 ID 


14996 


lOlE 


14998 


lOlF 



COBOL 11 FIRMWARE INSTRUCTION SET 

«•*•.««..• ALU A «••••»*•*•• 
LABL RREG SREG FUNC SFNC STOR SPSK 



ENTRY POINT 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



If the single word opcode is %020477 , then the second 
word of the opcode is decoded here. P is incremented for 
the second word of the opcode. Second word opcodes greater 
than %51 are invalid. Flag 2 is set to bit 14. This table 
is indexed in groups of four to decode most instructions 
which have a multiple of four opcodes. All instructions 
have at least two opcodes and Flag 2 is used to determine 
these cases. 



ADDL 

SPIB ADD 

UBA ADD 

UBB ADD 

ADD 

SPIB ADD 

ADO 

JSZ 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

JSB 

JSB 

ADD 



LSR 
LSR 





UBA 


SPIB 


JSZC 


TRP 




COB 2 




ADDL 


LBL 


WRX3 




SPIB 


CSR 




RAR 




UBB 


CSR 
ADD 
JSZ 


TRP 


NF2 






JSL 
JSB 
JSB 
JSL 
JSL 
JSL 
JSL 


CMPT 
TCCS 
TCCS 
CVND 
CVND 
CVND 
CVND 


NF2 






JSB 


LDDW 


NF2 






JSL 
JSL 


ABSD 

NEGD 



TICB 

RSiB 

UNC 

F2 

UNC 

UNC 

UNC 

UNC 

UNC 

UNC 

F2 

F2 

NF2 



INCREMENT P FOR DOUBLE WORD INSTRUCTIONS 

MAX VALID OPCODE ' %51 

TABLE INDEX; TABLE START 

YRA:=TABLE START + INDEX 

RAR:=YRA; F2 : ^OPCODE . ( 14 : 1 ) 

RANDOM INDEXED BRANCH 

UNIMPLEMENTED INSTRUCTIONS(%0/3 ) 

UNIM. (%4/5) ;COMPARE STRINGS TRANSLATED (%6/7 ) 

TEST CONDITION CODE AND SET T0S(%8/11) 

TEST CONDITION CODE AND SET TOS(%12/17) 

CONVERT NUMERIC DISPLAY (%20/23 ) 

CONVERT NUMERIC DISPLAY('x;24/27 ) 

CONVERT NUMERIC DISPLAY(%30/33 ) 

CONVERT NUMERIC DISPLAY(%34/37 ) 

LOAD WORD(%40/41); LOAD DOUBLE WORD (y.42/43 ) 

TRANSLATE(%44/45) : ABS DECIMAL(%46/47 ) (CSTX ) 

;NEGATE DECIMAL(%50/51 ) (CSTX) 
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RECORD 

NO 

15001 
15002 
15003 
15004 
15005 
15006 
15007 
15008 
15009 
15010 
15011 
15012 
15013 
15014 
15015 
15016 
15017 
15018 
15019 
15020 
15021 
15022 
15023 
15024 
15025 
15026 
15027 
15028 
15029 



COBOL II FIRMWARE INSTRUCTION SET - LOAD FROM BYTE ADDRESS 

(^3 AAftlkftftAAAAA ALU A **A***A«**ft *«ftftftftftftA**** ALU B ********'f*****f 

ADDR LABL RREG SREG FUNG SFNC STOR SPSK RREQ SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



COMMENT 



klkAikftA«*lklkA*«*li 



>*•••••*• 



Pull the RBA parameter into t 
not already exist . 
Pop the RBA parameter if the 
Calculate the effective bank 
PUSH a TOS register to memory 
to be loaded if necessary. 
Perform bounds checking DL <> 
stack mode. If the bounds te 
32k is added to the effective 
area and bounds checkina 1 
Fetch the word at the etfecti 
Determine whether the effecti 
or a TOS register, and place 
the return parameter. 
Return if the RBA is even. 
Increment the effective addre 
word. Bounds check the new e 
Determine whether the new EA 
register. Combine the left b 
with the right byte of the pr 
which spans the two words and 

Barameter . 
one . 



he TOS registers if it does 

SDEC • 1 . 
address (EA). 
to make room for the word 

EA <• SR+SM if not in split 
St fails in DB-S area, then 

address to check the DL-D6 
erformed again, 
ve address . 

ve address fals in memory 
the appropriate value in 



ss and fetch the following 
ffective address, 
falls in memory or a TOS 
yte of the apporpriate value 

vious word to form a word 

place in the return 
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RECORD 


C.S. 


NO 


AODR 


15031 


1020 


15033 




15034 


1021 


15036 




15037 


1022 


15039 




15040 


1023 


15042 




15043 


1024 


15045 




15046 


1025 


15048 




15049 


1026 


15051 




15052 


1027 


15054 




15055 


1028 


15057 




15058 


1029 


15060 




15061 


102A 


15063 




15064 


102B 


15066 




15067 


102C 


15069 




15070 


102D 


15072 




15073 


102E 


15075 




15076 


102F 


15078 





LOAD WORD INSTRUCTION 

.....•••••. ALU A ••••«••««•• 
LABL RREG SREQ FUNC SFNC STOR SPSK 



SFl 
ROD 







ADD 






ADD 


RA 




ADD LSR 


UBA 


DB 


ADD 
ADD 


RH 


DL 


JSBS LDWC 




OPA 


ADD 


UBS 


SM 


CAD 




SP2B 


ADD 


RH 




INC 


UBA 




ADD 


UBA 


SM 


CAD 
ADD 
ADD 
ADD 


RH 


SP2B 


lOR 



EPSH 
ODD 
NEXT 
ROBD 



RREG SREG 
SR SM 

SPIB 
SP3B 

RA 

SP3B RH 

RH 

SP3B UBB 
SP4A 
REGN 

RH 

SP3B UBA 
OPB 
REGN 



'*•• ALU B •«**•••••' 
FUNC SFNC STOR SPEC 

JSZ PULM SP3B 

ADD 

CAD SP3B POP 

JSL LDWl SP2B 

JSB "+2 

JSBS LDWC 

ADD 



SUB 

ADD 

ADD 

ADD RLZ 

BNDE 

ADD LRZ 

ADD LRZ SP2B 

ADD 

ADD 



CTR 

RH 

RH 

RH 

CTR 

SP2B 



SKIP 

SRZ 

EVEN 

SR7 

NF5B 

NCRY 

TICB 
UNC 



TICB 
UNC 



10/ 2/86 9:27 AM 



DEFAULT EVEN RBA 

GET PARM FROM MEMORY^ IF NEEDED 

SDEC • OR 1? 

ODD RBA 

POP IF SDEC - i 

EFFECTIVE ADDRESS 

MAKE ROOM FOR RESULT; SAVE RBA 

SKIP TESTS IF SPLIT STACK 
BOUNDS TEST EA >- DL 
BOUNDS TEST SM >= EA 



VALUE IN MEMORY OR TOS REGISTERS? 

EVEN OR ODD RBA? 

VALUE IN MEMORY 

DONE IF EVEN RBA 

VALUE IN TOS REGISTERS 

FETCH NEXT WORD 

LEFT, "FIRST WORD ODD BYTE 

VALUE IN MEMORY TO TOS REGISTERS? SM >= EA? 

RIGHT -MEMORY EVEN BYTE 

RIGHT: -TOS REGISTER EVEN BYTE 



COMBINE LEFT AND RIGHT BYTES FOR RESULT 
DONE 
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RECORD 

NO 

15080 
15081 
15082 
15083 
15084 
15085 
15086 
15087 
15088 
15089 
15090 
15091 
15092 
15093 
15094 
15095 
15096 
15097 
15098 
15099 
15100 
15101 
15102 
15103 
15104 
15105 
15106 
15107 
15108 
15109 
15110 
15111 
15112 
15113 
15114 



COBOL II FIRMWARE INSTRUCTION SET - LOAD FROM BYTE ADDRESS 

C s ••***••**** ftLU A •***•*•*••• *•.**»«•*»««« ALU B ************** 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



k A A « A « * Ik « 



< 1. PULL the RBA paramet 

' not already exist . 

' 2. POP the RBA paramete 

' 3. Calculate the effect 

' 4. PUSH 2 TOS registers 

' double word to be lo 

' 5. Performs bounds chec 

' stack mode. If the 

then 32k is added to 

' DL-DB area and bound 

6. Fetch the word at th 

' 7. Determine whether th 

■ and place the approp 
' return paramete r 

' 8. Increment EA, bounds 

■ the bank. 
' 9. Determine whether th 
' register and place t 
' word of the return p 

■ 10. Return if the RBA is 

■ 11. Increment EA again. 

> of the bank . 

■ 12. Combine the right by 

> the second word to f 
' 13. Determine whether th 
' memory or a TOS regi 

> appropriate value wi 

■ to form a new second 

> 14. Done. 

kAAA«*AAA«A)kA*)kAlk**«ftAA*ft«*AA 



er into the TOS registers if it does 

r if the SDEC ' 1. 
ive bank address (EA). 

into memory to make room for the 
aded if necessary . 

king DL <- EA <- SM+SR if not in split 
bounds test fails in the OB-S area, 

the effective address to check the 
5 checking is performed again, 
e effective address. 

e EA falls in memory or a TOS register 
riate value in the first word of the 

check, and fetch the next word in 

e second word falls in memory or a TOS 
he appropriate value in the second 
aramete r . 

odd. 
bounds check, and fetch the next word 

te fo the first word and left byte of 
orm a new first word, 
e new effective address falls In 
ster. Combine the left byte of the 
th the right byte of the second word 
word . 
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RECORD 


C S 


NO 


ADDR 


15116 


1030 


15118 




15119 


1031 


15121 




15122 


1032 


15124 




15125 


1033 


15127 




15128 


1034 


15130 




15131 


1035 


15133 




15134 


1036 


15136 




15137 


1037 


15139 




15140 


1038 


15142 




15143 


1039 


15145 




15146 


103A 


15148 




15149 


103B 


15151 




15152 


103C 


15154 




15155 


103D 


15157 




15158 


103E 


15160 




15161 


103F 


15163 




15164 


1040 


15166 




15167 


1041 


15169 




15170 


1042 


15172 





LOAD DOUBLE WORD INSTRUCTION 

.... ...<,•>. A|_u A ........... 

LABL RREG SREG FUNG SFNC STOR SPSK 



ADD 

ADD 

ADD LSR 

ADD 

ADD 

JSBS LDWC 

ADD 



RA 
UBA 



UBB 
RREG 
UBA 
UBA 

SPOA 

UBA 

UBA 

RG 
RH 
UBB 



DL 

OPA 

SM 



CAD 

ADD 

INC 

SM CAD 

SP2B ADD 

INC 

ADO 

SM CAD 

ADD 

ADD 

UBA lOR 

SP2B lOR 



SFl 
RH ROD 

NCRY 

SP4A EPSH 

EPSH 

SPOA ROBD 

ODD 

NEXT 

ROBD 



RH 
RG 



............. ALU B •««••••••' 

RREG SREG FUNC SFNC STOR SPEC 



JSZ PULM SP3B 

ADD 

CAD SP3B POP 

JSL LDW2 SP2B 

JSB "+2 

JSBS LDWC 

ADD 



SP3B 

RH 

SP3B 



RH 
SP3B 



UBB 

SP4A 

REGN 

UBA 

OPB 

REGN 

UBA 
OPB 
REGN 



SUB 

ADD 

ADD 

BNDE 

ADD 

ADD 

ADD RLZ 

BNDE 

ADD LRZ SP2B 

ADD LRZ SP2B 

ADD RLZ 

ADD 



CTR 

RH 

RH 

CTR 

RG 

RG 

RH 

CTR 



SKIP 

SRZ 

EVEN 

SRG5 
NF5B 
NCRY 

TICB 
UNC 

TICB 
UNC 



TICB 
UNC 



10/ 2/86 9:27 AM 



DEFAULT EVEN RBA 

GET PARM FROM MEMORY IF NOT PRESENT 

SDEC ' OR 1? 

ODD RBA 

POP IF SDEC « 1 

EFFECTIVE ADDRESS 

MAKE ROOM FOR RESULT IF NEEDED; SAVE RBA 

SKIP BOUNDS TEST IF SPLIT STACK 
BOUNDS TEST EA >- DL 
BOUNDS TEST SM >• EA 



VALUE IN MEMORY OR TOS REGISTERS? 

FIRST WORD IN MEMORY 

FETCH NEXT WORD 

FIRST WORD IN TOS REGISTERS 

VALUE IN MEMORY OR TOS REGISTERS? 

EVEN OR ODD RBA? 

SECOND WORD IN MEMORY 

DONE IF EVEN 

SECOND WORD IN TOS REGISTERS 

FETCH THIRD WORD 

LEFT BYTE FIRST WORD 

VALUE IN MEMORY OR TOS REGISTERS, S > =■ EA? 

RIGHT BYTE SECOND WORD IN MEMORY 

RIGHT BYTE FIRST WORD FROM LEFT BYTE SECOND 

RIGHT BYTE SECOND WORD IN TOS REGISTERS 

FIRST WORD 

LEFT BYTE SECOND WORD FROM RIGHT BYTE SECOND 

SECOND WORD 

DONE 
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RECORD 

NO 

15174 
15175 
15176 
15177 
15178 
15179 
15180 
15181 
15182 
15183 
15184 
15185 
15186 
15187 
15188 
15189 
15190 
15191 
15192 
15193 
15194 
15195 
15196 
15197 
15198 



COBOL II F 

c s 

ADDR LABL 



IRMWARE INSTRUCTION SET - LOAD FROM BYTE ADDRESS 
»**»>****** ALU A *********** ************* ALU 8 ************** 
RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



DL-DB Bounds test and fetch 



10/ 2/86 9:27 AM 



Add 32K to effective address and refetch. 
Bounds test SM >• EA >' DL . 
Ret urn . 

1 - Make room for 1 TOS register in LDW 

Increment SH. 

Write bottom TOS register to SM+1 . 

Check for stack overflow 

Reread ALUA operand. 

Return . 

2 - Make room for 2 TOS registers in LDDW 

Add 2 to SM. 

Write bottom two TOS registers to SM+1. SM+2 . 

Check for stack overflow. 

Reread ALUA operand. 

Return. 
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RECORD 

NO 

15200 
15201 
15202 
15203 
15204 
15205 
15207 
15208 
15210 
15212 
15213 
15214 
15215 
15216 
15217 
15219 
15220 
15222 
15223 
15225 
15226 
15227 
15228 
15229 
15230 
15231 
15233 
15234 
15236 
15237 
15239 
15240 
15242 



COBOL II FIRNMARE INSTRUCTION SET - LOAD FROM BYTE ADDRESS 

C.S. »..»....».. ALU A ••••••««••* ............. ftLu B «««««««i««««««« 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



1044 
1045 



1046 
1047 
1048 



1049 
104A 
104B 
104C 



DL-DB BOUNDS CHECKING 



1043 LOWC 



UBB DL BNDE 
RH ADD 



8000 RH ADDL 



SP3B UBB BNDE 
ADD 



MAKE ROOM FOR ONE TOS REGISTER TO BE LOADED 

SM INC 
ODWN ADD 
RH ADD 

MAKE ROOM FOR TWO TOS REGISTERS TO BE LOADED 



WRS 




SM INC SM 


DATA 


Z 


SREG JSZC ST02 


ROD 




ADD 



SM INC 
QDWN ADD 
QDWN ADD 
RH ADD 



WRS ADD 

DATA UBA INC SM 

DATA Z SREG JSZC ST02 
ROD ADD 



10/ 2/86 9:27 AM 



EXTENDED BOUNDS CHECK FOR DL-DB 

ADD 32K TO EA 

BOUNDS TEST S > • EA AND EA >» DL (2527) 

FIRE UP MEMORY AND RETURN W/0 S KILL (2527) 



WRITE AT SM+1 

SM <» SM+1; SR <« SR-1 

STORE LAST TOS REGISTER 

CHECK FOR STACK OVERFLOW 

REFETCH WORD 

RETURN 



WRITE AT SM+1 

SR <• SR - 1 

STORE LAST TOS REGISTER 

SM <« SM + 2; SR <• SR - 1 

STORE NEXT TO LAST TOS REGISTER 

CHECK FOR STACK OVERFLOW 

FETCH WORD 

RETURN 
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RECORD 

NO 

15244 
15245 
15246 
15247 
15248 
15249 
15250 
15251 
15252 
15253 
15254 
15255 
15256 
15257 
15258 
15259 
15261 
15262 
15264 
15266 
15267 
15269 
15270 
15272 
15273 
15275 
15276 
15278 
15280 
15282 
15283 
15285 



COBOL II FIRMWARE INSTRUCTION SET 

C S .*.»......* ALU A •*••••«*•«• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



PERFORM 

..*.«.<,...... ALU B •••••««••••••« 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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Get at least 3 valid TOS registers. 

Swap segment *'s in the STATUS register and S-1. 

Calculate new P and fetch the instruction 

Calculate current delta P and store in S-3 . 

If the code segment I's are net equal, 

then goto CSEG -- the code segment set up routine. 

Bounds check PB <« new P <• PL. 

Update P 

Next inst rue t ion . 



104D PARC 

104E 
104F 

1050 

1051 

1052 

1053 
1054 
1055 



STA ADD RRZ SPOA 



JSZ PUL2 



0003 
SR 


UBA 


AODL 
JSZS 


PULM 




NCRY 




P 


ADD 
ADD 




RH 




STA 


ADD 


LLZ 






RB 




ADD 


RRZ 


SPIB 




STA 


ADD 




RB 




UBA 


UBB 


lOR 




SP2B 


RH 


PB 


SUB 




RC 




3FFF 


RC 


ANDL 




SP3B 


SPOA 


UBB 
SPIB 


ADD 
ADD 
JSBS 


CSEG 


SPOA 


NZRO 


4000 
UBB 


RC 

UBB 

XR12 


ANDL 

ADD 

JSBS 


CSEG 








JSB 


CNXT 




UNC 


SP3B 


PB 


ADD 







EXTRACT CURRENT SEGMENT NUMBER FROM STATUS 
NEED VALID RA.RB 

GET ANOTHER TOS REGISTER IF SR < 3 

RH : • CURRENT P 

CURRENT STATUS INFO 

SPIB :- NEW SEGMENT « 

RB :• CURRENT STATUS 

SP2B : =■ NEW STATUS 

RC - CURRENT DELTA P 

SP3B :• NEW DELTA P 

;UBB:- NEWMAP FLAG (CSTX) 

SPOA:= NEWMAP FLAG (CSTX) 

EXTERNAL BRANCH? 

EXTERNAL BRANCH IF PHY MAP <> NEW MAP (CSTX) 

JUMP TO BNDS CHECK AND NEXT (CSTX) 

READ NEXT INSTRUCTION IF INTERNAL BR (CSTX) 



PAGE 307 

RECORD 

NO 

15287 
15288 
15289 
15290 
15291 
15292 
15293 
15294 
15295 
15296 
16297 
15298 
15299 
15300 
15301 
15302 
15303 
15304 
15305 
15306 
15307 
15308 
15309 
15310 
15311 
15313 
15314 
15316 
15317 
15319 
15320 
15322 
15323 
15325 
15326 
15328 
15330 
15332 
15333 
15335 
15336 
15338 
15339 
15341 
15343 
15344 
15346 
15348 
15349 
15351 



COBOL II FIRMWARE INSTRUCTION SET - BRANC 
C.S. »...«««.... ALU A *»•«•**•••• 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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1057 

1058 

1059 

105A 

105B 

105C 
105D 
105E 

105F 

1060 

1061 
1062 

1063 
1064 

1065 
1066 



5. 
XBR 



Get at least 2 valid TOS registers - the test paragraph * 

and the return paragraph #. 

Pop the test paragraph » from the stack. 

Next instruction if the paragraph (t ' s are not equal. 

Pop the return paragraph number. 

Perform an XBR with the parameters remaining on the stack. 



Get at least two TOS registers - the segment # and 

delta P. 

Calculate new P and fetch the instruction. 

Pop the two parameters from the stack 

If the code segment tl ' s are not equal, then goto CSEG 

-- the code segment set up routine 

Bounds check PB <= new P <= PL. 

Update P. 

Next instruct ion . 



ENDP RB 
RA 



UBB 
RB 



JSZ PULM 

JSZS NEXT 

ADD 

ADD 

JSZ PULM 

ADD 
AND 
ADD 

ADD 

ADD 



SPOA ADD 

UBB SPIB JSBS CSEG 



SRL2 
NZRO 
CFl 



RB 
STA 



SPOA 
SP4A 



CMXT UBB PB 
SPOA 



ADD 
UBNE 



ADD 
ADD 







JSZ 


PUL2 










ADD 






POP 






ADD 






POP 






ADD 












JSZ 


PUL2 






4000 
RA 




ADDL 

ADD 

ADD 


RRZ 


SPIB 


POP 


UBA 


UBB 


lOR 




SP2B 


POP 


3FFF 


UBA 


ANDL 




SP3B 




UBA 


UBA 
XR12 


ADD 
JSBS 


CSEG 






SP3B 
PL 


PB 
UBB 


ADD 
UBNE 






RONI 




SREG 
UBA 


ADD 
ADD 




P 
XR12 





GET 1 TOS REGISTER IF ALREADY 1 

GET 2 TOS REGISTERS IF CURRENTLY NONE 

NEXT INST IF PARAGRAPH «S DON'T MATCH 

POP CURRENT PARAGRAPH « 

F1:=ENDP 

POP THE TERMINATION PARAGRAPH » 

ONE CLOCK NEEDED TO MAKE SR TESTS VALID 

AFTER THE POP 
GET 1 TOS REGISTER IF 1 ALREADY EXISTS 
GET 2 TOS REGISTERS IF NONE CURRENTLY EXIST 
;UBB:- NEWMAP FLAG (23241 

SPOA:» NEWMAP FLAG (2324) 

EXTRACT USER INFO FROM STATUS REGISTER 
SPIB :> NEW SEGMENT «■ POP RA 
SAVE RB FOR ABSCENCE/TRAP HANDLING 
SP2B :- NEXT STATUS; POP RB 
EXTRACT CURRENT SEGMENT NUMBER 
SP3B :» DELTA P WITHOUT TRACE BIT 
UBA:- NEWMAP FLAG, UBB:- CURRENT SEG «(CSTX) 
SEG SETUP NEEDED FOR EXTERNAL BRANCH? (CSTX) 
SEG SETUP NEEDED IF PHY MAP <> NEW MAP(2635) 
;READ NEXT INSTRUCTION IF INTERNAL BR (CSTX) 
BOUNDS CHECK PB <> NEW P 
BOUNDS CHECK NEW P <= PL 

UBA:= NEWMAP; NEW P (CSTX) 

XRB12:- NEWMAP FLAG, NEXT INSTRUCTION 
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RECORD 

NO 

15354 
15355 
15356 
15357 
15358 
15359 
15360 
15361 
15362 
15363 
15364 
15365 
15366 
15367 
15368 
15369 
15370 
15371 
15372 
15373 
15374 
15375 
15376 
15377 
15378 
15379 
15380 
15381 
15382 
15383 
15384 



COBOL II FIRMWARE INSTRUCTION SET 
C S **»*«•**.*. ALU A •••• 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



CODE SEGMENT SETUP 

**>« «.•••«<*...». ALU B •••••••••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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Determine wheth 
extended CST |> 
Read pointer to 
Read CST table 
CST table. 
Read new P bank 
ent ry for the s 
Read AMRTL/4 co 
for the segment 
If CST table le 
If segment numb 
then CST violat 
Get new P bank. 
Set reference b 
Fetch PB locati 
t able ent ry for 
Get new PL » PB 
Trap to mode vi 
non-p rivi leged 
Jump to Absence 
absent or if ca 
Read next inst r 
Bounds check PB 
Update P, BNKP. 
Next instructio 



er segment entry is in CST (<192) or in 
192) 

the CST table (0,0) if CST; (0,1) if CSTX . 
length contained in the first word of the 

contained in the third word of the table 
egment . 
ntained in first word of the table entry 

ngth " 0, then CST length violation abort, 
er ■ or segment • > CST table length, 
ion abo r t . 

it in AMRTL/4 and rewrite the word. 

on for segment from the forth word of the 

the segment and get new PB . 

+ (L/4)«4 - 1 
olation if mode in STATUS register is 
and the new segment is privileged. 
/Trace handler if the code segment is 
lis and returns are being traced, 
uc t ion 

<' new P <« PL. 

PB, PL, and STATUS registers. 
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COBOL 


II FIRMWARE INSTRUCTION SET - 


^CODE 


SEGMENT SETUP 










RECORD 


C.S. 




AAA*) 


^ A A A A 


AA /VLU A •" 


t A A A A 






AAAAA 


•••• ALU B 


A A A A , 


^ A A A A , 


k A A A A 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


15386 




..I,**, 


>«•<),, 


>AA«A 


AAAAA, 


tAAAAl 


tAAAA 


AAAAAA 


AAAAA 


AAAAA 




> A A A A 1 


>*AAA, 


■AAAA, 


>AAA 


15387 




• 




























15388 




• CST EXTENSION CHANGES FOR COBOL INSTRUCTIONS PARC. ENDP. XBR 




15389 
































15390 




• EXPECTED SP1B:= NEWSEG 


, SPOA:= NEWMAPFLAG 












15391 




* 




























15392 
15393 
15394 




• RETURNS 


OPA: 


» ABS(O) OR ABS(l), RH:= SEG NUMBER 












(,•**. 


>* (,1.1,, 


> AA A A 




> A AAAI 


1 A AAA 


AAA AAA 


AAAAA 


AAAAA 




t A A A«> 


lAA A A, 




> AA*: 


15395 




* 




























15396 


1067 


CSEG 


0292 




ADDL 




RH 








ADD 










15398 


1068 








ADD 












ADD 










15400 


1069 








ADD 






R0X3 




SPIB 


JSZ 


CSTV 


RH 




ZERO 


15402 


106A 




SPOA 




JSB 


CONT 




NZRO 


RH 




ADD 










15404 


106B 




UBB 




CAD 










UBB 


INC 






R0X3 




15406 


106C 






SPIB 


ADD 










UBA 


ADD 






R0X3 




16408 


106D 








INC 






R0X3 


UBA 


OPB 


JSBS 


CONT 






NCFIY 


15410 


106E 






UBB 


JSB 


CONT 




ZERO 


0292 




ADDL 










15412 


106F 






UBB 


ADD 






R0X3 




OPB 


ADD 










15414 


1070 






UBB 


JSB 


* + 2 




NZRO 




UBB 


ADD 




BKX3 






15416 


1071 






OPA 


JSZ 


CSTV 




ZERO 






ADD 










15418 


1072 






UBA 


ADD 




RH 






UBA 


ADD 






R0X3 




15420 


1073 








ADD 












ADD 










15421 


1074 






SPIB 


ADD 


LSL 








OPB 


ADD 










15423 


1075 




U6B 


SPIB 


JSZS 


CSTV 




NCRY 


UBA 


RH 


ADD 






R0X3 




15425 
































15426 


1076 








ADD 






R0X3 






ADD 




BKX3 






15428 


1077 








ADD 










OPB 


JSZ 


CSTV 


RH 




ZERO 


15430 


1078 


CONT 


SPOA 




ADD 










SP4A 


ADD 




XR3 






15432 


1079 








ADD 




SPOA 


FIHB 




UBA 


ADD 




BKX5 






15434 
































15435 


107A 






OPA 


ADD 






R0X3 


RH 


RH 


INC 


LSL 




CFl 


NPRV 


15437 
































15438 


1078 




UBA 


UBB 


ADD 




SP4A 


R0B3 


RH 


RH 


ADD 


LSL 




SFl 




15440 
































15441 


107C 




RREG 


UBB 


ADD 






R0X3 




UBB 


JSZ 


CSTV 






ZERO 


15443 
































15444 


107D 






OPA 


JSZ 


CTLV 




ZERO 


OOFF 


OPB 


ANDL 




XRO 






15446 
































15447 


107E 






OPA 


ADD 




RH 




RH 


UBA 


JSZC 


CSTV 






CRRY 


15449 
































15450 


107F 




2000 


UBA 


lORL 










SP4A 


INC 






R0X3 




15452 
































15453 


1080 






UBA 


ADD 






DATA 


OFFF 


UBA 


ANDL 










15455 
































15456 


1081 






OPA 


ADD 


LSL 




HBF2 


UBB 


UBB 


ADD 


LSL 








15458 
































15459 


1082 




UBB 




CAD 




SP4A 






OPB 


ADD 




XRl 






15461 
































15462 


1083 




RH 




CSL 








UBB 


UBA 


ADD 




XR2 




NF2 


15464 
































15465 
































15466 


1084 




UBA 




JSZC 


CSTV 




ZERO 






JSZ 


TRP6 






NFl 


15468 
































15469 
































15470 


1085 




SPOA 




ADD 






HBF2 




BKX5 


ADD 




XR12 
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UBA-%1222 (2319,2334) 

NOP FOR POSSIBLE TIMING PROBLEM (2336) 
READ ABS(O); RH:- SEG, JUMP IF SEG> (2319) 
JUMP IF NEWMAPFLAGoO; UBB: =0292 (2320,2334) 
UBA:= 291; READ NRPGMSEGS (ABS %1223) (2320) 
UBA=SEG,READ LSTT BANK (ABS %1221) (2320) 
READ ABS(l); JUMP IF SEG < NPRGMSEGS (2320) 
JUMP IF SEQ-NPRGMSEQS; UBB: =292 (2320,2336) 
RD LSTT ADDR(ABS %1222); UBB:«LSTT BNK(CSTX) 
JUMP IF LSTT BANK <> 0; BKX3:-LSTT BNK(CSTX) 
JUMP TO CSTV IF LSTT ADDR « (CSTX) 

RH:- LSTT; READ LSTT(O) (CSTX) 

UBA:- SEG*2; UBB:- LSTTIOl (CSTX) 

JUMP TO CSTV IF SEG > LSTf(O) (CSTX) 

READ LSTT(SEG*2) (CSTX) 

READ ABS(6); BKX3:- (CSTX) 

;RH:- LSTT(SEG*2), JMP TO CSTV IF ZERO(CSTX 

UBA:- NEWMAP FLAG; DELTA P FOR ENDP (CSTX) 

SAVE XBR, PARC (1)/ ENDP(O) ENTRY FLAG 

BKX5 :- NEWMAP FLAG (2635) 

READ CST ENTRY LENGTH 

(SEQ« • 4) + 2; Fl := NGN PRIVELEGED MODE 

READ NEW P BANK)) 

(SEG« • 4); Fl :« PRIVELEGED MODE FROM STA 

READ AMRTL/4 

CST VIOLATION IF SEQ« - 

CST LENGTH VIOLATION IF CSTL - 

SET NEW P BANK 

RH :• AMRTL/4 

CST VIOLATION IF SEG« > CSTL 

TURN ON REFERENCE BIT IN AMRTL/4 

READ PB LOCATION FOR NEW SEGMENT 

REWRITE AMRTL/4 WITH NEW REFERENCE BIT 

MASK OFF L/4 

F2 :- MODE BIT FROM CST 

CODE SEGMENT LENGTH 

CODE SEGMENT LENGTH - 1 

SET NEW PB FROM CST ENTRY 

GET BIT(O), WORD(O) OF CST ENTRY IN 

THE LSB OF UBA 
SET PL ;- NEW PB + LENGTH - 1 
GO TO CST VIOLATION IF TRYING TO 

ACCESS A FREE ENTRY 
MODE VIOLATION IF CODE=PRIV AND STA=NONPRIV 
F2 := XBR, PARC (1)/ ENDP(O) ENTRY FLAG 



(2635) 
(2635) 



(2635) 
(2635) 
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COBOL 


RECORD 


C S 


NO 


ADDR 


15472 




15473 


1086 


15475 


1087 


15477 




15478 


1088 


15480 




15431 


108'3 


154}!3 




15484 


lOJA 


1548f 




154S7 


108B 


154;:, P 




154''.0 


103C 


154&-> 




15493 


108D 


15495 




15496 


108E 


15498 





11 FIRMWARE INSTRUCTION SET 

........... ALU A •»*•••.•••• 

LABL RREG SREG FUNC SFNC STOR SPSK 



UB8 


ADD 

RH AND 


UBA 


JSB 




SP4A ADO 




ADD 




SP2B ADD 




ADD 




ADD 




ADD 



CODE SEGMENT SETUP 

.... ............. y^LU B •••*»*«*•*•««• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



F2 
NEG 



NF2 


9000 
RH 


XR3 


ADDL 
lOR 






NZRO 


UBB 
SP3B 




JSB 
ADD 


CABT 






UBA 


UBB 


UBNE 










XRO 


ADO 




BNKP 




SP3B 


XRl 


ADD 




P 






XRl 


ADD 




PB 


NEXT 




XR2 


ADD 




PL 



10/ 2/86 9:27 AM 

COMMENT 

XRB12 :- NEWMAP FLAG (2635) 

MASK FOR CST ABSENCE AND TRACE BITS (2635) 

MASK WITH CST ABSENCE AND TRACE BITS 

MB :- ABSENCE FROM CST OR TRACE FROM DEL. P 

ABSENCE/TRACE FOR XBR , PARC 

ABSENCE/TRACE FOR ENDP 

SEGMENT LENGTH (PL-PB) 

DELTA P 



BOUNDS TEST SEGMENT LENGTH 
NEW STATUS 
SET NEW P BANK 

NEW P LOCATION; FETCH 

SET NEW PB 

NEXT INSTRUCTION 

SET NEW PL 



DELTA P 
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RECORD 

NO 

15500 
15501 
15502 
15503 
15504 
15505 
15506 
15507 
15508 
15509 
15510 
15511 
15512 
15513 
15514 
15515 
15517 
15518 
15520 
15521 
15523 
15524 
15526 
15527 
15529 
15530 
15532 
15533 
15535 
15536 
15538 
15539 
15541 
15542 
15544 



COBOL II FIRMWARE INSTRUCTION SET - ABSENCE/TRACE TRAPS 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 
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108F 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 



trap parameter SPOA to zero, 
-lag 1 for trap routine. 



Set 

Clear Fl 

Writii all TOS registers to memory and set SR = 0. 

Writ« a 4 word stack marker to memory containing X, nev 

delta P (from RB for trace bit if ENDP), new STATUS, ar 

deltn Q. 

Update SM and Q. 

Jump to the interrupt handler with either the abscence 

or t race label . 







ADD 






OPA 


ADD 






SM 


INC 






ODWM 


ADD 




X 




ADD 




UBS 




ADD 






SP2B 


ADD 




UBB 


Q 


SUB 








JSZ 


IRl 






JSZ 


IRl 









ADD 


HBF2 




XR3 


ADD 


WRS 


SR 


SM 


RE PC 


DATA 






ADD 


DATA 


SP3B 




ADD 


DATA 


0004 


SM 


ADDL 


DATA 


UBB 




ADD 


DATA 






ADD 


F2 


9FQ1 




ADDL 


UNC 


AOOl 




ADDL 



SM DCSR SRZ 
DCSR SRL2 



TRAP PARAMETER > 

XBR.PARCd) OR ENDPfOl? 

F2 <■= ABSCENCE BIT FROM AMRTL/4 

DELTA P WITH TRACE BIT FOR ENDP 

WRITE TOS REGISTERS AT SM+1,2,... 

NEW SM 

EMPTY TOS REGISTERS TO MEMORY 

UNTIL NO TOS REGISTERS ARE LEFT 

X «> STACK MARKER 

DELTA P; NO TOS REGISTERS LEFT 

DELTA P => STACK MARKER 

ACCOUNT FOR NEW STACK MARKER WITH SM 

STATUS -> STACK MARKER 

POINT TO NEW STACK MARKER 

DELTA Q -> STACK MARKER 

ABSCENCE TRAP 
ABSCENCE LABEL 
TRACE TRAP 
TRACE LABEL 
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RtCORD 

NO 

J.5546 
15S47 
15548 
15549 
15550 
15551 
15552 
15553 
15554 
15555 
15556 
15557 
15558 
15559 
15560 
15561 
15562 
15563 
15564 
15565 
15566 
15568 
15569 
15571 
15572 
15574 
15575 
15577 
15578 
15580 
15581 
15583 
15584 
15586 
15587 



COBOL II FIRMWARE INSTRUCTION SET - TEST CONO CODE & SET TOS 

C S. ....«.«*..* ALU A •«•*»•«•••* ............. ALU B •»••«•••«•»•«. 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



1. Make room for the return parameter in RH to be pushed 
on the s t ack . 

2. Default return parameter - FALSE (0); 

3. Check for undefined condition code in the STATUS 
register. If so, then next instruction. 

4. Construct a Q-E-L 3 bit mask from the two bit conditi 
code contained in the status register. L and E map t 
the same bits, but G must be specifically set when tt 
condition code is zero 

5. If any bits in the STATUS register and opcode G-E-L 
masks match, then set the return parameter to true. 

6 . Next ins t ruction 
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1099 TCCS ADD 

109A 0300 STA ANDL 

109B FCFF STA lORL 

109C UBA INC 

1090 ADD 

109E RQ SP2B AND 

109F CAD 
$WARN 



JSZ PSHM SR7 

0007 SPIB ANDL RG 
UBA ADD SWAB SP2B EPSH NZRO 
NZRO 0004 ADDL SP2B 
NEXT ADD 

ZERO ADD 

ADD NEXT 



DEFAULT RETURN VALUE IS FALSE 

PUSH 1 TOS REG FOR RETURN VALUE IF FULL 

MASK OFF STATUS CONDITION CODE BITS 

MASK OFF INSTRUCTION G-E-L FIELD 

XFFFF IF UNDEFINED CONDITION CODE 

G-E-L MASK FOR L & E CONDITION 

TEST FOR UNDEFINED CONDITION CODE 

G-E-L MASK FOR G 

FALSE AND NEXT INST. IF UNDEFINED CON. CODE 

ANY BITS IN THE Q-E-L MASKS MATCH? 

TRUE (-1) IF ANY BITS MATCH 
NEXT INSTRUCTION 
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RECORD 

NO 

15589 
15590 
15591 
15592 
15593 
15594 
15595 
15596 
15597 
15598 
15599 
15600 
15601 
15603 
15604 
15606 
15607 
15609 
15610 
15612 
15613 
15615 
15616 
15618 
15619 
15621 
15622 
15624 
15625 
15626 
15628 
15629 
15631 
15632 
15634 
15635 
15637 
15638 
15640 
15641 
15643 
15644 
15646 



COBOL ]:i FIRMWARE INSTRUCTION SET - COMPARE STRINGS 

C.s. *»»«.•*.... ALU A ••••••**••• *««....»..»*. ALU B •••••••••«•<•• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 



CMPS / CMPT 



10/ 2/86 9:27 AM 



lOAO 
lOAl 
10A2 
10A3 
10A4 
10A5 
10A6 
10A7 

10A8 
10A9 



lOAB 
10 AC 
10 AD 
lOAE 



1. Adjust the number of TOS registers (4-CMPS ,5-CMPT) . 

2. Initialize target info if target length > using 
either PB or DB relative info. 

3. Initialize source info if source length > 0. 

4. Branch to apporpriate comparison routine. 



CMPT 0005 ADDL RH 
CMPS SP4A ADD 
ADD 
RA RC lOR 

SM ADD SPO 
JSB CM18 
RD ADD LSR 
UBA DB ADD RH 



UBA DL 
CMSO RD 



lOAA CMSl RB 



UBA DB 
UBA DL 
RH 
RC 



JSBS CM19 

CSR 

ADD LSR 

ADD RH 

JSBS CM19 

ADD XRO 

JSB CM12 









ADD 






SF4B 


UMC 


EVEN 


0004 




ADDL 




RH 






SF3A 


0020 




JSLZ 
ADDL 


ADJS 


RF 




UNC 




UBA 




JSB 


CM21 






ZERO 


NF3A 


RC 


BNKD 


JSB 
ADD 


CMSl 


BKX4 




ZERO 


ROD 




SM 


JSB 


•+2 


SP3B 




NF5B 


NCRY 


UBB 


UBA 


JSBS 


CM19 






NCRY 


HBF2 


RH 




ADD 




XRO 


R0X4 






RA 




JSB 


CM30 






ZERO 


ROD 




SM 


JSB 


*+2 






NF5B 


NCRY 


UBB 


UBA 


JSBS 


CM19 






NCRY 




RB 




ADD 






CFl 


EVEN 


ZERO 






ADD 






SFl 





NEED 5 TOS REGISTERS FOR COMPARE TRANSLATED 

F4 SIGNALS TRANSLATION NEEDED 

PB/DB TARGET STRING? 

NEED 4 TOS REGISTERS FOR COMPARE STRINGS 

F3A=DB RELATIVE TARGET STRING 

ADJUST THE NUMBER OF TOS REGISTERS 

ARE BOTH SOURCE AND TARGET LENGTHS ZERO 

BLANK FOR FILL CHARACTER 

UPPER LIMIT FOR SOURCE BOUNDS TESTS 

DONE IF BOTH LENGTHS ARE ZERO 

PB RELATIVE TARGET? 

TARGET LENGTH » 0? 

TARGT RBA/2 

TARGET BANK IS DB RELATIVE 

FETCH FROM TARGET BANK ADDRESS 

SKIP BOUNDS TEST IF SPLIT STACK MODE; 

UPPER LIMIT FOR TARGET BOUNDS TESTS 
BOUNDS TEST TARGET ADDRESS > ■= DL 
BOUNDS TEST TARGET ADDRESS <• SM 
F2 DETERMINES EVEN OR ODD TARGET BYTE 
TARGET OPERATIONS PERFORMED IN ALUB 
SOURCE RBA/2 (0903) 

SOURCE LENGTH • 0? 
FETCH FROM SOURCE BANK ADDRESS 
SKIP BOUNDS TEST IF SPLIT STACK MODE 
BOUNDS TEST SOURCE ADDRESS >- DL 
BOUNDS TEST SOURCE ADDRESS <• SM 
SOURCE OPERATIONS PERFORMED IN ALUA 
Fl DETERMINES EVEN OR ODD SOURCE BYTE 
TARGET LENGTH - 0? 
ODD SOURCE BYTE 
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RECORD 

NO 

15648 
15649 
15650 
15651 
15652 
15653 
15654 
15655 
15656 
15657 
15658 
15659 
15660 
15662 
15663 
15665 
15666 
15668 
15669 
15671 
15672 
15674 
15675 
15677 
15678 
15680 
15681 
15683 
15684 
16686 
15637 
1 5 r, S '1 
1!-:69C 
15692 
15693 
15695 
15696 
15698 
15699 
15701 
15702 
15704 
15705 
15707 
15708 
15710 



COBOL II FIRMWARE INSTRUCTION SET - COMPARE STRINGS 

C.S. «..»*».««*« ALU A ••»*•»»*»•« *»•.«...«•««« ALU B •»•*•••••••*«• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 



1. Extract the appropriate source and target bytes. 

2. Update the RBA's and lengths. 

3. Translate source and/or target bytes if CMPT. 
4 Compare source and target bytes. 

5. Fetch next source and/or target word if needed. 

6. Check for interrupts. 



10/ 2/86 9:27 AM 



WHILE source and target lengths are both > 0. 



lOAF CMS2 
lOBO CMS3 
lOBl 



OPA 
OPA 



RA 



RA 



10B2 

1063 

10B4 

10B5 

10B6 

10B7 

10B8 

10B9 CMS4 XRO 

lOBA SPOA UBA 

lOBB CMS5 

lOBC 

lOBD 

lOBE CMS6 

lOBF 



ADD 

ADD 

CAD 

INC 

CAD 

INC 

JSB 

JSB 

JSB 

JSB 

INC 

BNDE 

JSB 

JSB 

JSB 

ADD 

JSZ 



LRZ RG 

RRZ RQ 

RA 

RB 

RC 



RD 



CMS7 
CMS4 
CMS5 
CMS 3 



CMS6 
CMS2 
CMS2 



ZERO 

Fl 

F2 

UNC 

ROD 

SF2 

TEST 

F3A 

UNC 



OPB ADD LRZ SPIB 
OPB ADD RRZ SPIB 

ADD 

ADD 

ADD 

JSB CM15 
RG SPIB JSBS CM20 
RC JSB CMll 

ADD 

ADD 

ADD 

JSB CMS2 
XRO INC XRO 
SP3B UBB BNDE 
SP3B SREG UBNE 

ADD 
FFFF P ADDL P 



EVEN SOURCE BYTE 
EVEN TARGET BYTE 
ODD SOURCE BYTE 
ODD TARGET BYTE 
DECREMENT SOURCE LENGTH 

INCREMENT SOURCE RBA 

DECREMENT TARGET LENGTH 

INCREMENT TARGET RBA 

TRANSLATE IF CMPT 

SOURCE LENGTH • 0? 

ARE THE SOURCE AND TARGET BYTES EQUAL? 

FETCH NEXT SOURCE WORD? 

TARGET LENGTH » 0? 

FETCH NEXT TARGET WORD? 

SIGNAL ODD SOURCE BYTE 

NEXT ITERATION FOR BOTH ODD BYTES 

SIGNAL ODD TARGET BYTE 

FETCH NEXT SOURCE WORD 

SIGNAL EVEN SOURCE BYTE; FETCH TARGET TOO? 

BOUNDS TEST EA <■ SM, SIGNAL ODD TARGET BYTE 

NEXT ITERATION IF ODD TARGET BYTE 

INTERRUPT PENDING? 

FETCH NEXT TARGET WORD 

NEXT ITERATION IF DB RELATIVE TARGET 

BOUNDS TEST EA <• SM; SIGNAL EVEN TARGET 

NEXT ITERATION 

BOUNDS TEST EA <« PL IF PB RELATIVE 

LOCAL INTERRUPT HANDLER 

CMPS/CMPT? 

SLOWLY TO SYSTEM INTERRUPT HANDLER 

DECREMENT P FOR CMPT (DOUBLE WORD OPCODE) 
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RECORD 

NO 

15712 
15713 
15714 
15715 
15716 
15717 
15718 
16719 
15720 
15721 
15 7 ■■? 
15 713 
157?4 
15725 
1572r> 
15728 
15729 
15731 
15732 
15734 
15735 
15736 
15737 
15739 
15740 
15742 
15743 
15745 
15746 
15748 
15749 
15751 
15752 
15754 
15755 
15757 



COBOL :[I FIRMWARE INSTRUCTION SET 

C S. ...««..».«. ALU A **«*•••«••• 

ADDR I.ABL RREG SREG FUNC SFNC STOR SPSK 



COMPARE STRINGS 

«... ........*.«.. ALU B »«*•*«•*.«•.>•* 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



1. Fetcti next target word if needed. 

2. Use tilank (translated if CMPT) for source byte. 
LOOP 

3 Extract the appropriate target byte. 

4. Update the target RBA and length. 

5. Translate target byte if CMPT. 

6. Compare source (blank) and target bytes. 

7. Fetch the next target word if needed 

8. C;heck for interrupts. 
WHILE target length > 0. 



lOCO CM37 RF 

lOCl 

10C2 



10C3 

10C4 

10C5 

10C6 

10C7 

IOC 8 CMS 8 

10C9 



CMS9 

CMIO RC 
RD 
RC 



ADD 




RG 




RC 




JSB 


CM21 


ADD 












JSB 


CM17 


JSB 


CMS8 




F2 






JSB 


CMIO 


ADD 










OPB 


ADD 


LRZ 


CAD 




RC 






OPB 


ADD 


RRZ 


INC 




RD 








JSB 


CM16 


JSB 


CM21 




ZERO 


RG 


SPIB 


JSBS 


CM20 


JSB 


CMS6 




TEST 






JSB 


CMIO 


ADD 










XRO 


INC 




JSB 


CMS9 




F3A 


SP3B 


UBB 


BNDE 





SPIB 
SPIB SF2 



F4B 

NZRO 

NF2 



R0X4 
CF2 



USE BLANK FOR SOURCE BYTE 
BOTH SOURCE AND TARGET LENGTHS 

TRANSLATE BLANK IF CMPT 
FETCH NEXT TARGET WORD? 
SAME TARGET WORD? 



EVEN TARGET BYTE 

DECREMENT TARGET LENGTH 

ODD TARGET BYTE; SIGNAL ODD TARGET BYTE 

INCREMENT TARGET RBA 

TRANSLATE IF CMPT 

TARGET LENGTH - 0? 

SOURCE AND TARGET BYTES EQUAL? 

INTERRUPTS PENDING? 

NEXT ITERATION IF TARGET RBA IS EVEN 

FETCH NEXT TARGET BYTE 

NEXT ITERATION IF TARGET IS DB RELATIVE 

BOUNDS TEST EA <= SM; SIGNAL EVEN TARGET 
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RECORD 

NO 

15759 
15760 
15761 
15762 
15763 
15764 
15765 
15766 
15767 
15768 
15769 
15770 
15771 
15772 
15773 
15775 
15776 
15778 
15779 
15781 
15782 
15783 
15784 
15786 
15787 
15789 
15790 
15792 
15793 
15795 
15796 
15798 
15799 
15801 
15802 
15804 
15805 
15807 
15808 
15810 



COBOL II FIRMWARE INSTRUCTION SET - COMPARE STRINGS 

^ 3 *« * « «**«* A ft ALU A ********AA* ************* ALU B i************* 
ADDR LABL RREQ SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 

****************************************************************** 

* 1. Fetch next source word if needed. 

* 2. Use blank (translated if CMPT) for target byte. 
« LOOP 

* 3. Extract the appropriate source byte. 

* 4. Update the source RBA and length. 

* 5. Translate source byte if CMPT. 

* 6. Compare target (blanK) and source bytes. 

* 7. Fetch the next source word if needed. 

* 8. Check for interrupts. 

* WHILE source length > 0. 



10/ 2/88 9:27 AM 



lOCB CMll 
iOCC 

iOCD CM12 

lOCE CM13 

lOCF CM14 

lODO 

lODl 

10D2 

10D3 

10D4 CM22 

10D5 



ADD 

JSB CM22 



LRZ 
RRZ 



ADD 
OPA ADD 
OPA ADD 
RA CAD 
RB INC 
RA JSB CM21 
JSB CMS6 
XRO INC 
SPOA U6A 6NDE 



NFl 
SFl 



RG 
RG 
RA 
RB 

ZERO RG 

TEST 
XRO ROD 

CFl 



SP3B SREG UBNE 
RF JSB CM26 SPIB 
JSB CM14 

RF JSB CM26 SPIB 

ADD 

ADD 

ADD 

JSB CM17 
SPIB JSBS CM20 
JSB CM14 
ADD 
JSB CM13 



NEXT ITERATION 
BOUNDS TEST EA 



<- PL IF PB RELATIVE 



TRANSLATE TARGET BLANK IF CMPT 
FETCH NEXT TARGET WORD? 
SAME TARGET WORD? 



TRANSLATE TARGET BLANK IF CMPT 
EVEN SOURCE BYTE 

ODD SOURCE BYTE 

DECREMENT SOURCE LENGTH 

INCREMENT SOURCE RBA 

TRANSLATE IF CMPT 

SOURCE LENGTH - 0? 

SOURCE AND TARGET BYTES EQUAL? 

INTERRUPTS PENDING? 

NEXT ITERATION AFTER EVEN SOURCE 

FETCH NEXT SOURCE WORD 



UNC BOUNDS TEST EA 
NEXT ITERATION 



<• SM; SIGNAL EVEN SOURCE 
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COBOL n 


FIRMWARE INSTRUCTION SET 


- COMPARE STRINGS 












RECORD 


C.S 






* * A 


^n* k * 


.A ALU A •'■•'■ 


A A A A A A 


A A A A 


AAAAA 


A A A A 


ALU B 


A A A A 


AAAA 


K A H: A A 


NO 


ADDR LABL 


RREG SREG 


FUNC SFNC STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


15812 




. 


t 


• *•« 


*«••• 


AAAAAAAAAAAAA 


AAAAAA< 


AAAAA 


AAAAA 


AAAAA 


AAAAA 


AAAA 


AAAA 


kAH.A 


15813 




























* 


15814 








Translate 


both source 


and tare 


et by 


tes. 










* 


15815 




























* 


15816 








1. 


Use source byte as 


an index int 


the 


translation table. 


* 


15817 








2. 


Fetch 


the word con 


ainii g 


the t 


ransl 


ated 


source byte. 


* 


15818 








3. 


Extract left/right 


byte. 














* 


15819 








4, 


Do no 


t t ranslate target if 


PR relati 


i/e . 








* 


15820 








5. 


Use t 


arget byte as 


an index int 


t rans lat 


ion t able . 




* 


15821 








6, 


Fetch 


the word con 


aining 


the t 


ransl 


ated 


t arge 


byte. 


* 


15822 








7. 


Extract the left/right byt 


e . 












A 


15823 








8. 


Return for comparison. 














* 


15824 




























* 


15825 




* 


* 


* * * * 


* A * A A 


AAAAAAAAAAAAA 




AAAAA 


AAAAA 


A A A A * 


AAAAA 


AAAA 


■t A A A A 


1^ A <t A 


15826 


10D6 ( 


M15 


RE 


RG 


ADD LSR 








ADD 






PSHR 




15828 






























15829 


10D7 






USA 


DB 


ADD RH 


ROD 




SM 


JSB 


•+2 






NF5B 


15831 






























15832 


10D8 






UBA 


DL 


JSBS CM19 


NCRY 


UBB 


UBA 


JSBS 


CM 19 






NCRY 


15834 






























15835 


10D9 








OPA 


ADO 




RE 


RG 


ADD 






POPR 


ODD 


15837 






























15838 


lODA 








XRO 


ADD 


ROD 


UBA 




ADD 


LRZ 


RG 




UNC 


15840 






























15841 


lODB 










ADD 


F3A 


RREG 




ADD 


RRZ 


RG 






15843 






























15844 


lODC 










ADD 


RSB 






ADD 










15846 






























15847 


lODD 






RE 


SPIB 


ADD LSR 








ADD 






PSHR 




15849 






























15850 


lODE 






UBA 


DB 


ADD RH 


ROD 




SM 


JSB 


•+2 






NF5B 


15852 






























15853 


lODF 






UBA 


DL 


JSBS CM19 


NCRY 


UBB 


UBA 


JSBS 


CM19 






NCRY 


15855 






























15856 


lOEO 








OPA 


ADD 




RE 


SPIB 


ADD 






POPR 


ODD 


15858 






























15859 


lOEl 








XRO 


ADD 


ROD 


UBA 




ADD 


LRZ 


SPIB 




UNC 


15861 






























15862 


10E2 










ADD 




RREG 




ADD 


RRZ 


SPIB 






15864 






























15865 


10E3 










ADD 


RSB 






ADD 










15867 
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TRANSLATION TABLE INDEXED BY SOURCE BYTE/2 

SAVE RETURN ADDRESS 

FETCH FROM TABLE BANK ADDRESS 

SKIP BOUNDS TEST IF SPLIT STACK 

BOUNDS TEST TABLE EA >- DL 

BOUNDS TEST TABLE EA <- SM 

TABLE WORD CONTAINING TRANSLATED BYTE 

EXTRACT EVEN OR ODD BYTE? 

REFETCH THE SOURCE WORD 

EXTRACT THE EVEN BYTE 

PB OR DB RELATIVE TARGET? 

EXTRACT THE ODD BYTE 

RETURN IF TARGET IS PB RELATIVE 

TRANSLATION TABLE INDEXED BY TARGET BYTE/2 

SAVE RETURN ADDRESS 

FETCH FROM TABLE BANK ADDRESS 

SKIP BOUNDS TEST IF SPLIT STACK MODE 

BOUNDS TEST TABLE EA >- DL 

BOUNDS TEST TABLE EA <- SM 

TABLE WORD CONTAINING TRANSLATED BYTE 

EXTRACT EVEN OR ODD BYTE? 

REFETCH SOURCE WORD 

EXTRACT EVEN BYTE 

EXTRACT ODD BYTE 
TRANSLATIONS FINISHED 



PAGE 318 

RECORD 

NO 

15869 
15870 
15871 
15872 
15873 
15874 
15875 
15876 
15877 
15878 
15879 
15880 
15881 
15882 
15883 
15884 
15885 
15886 
15887 
15888 
15890 
15891 
15893 
15894 
15896 
15897 
15899 
15900 
15902 
15903 
15905 
15906 
15908 
15909 
15911 
15912 
15914 
15915 
15916 
15917 
15919 
15920 
15922 
15923 
15925 
15926 
15928 
15929 
15931 
15932 
15934 
15935 



COBOL II FIRMWARE INSTRUCTION SET - COMPARE STRINGS 

ADDR LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



*ik*]«AA)k*ftft*AAA*««AA«ftftlkA*A1kA*AA*A*«*)k«**«>IAft*AlklklllftAlk**AihAA 

ranslate target byte. 

Do not translate target if PB relative. 

Use target byte as an index into translation table. 

Fetch the word containing the translated target byte. 

Extract the left/right byte. 

Return for comparison. 

ranslate source byte. 

Use source byte as an index into the translation table. 
Fetch the word containing the translated source byte. 
Extract left/right byte. 
Return for comparison. 
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RE 

UBA 

UBA 



10E4 
10E5 
10E6 
10E7 
10E8 
10E9 
IDEA 
lOEB 
lOEC 



lOED CM17 RE 



ftAAA***lklk*A*AftftftAlli*ll 

ADD 



F3A 



LSR 



ADD 
SPIB ADD 
DB ADD RH 
DL JSBS CM19 
OPA ADD 
XRO ADD 

ADD 

ADD 



JSBS CM19 



ROD 
NCRY 



UBB 
RE 
UBA 
RREG 



ADD 

ADD 

ADD 
SM JSB "+2 
UBA JSBS CMig 
SPIB ADD 

ADD LRZ 

ADD RRZ 

ADD 



PSHR 

NF5B 
NCRY 
POPR ODD 
SPIB UNO 
SPIB 



ADD RRZ RG 



NCRY UBB UBA JSBS CM19 



ADD LRZ RG 



PB OR DB RELTIVE TARGET? 

PB RELATIVE TARGET NEEDS NO TRANSLATION 

TRANSLATION TABLE INDEXED BY TARGET BYTE/2 

SAVE RETURN ADDRESS 

FETCH FROM TABLE BANK ADDRESS 

SKIP BOUNDS TEST IF SPLIT STACK 

BOUNDS TEST TABLE EA >• DL 

BOUNDS TEST TABLE EA <- SM 

TABLE WORD CONTAINING TRANSLATED BYTE 

EXTRACT EVEN OR ODD BYTE 

REFETCH THE SOURCE WORD 

EXTRACT THE EVEN BYTE 

EXTRACT THE ODD BYTE 
TRANSLATION FINISHED 



TRANSLATION TABLE INDEXED BY SOURCE BYTE/2 

SAVE RETURN ADDRESS 

FETCH FROM TABLE BANK ADDRESS 

SKIP BOUNDS TEST IF SPLIT STACK 

BOUNDS TEST TABLE EA >- DL 

BOUNDS TEST TABLE EA <• SM 

TABLE WORD CONTAINING TRANSLATED BYTE 

EXTRACT EVEN OR ODD BYTE? 

EXTRACT ODD BYTE 

EXTRACT EVEN BYTE 

REFETCH THE SOURCE WORD 

TRANSLATION FINISHED 
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RECORD 

NO 

15937 
15938 
15939 
15940 
15941 
15942 
15943 
15944 
15945 
15946 
15947 
15948 
15949 
15950 
15951 
15952 
15953 
15954 
15955 
15956 
15958 
15959 
15961 
15962 
15964 
15965 
15967 
15968 
15969 
15970 
15972 
15973 
15975 
15977 
15978 
15979 
15980 
15982 
15983 
15985 
15986 
15988 
15989 
15991 



COBOL II FIRMWARE INSTRUCTION SET 

C.S. .»«....•«.„ /^Lu A ««•••««•*«« 

ADDR LABL RREG SREG l-UNC SFNC STOR SPSK 



10F3 
10F4 
10F5 
10F6 



10F8 
10F9 



COMPARE STRINGS 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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PB relat ivi! t arget . 

1. Initialize PB relative target info 

DL-DB extended bounds test. 



Add 32l< to bank address and refetch 
Re-perform bounds tests. 
Ret urn 



FINISH. 

1. Set CCIi if the strings are equal. 

2 Set CCG/CCL if the last bytes compared are not equal. 

3. Pop all TOS register parameters. 

4. Next inst ruction . 



CM18 RD 
UBA 
UBA 



ADD LSR 

ADD 

UBNE 

,rSB CMSO 



10F7 CM19 



UBB DL BNDE 
RH ADD 



lOFA CM;20 

lOFB CM;21 

lOFC 

lOFD CM:30 RF 
lOFE 



t\DD 

t\DD 

/IDD 

ADO 
J SB 



UNC 
CCA 



PL 




ADD 




BNKP 


ADD 


PL 


UBA 


UBNE 
ADD 


8000 


RH 


ADDL 


UBA 


UBB 


BNDE 
ADD 


RG 


SPIB 


SUB 

ADD 

ADD 

JSB 
ADD 



SP3B 
BKX4 



TARGET RBA/2 

UPPER LIMIT FOR BOUNDS TESTS OF 
PB RELATIVE BANK ADDRESS 
TARGET BANK IS PB RELATIVE 
BOUNDS TEST TARGET EA >• PB 
BOUNDS TEST TARGET EA <= PL 
RETURN TO INITIALIZATION PHASE 



EXTENDED BOUNDS CHECK 
ADD 32K TO EA FOR DL-DB BOUNDS CHECK 
BOUNDS TEST EA <• SM, EA >» DL (2527) 
FIRE UP MEMORY TO REFETCH AND RETURN 
WITHOUT KILLING S (2527) 



SKIP CCE SETTING FOR EQUAL STRINGS 
SET CCG/CCL BASED ON LAST COMPARISON 
SET CCE FOR EQUAL STRINGS 
POP ALL PARAMETERS 



NEXT INSTRUCTION 

RG:« RF: JUMP TO CM17 IF F4 

JUMP TO CMS9 



(0903) 
(0903) 
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RECORD 

NO 

15994 
15995 
15996 
15997 
15998 
15999 
16000 
16001 
16002 
16003 
16004 
16005 
16006 
16007 
16008 
16009 
16010 
16011 
16013 
16014 
16016 
16017 
16019 
16020 
16022 
16023 
16025 
16026 
16028 
16029 
16031 
16032 
16034 
16035 
1603/ 
16038 
16040 

le.r,-: 

16043 
16044 
16046 
16047 
16049 
16050 
16052 
16053 
16055 
16056 
16058 
16059 
16061 
16062 
16064 
16065 
16067 
16068 



COBOL II FIRMWARE INSTRUCTION SET 

ADDR LABI RREQ SREQ FUNC SFNC STOR SPSK 



TRANSLATE 
1 



ALU B ««•*•••»••*«•» 
RREG SREG FUNC SFNC STOR SPEC SKIP 
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lOFF 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
llOA 
HOB 
HOC 
HOD 
HOE 
llOF 
1110 
Hll 
1112 



Get 4 valid TOS registers containing the length, the source 
byte address, target byte address, and the translation 
table address. 

2. If the length • 0, then do the next instruction. 

3. Convert the source and target RBA'S to effective bank 
addresses, fetch, and bounds test. 

4. Initialize table pointers with PB or DB relative 
informal ion . 

5. Determine whether the translation is to be rippled or not 
so a different algorithm can be used. 



%10FF 

TR 0004 



RB 

UBA 

UBA 

RC 

UBA 

UBA 

RH 



UB8 
UBA 



DB 
DL 

DB 
DL 

SM 
DL 
DB 
DL 

PB 

SM 



ADDL 

ADD 

ADD LSR 

ADD 

JSBS TR8 

ADD LSR 

ADD 

JSBS TR8 

ADD 

ADD 

ADD 

ADD 

SUB 

JSB TRN2 

ADD 

ADD 

ADD 

ADD 

ADD 

JSBC TR55 



ROD 
NCRY 



ROD 
NCRY 



UBB 
RH 



RA 
SM 
UBA 



SPOA 
SP4A 



SP4A 
SPOA 



EVEN 

SFl 

ZERO 



SP3B UBA 

SPIB JSB 

BNKD ADD 

RD ADD 

DB ADD 

SP3B UBA SUB 

8000 SP2B ADDL 

6NKP ADD 

PB ADD 

PL ADD 

RB CSR 

OPB ADD 

ADD 



ADD 

JSL2 ADJS 
JSL TR7 
JSB "+2 
JSBS TR8 
ADO 

JSB "+2 
JSBS TR8 
TRNl 



UNC 
ZERO 
NF5B 
NCRY 

NF5B 
NCRY 
EVEN 



SP2B 

BKX3 CF4B 
SP2B 
SP3B 

HBF2 
RG 



NEED 4 TOS REGISTERS FOR TRANSLATE 



ADJUST THE NUMBER OF TOS REGISTERS 

TARGET R6A/2 

LENGTH • 0? 

EFFECTIVE TARGET ADDRESS; FETCH 

SKIP BOUNDS TESTS IF SPLIT STACK 

BOUNDS TEST TARGET EA >• DL 

BOUNDS TEST TARGET EA <• SM 

SOURCE RBA/2 

TARGET OPERATIONS PERFORMED IN ALUB 

EFFECTIVE SOURCE ADDRESS; FETCH 

SKIP BOUNDS TESTS IF SPLIT STACK 

BOUNDS TEST SOURCE EA >- DL 

BOUNDS TEST SOURCE EA <- SM 

SOURCE OPERATIONS PERFORMED IN ALUA 

PB/DB RELATIVE TRANSLATION TABLE 

SOURCE/TARGET UPPER BOUND 

DB BANK FOR TRANSLATION TABLE 

LOWER BOUND FOR TRANSLATION TABLE 

TRANSLATION TABLE RBA/2; F4 : = DB RELATIVE 

EFFECTIVE ADDRESS OF FIRST WORD IN TABLE 

TABLE BASE IS DB RELATIVE 

BOUNDS TEST TABLE ORIGIN >> DL 

BOUNDS TEST TABLE ORIGIN <• SM 

ADJUST TABLE BASE BY 32K FOR DL-DB 

LOWER BOUND FOR TABLE 

PB BANK FOR TRANSLATION TABLE; F4:=PB REL 

SOURCE/TARGET UPPER BOUND 

TABLE BASE IS PB RELATIVE 

UPPER BOUND FOR TRANSLATION TABLE 

EVEN/ODD TARGET RBA? 

F2 -EVEN /ODD SOURCE RBA 

F1:=ODO TARGET RBA 

SAVE LEFT BYTE OF FIRST TARGET WORD 

SPECIAL CASE FOR RIPPLE TRANSLATION 
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RECORD 

NO 

16071 
16072 
16073 
16074 
16075 
16076 
16077 
16078 
16079 
16080 
16081 
16082 
16083 
16084 
16085 
16086 
160E7 
16088 
16089 
16030 
16T91 
160U3 
16094 
16096 
16097 
16099 
16100 
16102 
16103 
16105 
16106 
16108 
16109 
16U1 
16112 
16114 
16115 
16117 
16118 
16120 
16121 
16123 
18124 
16126 
16127 
16129 
16130 
16132 
16133 
16135 
16136 
16138 
16139 
16141 



COBOL II FIRMWARE INSTRUCTION SET 

C.S •«.».««.*.* ALU A •••••••*••• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



Translate si ring 



TRANSLATE STRINGS 

*... ....,,.,..... ALU B ••»«••«.• • 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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1113 
1114 
1115 
1116 
1117 
1118 
1119 
lllA 
lllB 
lUC 
HID 
HIE 
lllF 
1120 
1121 
1122 
1123 



while 
loop 

1 . 

2. 

3. 



7 
endlo 



COUNT > 

extract left/right source byte, 
dec rement count 

increment source and target RBA's. 

fetcti translation table word containing the translated 
byte and bounds test the table address (PB/DB relative] 
extract the translated byte. 

write the target word and bounds test if both the left 
and right target bytes have been filled, 
fetch next source word and bounds test if the source 
RBA is even, 
op 



TRl 
TR2 



RA 

RH 

UBA 

UBA 

RREG 

UBA 

RF 

RH 



SPOA 

RF 

SPOA 



OPA 
OPA 

RD 

SP2B 

SP4A 

SPAA 

OPA 



LRZ 
RRZ 



LSR 



ADD 

ADD 

CAD 

ADD 

ADD 

IBNDE 

IJBNE 

ADD 

ADD LRZ 

ADD 

ADD RLZ 

ADD 

INC 

JSB TR5 

BNDE 

INC 

BNDE 



RH 
RH 
RA 



NFl 
SFl 



R0X3 
UNC 



RB 
RC 
SP3B UBA 



ADD 

JSB TR7 

ADD 

INC 

JSBI 

BNDE 



•+2 



SP3B SREG U6NE 
RH RD ADD 



ROD 




SF2 




SFl 




CF2 


RG 


TEST 


UBA 


ROD 


RA 


CFl 





ADD 


RRZ 


JSB 


TR3 


JSB 


TR4 


JSB 


TR2 


I OR 




ADD 




JSB 


TR2 


JSB 


TR7 


JSB 


TRl 



NF4B 
UNC 



F2 
Fl 
UNC 

DATA 

ROD Fl 
UNC 
ZERO 
UNC 



LEFT SOURCE BYTE 

RIGHT SOURCE BYTE 
LOOP UNTIL COUNT • 
DECREMENT COUNT 

(TABLE RBA + TABLE BYTE OFFSET )/2 

INCREMENT SOURCE RBA 

TABLE EFFECTIVE ADDRESS; FETCH 



PB/DB RELATIVE TABLE? 
DL (DB RELATIVE) 
SM (DB RELATIVE) 
PB (PB RELATIVE) 
PL (PB RELATIVE) 



SIGNAL LEFT 



INCREMENT TARGET RBA 

BOUNDS TEST TABLE EA 

BOUNDS TEST TABLE EA 

BOUNDS TEST TABLE EA 

BOUNDS TEST TABLE EA 

TRANSLATION TABLE WORD 

INDEXED TABLE RBA EVEN/ODD? 

LEFT BYTE FOR EVEN RBA 

RIGHT BYTE FOR ODD RBA 

REFETCH SOURCE WORD 

STORE NEXT TARGET WORD? 

LEFT BYTE OF TARGET WORD 

FETCH NEXT SOURCE WORD? 

SIGNAL LEFT SOURCE BYTE 

NEXT ITERATION 

INCREMENT TARGET EFFECTIVE ADDRESS 

WRITE TARGET WORD OF TRANSLATED BYTES 

TEST FOR INTERRUPTS 

FETCH NEXT TARGET WORD, IN CASE IT IS LAST 

BOUNDS TEST TARGET ADDRESS 

NEXT ITERATION 

INCREMENT SOURCE EFFECTIVE ADDRESS; FETCH 

DONE IF LENGTH ' (SKIP BOUNDS TEST) 

BOUNDS TEST NEXT SOURCE WORD 

NEXT ITERATION 
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COBOL 


RECORD 


C.S. 


NO 


ADDR 


16143 




16144 




16145 




16146 




16147 




16148 




16149 




16150 




16151 




16152 




16153 




16154 




16155 




16156 




16157 




16158 




16159 




16160 




16161 


1124 


16163 




16164 


1125 


16166 




16167 


1126 


16169 




16170 


1127 


16172 




16173 


1128 


16175 




16176 


1129 


16178 




16179 


112A 


16181 




16182 


112B 


16184 




16185 


112C 


16187 




16188 


112D 


16190 




16191 


112E 


16193 




16194 


112F 


16196 




16197 


1130 


16199 




16200 


1131 


16202 




16203 





II FIRMWARE INSTRUCTION SET - TRANSLATE STRINGS 

**,»»***»** ALU A ••••••«••«» «««••••««•««• ALU 8 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC 



RIPPLE TRANSLATION 

extract left/right starting source byte. 

while COUNT > 
loop 

1 . dec rement count . 

2. increment source and target RBA's 

3. fetch translation table word containing trans 
and bounds test the table address ( PB/DB rela 

4. extract the translated byte 

5. write the target word and bounds test if both 
right bytes have been filled. 

endloop 



SPEC SKIP COWENT 
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lated 
tive) 



byte 
and 





OPA 


ADD 


LRZ 


RH 




OPA 


ADD 


RRZ 


RH 


RA 




JSB 


TR7 




RA 




CAD 




RA 


RH 


RC 


ADD 


LSR 




USA 


SP2B 


ADD 






UBA 


SP4A 


BNDE 






RREG 


SP4A 
OPA 


UBNE 
ADD 






UBA 




ADD 
JSB 


LRZ 
TR6 


RH 


RE 




INC 
JSB 


TR5 


RE 


SPOA 


RE 


BNDE 







NFl 






ADD 
ADD 


ZERO 


RH 




ADO 
ADD 




RB 




INC 


R0X3 


RC 




JSBI 


UNC 


SP3B 


UBA 


BNDE 




SP3B 


SREG 


UBNE 




RH 


RC 


ADD 


F2 


UBA 




ADD 


UNC 






ADD 


CF2 


RQ 


RH 


I OR 


TEST 


UBA 




ADD 
JSB 



RB 
RC 



LEFT INITIAL SOURCE BYTE 

UNC RIGHT INITIAL SOURCE BYTE 

SKIP LEFT BYTE ASSIGNMENT ON FIRST ITERATION 
LOOP UNTIL COUNT - 
PREVIOUS BYTE IS LEFT BYTE 
DECREMENT COUNT 

(TABLE RBA + TABLE BYTE 0FFSET)/2 

INCREMENT SOURCE RBA 
NF4B TABLE EFFECTIVE ADDRESS, FETCH 

INCREMENT TARGET RBA; PB/DB RELATIVE? 
UNC BOUNDS TEST TABLE EA >- DL (DB RELATIVE) 

BOUNDS TEST TABLE EA <- SM (DB RELATIVE) 

BOUNDS TEST TABLE EA >• PB ( PB RELATIVE) 

BOUNDS TEST TABLE EA <0 PL ( PB RELATIVE) 
EVEN TRANSLATION TABLE WORD 

INDEXED TABLE RBA EVEN/ODD? 

LEFT BYTE FOR EVEN RBA; STORE TARGET WORD? 

RIGHT BYTE FOR ODD RBA 
SF2 NEXT ITERATION 

DATA INCREMENT TARGET EFFECTIVE ADDRESS 

WRITE TARGET WORD OF TRANSLATED BYTES 

ROD TEST FOR INTERRUPTS 

FETCH NEXT TARGET WORD IN CASE IT IS LAST 
UNC BOUNDS TEST TARGET WORD 
NEXT ITERATION 
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COBO 


RfCORD 


C S 


NO 


ADDR 


16205 




16206 




16207 




16208 




16209 




16210 




16211 




16212 




16213 




16214 




16215 




16216 




16217 




16218 




16219 




16220 


1132 


16222 




16223 


1133 


16225 




16226 




16227 




16228 


1134 


16230 




16231 


1135 


16233 




16234 


1136 


16236 




16237 


1137 


16239 




16240 


1138 


16242 


1139 



COBOL II FIRMWARE INSTRUCTION SET 

..»«..»..«„ ftLU A ••««•*«*••« 
LABL RREG SREG ("UNC SFNC STOR SPSK 



INTERRUPT HANDLING 



TRANSLATE STRINGS 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



Bounds 'test the target address just stored 
Decrement P to restart the doubl 



Branch to the interrupt handler. 
TRANSLATION FINISHED 



wo rd ins t rye t ion . 



Store lust target word and Bounds test if needed. 
Pop all the TOS register parameters. 
Next iniit rue t ion . 



SPOA RE 


BNDE 






JSZ 


IRDN 


RE 


INC 




SPOA UBA 


BNDE 

ADD 

ADD 




UBB DL 

RH 


BNDE 
ADD 





FFFF 


P 


ADDL 




UBB 


ADD 




OPB 


ADD 


UBB 


RG 


lOR 
ADD 


8000 


RH 


ADDL 


SP3B 


UBB 


BNDE 
ADD 



BOUNDS TEST TARGET ADDRESS JUST STORED 
DECREMENT P SINCE IS IS TWO WORD OPCODE 
SLOW JUMP SO THAT P GETS UPDATED FIRST 
RESET P FOR SECOND WORD OF DOUBLE OPCODE 



INC TARGET EFFECTIVE ADDRESS; EVEN RBA? 
EXTRACT RIGHT BYTE OF LAST WORD; EVEN RBA? 
BOUNDS TEST TARGET EFFECTIVE ADDRESS 
UPDATE LAST TARGET WORD WITH LEFT BYTE 

NEXT INSTRUCTION 

DL-DB BOUNDS CHECKING FOR BYTE ADDRESSES 

ADD 32K TO EFFECTIVE ADDRESS 

BOUNDS TEST SM >- EA , EA >= DL (2527) 

FIRE UP MEMORY AND RETURN W/0 S KILL (2527) 
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RECORD 

NO 

16245 
16246 
16247 
16248 
16249 
16250 
16251 
16:52 
16253 
16254 
16255 
16256 
16257 
16258 
16259 
16260 
16261 
16262 
16263 
16264 
16265 
16266 
16267 
16268 
16269 
16270 
16271 
16272 
16273 
16274 
16275 
16276 



COBOL II FIRMWARE INSTRUCTION SET 

C s. .......*«•. /^Lu A ••***•••*•» 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



ABSOLUTE NUMERIC 

• *>« <,•<,«.•*«.•<•. ALU B ••••••••*••**• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



valid TOS registers containing the source length 

source RBA 

ource length Is zero, then next instruction. 

ource length > maximum (28 ascii digits) or < 0, 

nal an illegal length trap 

the source RBA to an effective address and bounds 

ze the source pointers and flags. 

leading blanks . 
first LENGTH-1 digits 

t the current byte (left or right). 

byte is not an ascii blank, then exit the loop, 
e the blank with an ascii zero. 

current byte is the right byte 
ewrite the source word, 
etch the next source word, and 
ounds test the new source address. 



1 Get two 
and the 

2 If the s 

3. If the s 
then s ig 

4 . Conve r t 
test . 

5. Initial! 
6 Zerofill 

for the 

loop 

ex t rac 

if the 

replac 

if the 

t hen r 

f 

b 

endlf 
endloop 
7. If the loop was exited on a non-blank character 
then 



back 

rewr 

fill 

HI 



up the counter since the byte wasn't blank 
ite the last source word if the left byte was zero 
ed 
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COBOL 


RECORD 


C.S. 


NO 


ADDR 


16278 


113A 


16280 




16281 


113B 


16283 




16284 


113C 


16286 




16287 


113D 


16289 




16290 


113E 


16292 




16293 


113F 


16295 




16296 


1140 


16298 




16299 




16300 


1141 


16302 




16303 




16304 




16305 




16306 




16307 




16308 


1142 


16310 




16311 


1143 


16313 




16314 


1144 


16316 




16317 


1145 


16319 




16320 


1146 


16322 




16323 


1147 


16325 




16326 


1148 


163:8 




163^9 


1149 


16331 




16332 




16333 




16334 




16335 




16336 




16337 


114A 


16339 




16340 


1148 


16342 





II FIRMWARE INSTRUCTION SET - 

.».««.«».«.. ALU A «**••»' 

LAI3L RREG SREG FUNC SFNC STOR 



ABSOLUTE NUMERIC 

<,«,.. .*«.»...«»*«. ALU B 







JISZ 


PULM 


RA 




JSB 


ABS2 


RA 


UBB 


J SB 


ABS2 


UBB 


DB 


ADD 




UBA 


DL 


JSBS 


AEBC 


RH 




ADD 






OPA 


ADD 





SPSK 


RREG 


SREQ 


FUNC 


SFNC 


STOR 


SRL2 


SR 


SM 


JS2 


PUL2 


SP3B 


ZERO 


FFE3 




ADDL 






CRRY 


RB 




ADD 


LSR 




ROD 






JSB 


• + 2 




NCRY 


SP3B 


UBA 


JSBS 
ADD 


AEBC 




SF3A 


RA 




CAD 




CTR 



NFSe 
NCRY 



ADD LLZ SPIB 



ZERO FILL LEADING BLANKS 





OPA 


ADD 


LRZ 


RH 


NF2 






ADD 






OPA 


ADD 


RRZ 


RH 


SF2 






JSB ABSO 


CTRI 


0020 




ADDL 








3000 




ADDL 




RH 


UBA 


JSBS 


•+5 




NZRO 


UBB 




ADD 


DCTR F2 


0030 




ADDL 








UBB 




JSB '-3 


SPIB UNC 


UBA 


SPIB 


:[0R 






DATA 






ADD 






SP4A 


:tNC 




SP4A 


ROD 






ADD 








JSB 


*-7 




UNC 


SP3B 


UBA 


BNDE 


CF2 



CLEAN UP AFTER LEADING BLANK FILL 



RH SPIB lOR 
UBA ADD 



NF2 

DATA 0039 



ADD 
ADDL 
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COMMENT 

NEED 2 TOS REGISTERS CONTAINING THE SOURCE 

STRING LENGTH AND RELATIVE BYTE ADDRESS 

DONE IF SOURCE LENGTH - 

MAXIMUM LENGTH IS 28 DIGITS 

ILLEGAL LENGTH TRAP IF LENGTH < OR > MAX 

SOURCE RBA/2: SIGNAL ILLEGAL LENGTH 

SOURCE EFFECTIVE ADDRESS; FETCH 

SKIP BOUNDS TESTING IF IN SPLIT STACK MODE 

BOUNDS TEST SOURCE EA >• DL 

BOUNDS TEST SOURCE EA <- S 

SOURCE EFFECTIVE ADDRESS 

WORD CONTAINING LEADING BYTE 

NUMBER OF DIGITS EXCLUDING SIGN BYTE; RESET 

ILLEGAL SOURCE LENGTH FLAG 
F2 DETERMINES IF SOURCE BYTE IS EVEN OR ODD 
SAVE LEFT BYTE IN CASE RIGHT STARTING BYTE 



EXTRACT EVEN SOURCE BYTE IF EVEN RBA 

EXTRACT ODD SOURCE BYTE IF ODD RBA 

IF DIGITS REMAINING - 0, CHECK SIGN BYTE 

CONSTANT FOR LEADING BLANK COMPARISON 

ZERO FILL FOR LEFT BYTE REPLACEMENT 

IS CURRENT SOURCE BYTE A LEADING BLANK? 

DECREMENT « OF DIGITS REMAINING 

ZERO FILL FOR RIGHT BYTE REPLACEMENT 

SAVE LEFT BYTE ZERO FILL AND ITERATE IF EVEN 

COMBINE AND WRITE LEFT AND RIGHT BYTES 

INCREMENT SOURCE EFFECTIVE ADDRESS; FETCH 

S; SIGNAL EVEN RBA 



NEXT ITERATION 
BOUNDS TEST SOURCE EA 



COMBINE LEFT AND RIGHT BYTES OF LAST WORD 
RETRY LAST SOURCE BYTE AS A DIGIT 
REWRITE LAST WORD IF CURRENT BYTE IS ODD 
CONSTANT ("9") FOR RANGE TEST 
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RECORD 

NO 

16344 
16345 
16346 
16347 
16348 
16349 
16350 
16351 
16352 
16353 
16354 
16355 
16356 
16357 
16358 
16359 
16360 
16361 
16362 
16363 
16364 
16365 
16366 
16367 
16368 
16369 
16370 
16371 
16372 
16373 



COBOL II FIRMWARE INSTRUCTION SET 
C.S. .».......*. ALU A ••'• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



ABSN (continued) 



ABSOLUTE NUMERIC 

.... ............. ALU Q .............. 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



Validate the remaining digits, 
for the each remaining digit 
loop 

extract the current byte (left or right). 

If the byte is not an ascii digit 

then go to the trap exit. 

If the current byte is the right byte 

then 

rewrite the source word. 

fetch the next source word, and 

bounds test the new source address. 

endif 
endloop 

Strip the possible overpunch from the last byte. 
Test the stripped byte for invalid ascii digit. 
Set the condition code for CCA based on the sign of the 
source (only positive CCG or negative CCL ) . 
Rewrite the last source word containing the stripped sign 
byte 

Perform proper SDEC 

Clear overflow bit in the STATUS register. 
Check for illegal ascii digit trap or illegal operand 
length t rap . 
Next inst ruct ion . 
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COBOI 


RECORD 


C.S. 


NO 


ADDR 


16375 




16376 




16377 




16378 


114C 


16380 




16381 


114D 


16383 




16384 


114E 


16386 




16387 


U4F 


16389 




16390 


1150 


16392 




16393 


1151 


16395 




16396 


1152 


16398 




16399 




16400 




16401 




16402 


1153 


16404 




16405 


1154 


16407 




16408 


1155 


16410 




16411 




16412 




16413 




16414 


1156 


16416 




16417 


1157 


16419 




16420 


1158 


16422 




16423 


1159 


16425 




16426 


115A 


16428 




16429 


115B 


16431 




16432 


115C 


16434 




16435 


115D 


16437 




16438 


115E 


16440 




16441 


115F 


16443 




16444 


1160 


16446 




16447 


1161 


16449 





COBOL II FIRMWARE INSTRUCTION SET 

>.•><,*.<,<,<,. ALU fi^ «..*..«*..« 

LABL RREQ SREG FUNC SFNC STOR SPSK 



ABSOLUTE NUMERIC 

RREG SREG FUNC SFNC STOR SPEC SKIP 





OPA 


ADD 


LRZ 


RH 


NF2 






OPA 


ADD 


RRZ 


RH 


SF2 




0030 




ADDL 










RH 


UBA 


JSBS 
JSB 


ABS2 

•-3 




NCRY 
NF2 


UBB 




SP4A 


INC 




SPAA 


ROD 








JSB 


• -6 




UNC 


SP3I 



VALIDATE NUMERIC DIGITS FOR REMAINDER OF SOURCE STRING 

ADD 

JSB ABSl CTRO 

SP2B ADD DCTR 

RH JSBS ABS2 NCRY 

RH ADD RLZ SPIB 

ADD 
UBA BNDE CF2 

* CLEAN UP AFTER LEADING BLANK FILL AND CHECK FOR LAST BLANK BYTE 

ABSO ADD 0020 ADDL 

ADD RH UBB SUB NZRO 

ADD 0030 ADDL RH 



• STRIP OVERPUNCH AND TEST VALIDITY 
ABSl ADD 

0030 ADDL 

RH UBA JSBS ABS2 
OPA ADD RRZ 



RB 


RA 


ADD 


RH 


SP18 


lOR 


RB 


RA 


ADD 


UBB 


SP4A 


I OR 




CIR 


ADD 
ADD 
JSZ 
ADD 







JSB 


STPO 




UNC 




0039 


ADDL 








NCRY 


UBB RH 


JSBS 


ABS2 




NCRY 


CF3A 




INC 




CCA 


F2 


ODD 




CAD 




CCA 




DATA 




ADD 








EVEN 


RH 


ADD 


RLZ 






DATA 




ADD 








EVEN 




ADD 




EPOP 




EPOP 




ADD 




CLO 




F3A 




JSZ 
ADD 


TRPR 




FAB 

NEXT 
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EXTRACT EVEN SOURCE BYTE IF EVEN RBA 

EXTRACT ODD SOURCE BYTE IF ODD RBA 

IF DIGITS REMAINING - 0, CHECK SIGN BYTE 

CONSTANT ("0") FOR RANGE TEST 

DECREMENT » OF DIGITS REMAINING; ("9") 

ILLEGAL ASCII CHARACTER IF BYTE < "0" 

ILLEGAL ASCII CHARACTER IF BYTE > "9" 

NEXT ITERATION IF CURRENT RBA IS EVEN 

SAVE EVEN BYTE 

INCREMENT SOURCE EA AND FETCH NEXT WORD 

NEXT ITERATION 

BOUNDS TEST SOURCE EA < S ; SIGNAL EVEN RBA 



BLANK FOR LAST BYTE COMPARISON 
IS CURRENT CHARACTER A BLANK 
ZERO FILL LAST BYTE IF BLANK 



STRIP POSSIBLE OVERPUNCH FROM LAST BYTE 
CONSTANT ("0") FOR NUMERIC RANGE TEST 
CONSTANT ("9") FOR NUMERIC RANGE TEST 
ILLEGAL ASCII CHARACTER IF BYTE < "0" 
ILLEGAL ASCII CHARACTER IF BYTE > "9" 
SAVE RIGHT BYTE; RESET ASCII DIGIT TRAP 
POSITIVE OR NEGATIVE OVERPUNCH? SET CCG 
IS SIGN IN LEFT OR RIGHT BYTE OF LAST WORD? 
SET CCL IF SIGN WAS NEGATIVE OVERPUNCH 
OLD LEFT BYTE AND STRIPPED RIGHT BYTE 

REWRITE LAST WORD IF RIGHT SIGN BYTE 
SHIFT STRIPPED SIGN BYTE TO LEFT BYTE 
STRIPPED LEFT BYTE AND OLD RIGHT BYTE 

SDEC « OR 1 (LAST BIT OF OPCODE)? 

POP THE LENGTH PAR-AMETER 

POP THE RBA PARAMETER IF SDEC-1 

CLEAR THE OVERFLOW BIT IN STATUS WORD 

ILLEGAL ASCII DIGIT TRAP? 

ILLEGAL OPERAND LENGTH TRAP? 

NEXT INSTRUCTION 
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RECORD 

NO 

16451 
16452 
16453 
16454 
16455 
16456 
16457 
16458 
16459 
16460 
16461 
16462 
16463 
16464 
16465 
16467 
16468 
16470 
16471 
16473 
16474 
16476 
16477 
16479 
16480 
16482 
16483 
16485 
16486 
16488 



COBOL II FIRhMARE INSTRUCTION SET 

C S. «*.««*«»«»« ALU A *•••««•«»•* 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



ALIGN NUMERICS 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 



1. Get 4 valid TOS registers containing the source length, 
source RBA, target length, and target RBA. 

2. If either the source length or the target length are zero, 
then next instruction. 

3. Illegal source length trap if either the source or target 
length are > 28 or the source leading > source length or 
the target leading > target length. 



ALGN 0004 ADDL RH 

FFE3 ADDL SP4A 

RA ADD RRZ SPOA CF3A RC 

UBA JSB ALG2 ZERO UBB 

RA ADD LRZ XRl SF3A RC 



ADD 

JSLZ ADJS UNC 

ADD RRZ SP3B CF4B 
JSB ALG2 ZERO 

ADD LRZ XRl 

SPOA UBA JSBS ALG2 NCRY SP3B UBB JSBS ALG2 NCRY 

RREG SP4A JSB ALG2 CRRY RREG SP4A JSB ALG2 CRRY 

SPOA XRl SUB XRO CF3A SP3B XRl SUB XRO 



NEED 4 TOS REGISTERS CONTAINING OPERANDS 

MAX SOURCE/TARGET COUNT LENGTH « 28 DIGITS 
ADJUST THE • OF TOS REGISTERS 
EXTRACT SOURCE COUNT; CLEAR LENGTH TRAP FLAG 
EXTRACT TARGET COUNT; CLEAR ASCII DIGIT TRAP 
DONE IF SOURCE COUNT . 
DONE IF TARGET COUNT - 

EXTRACT SOURCE TRAILING; SET LENGTH TRAP 
EXTRACT TARGET TRAILING 
SOURCE TRAILING < SOURCE COUNT? 
TARGET TRAILING < TARGET COUNT? 
SOURCE COUNT < MAX COUNT? 
TARGET COUNT < MAX COUNT? 

SOURCE LEADING, TARGET LEADING (2635) 
RESET LENGTH TRAP FLAG (2635) 
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RECORD 

NO 

16490 
16491 
16492 
16493 
16494 
16495 
16496 
16497 
16498 
16499 
16500 
16501 
16502 
16503 
16504 
16505 
16507 
16508 
16510 
16511 
16513 
16514 
16516 
16517 
16519 
16520 
16522 
16523 
16525 
16526 
16528 
16529 
16531 
16532 
16534 
18535 
16537 
16538 
16540 
16541 
16543 
16544 
16546 
16547 



COBOL II FIRMWARE INSTRUCTION SET - ALIGN NUMERICS 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



ALGN (continued) 

1. Convert the RBA of the last source byte to an effective 
address, fetch, and bounds test. 

2. Save the last source word, so that it may be restored. 

3. Strip a possible overpunch from the last source byte and 
rewrite the last source byte with its unsigned value. 

4. Save the source sign conditions for use in overpunching 
the last target byte with a sign. 
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116A 
116B 
116C 
116D 
116E 
116F 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 



SPOA 




CAD 










SM 


ADD 




RG 


R6 


UBA 


ADD 


LSR 






RB 


UBA 


ADD 




RF 


UBA 


DB 


ADD 




RH 


ROD 






JSB 


•+2 




UBA 


DL 
OPA 


JSBS 
ADD 


AEBC 


XR3 


NCRY 


RG 
RF 


UBA 


JSBS 
ADD 


AEBC 




UBA 




ADD 


LRZ 


RH 




UBA 




ADD 


RRZ 


RH 


RH 




ADD 




XR4 








JSB 


STPO 




RF 




JSB 


•+3 




ODD 






JSB 


•+5 






OPA 


ADD 


RRZ 






RH 




ADO 


RLZ 




UBA 


UBB 


I OR 






DATA 






JSB 


•+3 






OPA 


ADD 


LLZ 






RH 




ADD 


RRZ 




UBA 


UBB 


lOR 
CAD 
ADD 




XR2 
XR2 


DATA 
F2 






ADD 
ADD 
CAD 




XR2 
XR2 



SOURCE COUNT - 1 

MAKE SM AVAILABLE FOR BOUNDS TESTING 

RBA OF LAST SOURCE BYTE/2 

RBA OF LAST SOURCE BYTE 
NF5B EFFECTIVE ADDRESS OF LAST SOURCE WORD 

SKIP BOUNDS TEST IF SPLIT STACK MODE 
NCRY BOUNDS TEST EA >« DL 

BOUNDS TEST EA <= SM 
EVEN SAVE CONTENTS OF LAST SOURCE WORD 

LEFT OR RIGHT SIGN BYTE? 

EXTRACT LEFT SOURCE BYTE 

EXTRACT RIGHT SOURCE BYTE 
UHC SAVE ADDRESS OF LAST SOURCE WORD 

STRIP POSSIBLE OVERPUNCH FROM SOURCE BYTE 
NFl LEFT OR RIGHT SIGN BYTE? 

DO NOTHING IF ALREADY UNSIGNED 

RIGHT SOURCE BYTE 

STRIPPED LEFT SIGN BYTE 
UNC REWRITE LAST SOURCE WORD 

ELSE 

LEFT SOURCE BYTE 

STRIPPED RIGHT SIGN BYTE 

REWRITE LAST SOURCE WORD 



SOURCE IS POSITIVE 
SOURCE IS SIGNED 
SOURCE IS NEGATIVE 
SOURCE IS UNSIGNED 



(2310) 
(2310) 
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RECORD 

NO 

16549 
16550 
16551 
16552 
16553 
16554 
16555 
16556 
16557 
16558 
16559 
16560 
16561 
16562 
16564 
16565 
16567 
16568 
16570 
16571 
16S73 
16574 
15576 
16577 
16578 
16579 
16581 
16582 
16584 
16585 
16587 



COBOL II FIRMWARE INSTRUCTION SET - ALIGN NUMERICS 

C.S. .«.«....«.« ftLy f^ ...«•<,*•«*« <,••*•*•.*..«« ftLU B ••«•*••*•*«•«• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



1178 
1179 
117A 
117B 
117C 



ALGN (continued) 

1 Initialize the target pointers, bounds test, and set up 
for all target store/fetch operations to be performed 
in ALUB. 

2 Initialize the source pointers, bounds test, and set up 
for all source store/fetch operations to be performed 
in ALUA. 
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117D 
117E 
117F 



USA DL JSBS AEBC 



UBA DL JSBS AEBC 



NCRY RG UBA JSBS AEBC 



NCRY RG UBA JSBS AEBC 



ADD 



OPB ADD LRZ SP3B SFl 



TARGET RBA/2 

F2: -EVEN/ODD TARGET BYTE 
TARGET EFFECTIVE ADDRESS 
SKIPS BOUNDS TESTS IF SPLIT STACK 
BOUNDS TEST EA >« DL 
BOUNDS TEST EA <' SM 
SOURCE RBA/2 

TARGET OPERATIONS IN ALUB 
SOURCE EFFECTIVE ADDRESS 
SKIP BOUNDS TESTS IF SPLIT STACK 
SAVE EFFECTIVE ADDR. OF FIRST TARGET (2635) 
BYTE IN XR4. (2635) 

BOUNDS TEST EA >• DL 
BOUNDS TEST EA <» SM 
EVEN OR ODD SOURCE RBA? 
SAVE SOURCE EA 
Fl-EVEN/ODD SRC BYTE 
SAVE LEFT TARGET BYTE 
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RE.CORD 

NO 



COBOL II FIRMWARE INSTRUCTION SET 

C.S. ..,»*....»« ALU A' •««•*••««•• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



ALIGN NUMERICS 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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16589 
16590 
16591 
16592 
16593 
16594 
16595 
16596 
16597 
16598 
16599 
16600 
16601 
16602 
16603 
16604 
16605 
16606 
16607 
16608 
16609 
16610 
16611 
16612 
16613 
16614 



ALGN (continued) 



Def 

5? 

the 

If 

dig 

If 

dig 

Cop 

fie 

Cop 

dig 

If 

the 

If 

dig 

If 

dig 

If 

t ra 



ine 
■0' . 
the 
n do 
the 
its , 
the 
its . 
y th 
id t 
y tti 
Its 
the 
n do 
the 
its , 
the 
its , 
an i 
p ha 



the valid digit range 0' 



'9' and blank for filling 



number 

ei t he 
numbe r 

then 
numbe r 

then 
e rema 
t he 
e MINI 
f rom t 
numbe r 

ei t he 
numbe r 

then 
numbe r 

t hen 
llegal 
ndl ing 



of 
r 3 

of 
ze ro 

of 
val i 
inde 
t ar^ 



r 8 

of 
ze ro 

of 
vali 

asc 

sec 



lead 
o r 4 
lead 

f il 
lead 
date 
r of 
et f 
ling 
ou re 
t rai 
or 9 
t rai 

f il 
t rai 
date 
ii d 
t ion 



8 source and target digits differs, 
therwise continue with 5 



sou 
ther 

tar 
he e 

sou 
e ex 
e le 



Ot he 
g t a 
he e 
g so 
e ex 
t is 



get digits > leading source 
xcess leading target digits, 
rce digits > leading target 
cess leading source digits 
ading digits from the source 

digit s , t railing target digits) 

to the t arget field, 
urce and target digits differs, 
rwise continue with 10. 
rget digits > trailing source 
xcess trailing target digits, 
urce digits > trailing target 
cess trailing source digits 

encountered, then go to the 
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COBOL 


RECORD 


C.S 


NO 


ADDR 


16616 


1180 


16618 




16619 


1181 


16621 




16622 


1182 


16624 




16625 


1183 


16627 




16628 


1184 


16630 




16631 


1185 


16633 




16634 


1186 


16636 




16637 


1187 


16639 




16640 


1188 


16642 




16643 


1189 


16645 




16646 


118A 


16648 




16649 


118B 


16651 




16652 


118C 


16654 




16655 


1180 


16657 





II FIRMWARE INSTRUCTION SET - ALIGN NUMERICS 
*********** ALU A •*•**»•••»• •.•*•••• 
LABL RREG SREQ FUNC SFNC STOR SPSK 



ALU B ************** 
RREQ SREG FUNC SFNC STOR SPEC SKIP CONSENT 
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0039 




ADDL 




SPOA 


RF 


XRO 


CAD 
ADD 




RF 


UBA 


UBB 


JSBS 
ADD 


FILL 






XRO 


ADD 




SP4A 


UBA 


XRl 


XFRS 






RREQ 


UBB 


SUB 








SREG 


ADD 
ADD 
ADD 




SP4A 




XRl 


ADD 






UBA 


UBB 


JSBS 
ADD 


FILL 







0030 




ADDL 




SP18 




0020 


XRO 


ADDL 
ADD 




SP2B 


NCRY 


UBB 


UBA 


JSBS 


VLB 


BKX7 




SP3B 




JSB 


ALQl 


RH 






XRl 


ADD 




SP3B 






XRO 


ADD 






NCRY 


SP3B 


UBA 


SUB 










SREG 


ADD 




SP3B 




RH 




ADD 




SP3B 




SP3B 


SP4A 


JSB 


VMLB 


BKX7 






XRl 


JSB 


ALQl 




NCRY 


UBB 


UBA 


JSBS 


VLB 


BKX7 


CF3A 






JSB 


ALQl 





NCRY 
F4B 



NZRO 
F48 
NCRY 
F48 



UPPER BOUND FOR ASCII DIGIT TEST 
LOWER BOUND FOR ASCII DIGIT TEST 
SYNCHRONIZE TARGET BYTE EFFECTV ADDR (2307) 
USED FOR LEADING BLANK COMPARISONS 
NUMBER OF LEADING SOURCE DIGITS 
NUMBER OF LEADING TARGET DIGITS 
ZEROFILL TARGET IF TL > SL 
VALIDATE SOURCE IF SL > TL 

DONE IF ASCII DIGIT TRAP OCCURRED 
DEFAULT MIN IS SOURCE LEADING LENGTH 
DEFALUT MIN IS TARGET TRAILING LENGTH 
RREGA -SOURCE LEADING; UBA -SOURCE TRAILING 
UBB: 'TARGET LEADING 

MIN( SOURCE LEADING, TARGET LEADING)? 
MIN(SOURCE TRAILING, TARGET TRAILING)? 
MIN IS TARGET LEADING LENGTH 
MIN IS SOURCE TRAILING LENGTH 

RESTORE LAST TARGET BYTE 

VALIDATE AND MOVE SUM OF MINIMUMS 

UBA-SOURCE TRAILING ;UBB-TARGET TRAILING 

DONE IF ASCII DIGIT TRAP OCCURRED (2307) 

ZEROFILL TARGET IF TF > SF 

VALIDATE SOURCE IF SF > TF 

RESET LENGTH TRAP/LEADING BLANK FLAG 

DONE IF ASCII DIGIT TRAP 
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RECORD 

NO 

16659 
16660 
16661 
16662 
16663 
16664 
16665 
16666 
16667 
16668 
16669 
16670 
16671 
16672 
16673 
16674 
16675 
16676 
16678 
16679 
16681 
16682 
16684 
16685 
16687 
16688 
16690 
16691 
16693 
16694 
16696 
16697 
16699 
16700 
16702 
16703 
16705 
16706 
16708 
16709 
16711 
16712 
16714 
16715 
16717 
16718 
16720 
16721 
16722 
16724 
16725 
16727 
16728 
16730 
16731 
16733 



COBOL II FIRMWARE INSTRUCTION SET 

C.S. ....«.«»»». ALU A •••«•«*•«*• 

ADDR lABL RREG SREG FUNC SFNC STOR SPSK 



ALGN (continued) 



ALIGN NUMERICS 

,«.. ......*...... ALU B •«««««««•«•••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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1. If the source field was signed, then overpunch the last 
target field byte with tl^e sign obtained from the last 
source byte. 

2. Write the last target word. 

3. Rewrite the last source word to restore its overpunched 
sign . 

4. Perform the proper SOEC. 

5. Check for either of the possible traps (illegal ascii digit 
or illegal operand length). 

6 . Next inst rue t ion . 



USE 

118F 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

119A 

119B ALGl 

119C 

119D 
119E 
119F 
UAO 



JSB '*5 
XR2 ADD 

ADD 

ADD 

JSBS "+9 
XR2 ADD 
RG USB BNDE 

ADD 

JSB «+5 

JSB *+4 
RG UBB BNDE 
UBB ADD RLZ 

ADD 
XR4 ADD 

ADD 

XR3 ADD LLZ 

JSB ALG2 
XR4 ADD 
XR3 ADD 



F2 




XR2 


JSB 


«+9 


HBF2 


RF 




ADD 






SP3B 




JSB 


OVPN RH 






OPB 


ADD 


LLZ 


UNC 


UBB 


RH 


I OR 




HBF2 


RF 




INC 






SP3B 




JSB 


OVPN RH 






OPB 


ADD 


RLZ 


UNC 


RH 


UBB 


ADD 


SWAB 


NF2 


RF 
SP3B 




INC 
ADD 








OPB 


ADD 


RRZ 




UBA 


UBB 

XR4 


lOR 
ADD 






UBA 


UBB 


JSBS 


*+3 






OPB 


ADD 


RRZ 


UNC 


UBA 


UBB 


lOR 




WRD 






ADD 




DATA 






ADD 





LAST BYTE LEFT OR RIGHT? 
SOURCE SIGNED OR UNSIGNED? 
POSITIVE OR NEGATIVE OVERPUNCH? 
READ LAST TARGET WORD 

OVERPUNCH LAST CHARACTER 

TARGET LEFT BYTE 

DONE 

REWRITE LAST TARGET WORD 

POSITIVE OR NEGATIVE OVERPUNCH? 

READ LAST TARGET WORD 

BOUNDS TEST LAST TARGET WORD 

OVERPUNCH LAST CHARACTER 

TARGET RIGHT BYTE 

DONE 

REWRITE LAST TARGET WORD 

EVEN OR ODD LAST BYTE 

FETCH LAST TARGET WORD 

BOUNDS TEST LAST TARGET WORD 

LAST TARGET BYTE 
RIGHT TARGET BYTE 

WRITE LAST TARGET BYTE 

EFFECTIVE ADDRESS OF LAST SOURCE BYTE; 

READ FIRST TARGET WORD 

NOP; JUMP IF EFFECTIVE ADDRESS OF LAST 

BYTE AND FIRST TARGET BYTE DO NOT OVER 

GET LAST SOURCE BYTE: 

GET FIRST TARGET BYTE 

JUMP TO REMOVE PARAMETERS ; REWRITE OVER 

SOURCE AND TARGET WORD 

EFFECTIVE ADDRESS OF LAST SOURCE BYTE 



(2635) 
SOURCE 
LAP 
(2635) 

(26351 
LAPPED 
(2635) 



REWRITE WORD CONTAINING LAST SOURCE BYTE 
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COBOI 


RECORD 


C S. 


NO 


ADDR 


16734 


llAl 


16736 




16737 


UA2 


16739 




16740 


11A3 


16742 




16743 


11A4 


16745 





COBOL II FIRMWARE INSTRUCTION SET - ALIGN NUMERICS 

*********** ALU A ******* *>k A * ************* ALU B ************** 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CIR ADD 
ADD 

JSZ TRPR 
ADD 



ODD 

EPSH 

F3A 



ADD 

ADD 

JSZ TRPA 

ADD 



10/ 2/86 9:27 AM 

COWIENT 

SDEC • OR 1? 

POP ALL 4 PARAMETERS 

LEAVE TARGET RBA ON STACK IF SDEC-0 

CLEAR OVERFLOW BIT 

ILLEGAL OPERAND LENGTH TRAP? 

ILLEGAL ASCII DIGIT TRAP? 

NEXT INSTRUCTION 
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COBOI 


RECORD 


C.S. 


NO 


ADDR 


16747 




16748 




16749 




16750 




16751 




16752 




16753 




16754 




16755 




16756 


11A5 


16758 




16759 


11A6 


16761 


11A7 



COBOL II FIRMWARE INSTRUCTION SET 



ALU 
LABL RREG SREG FUNC SFNC STOR SPSK 



ALIGN NUMERICS 

•*•• .«...» ALU B *•««••••«•«••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



EXTENDED BOUNDS CHECK (DL-DB) 

Bounds test an effective address that may be In DL-DB after 
it has failed the DB-S inline bounds test. 



UBB 

RH 



BNDE 
ADD 



8000 RH 
RG UBB 



BNDE 
ADD 
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EXTENDED BOUNDS CHECKING FOR DL-DB 

ADD 32K TO THE EFFECTIVE ADDRESS 

BOUNDS TEST EA <• SM, EA >= DL (2527) 

RETURN IF OK W/O S KILL, FIRE UP MEM (2527) 
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RECORD 

NO 

16764 
16765 
16766 
16767 
16768 
16769 
16770 
16771 
16772 
16773 
16774 
16775 
16776 
16777 
16778 
16779 
16780 
16781 
16782 
16783 
16784 
16786 
16787 
16789 
16790 
16792 
16793 
16795 
16796 
16798 
16799 
16801 
16802 
16804 
16805 
16807 
16808 
16810 



COBOL II FIRMWARE INSTRUCTION SET - VALIDATE, MOVE, AND FILL 

C s «««««»•..»» ALU A ««••••«»•*• «•••***«•«•»» ALU b •••••••»•••••* 

ADDR LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 



VALIDATE LEADING BLANKS 

1. Bounds tesi the first byte. 

2. If the significance trigger has already been set, then 
just validate the remaining digits. 

3. For each source byte 
loop 

extract the source byte from the current source word, 
decrement the count. 

if the source byte is not a blank, then exit the loop, 
fetch the next source word and bounds test if needed, 
endloop 

4. If all source bytes were processed, then return. 

5. Set the significance trigger and increment the number of 
bytes remaining since the current byte is non-blank 



10/ 2/88 9:27 AM 



11A8 VLB RQ 

11A9 

llAA 

llAB 

UAC 

HAD 

llAE RE 

llAF 

HBO 



BNDE 
JSB VLD 



OPA ADD 
OPA ADD 
ADO 
JSB 
INC 
JSB 
ADD 



LRZ 
RRZ 



RH 
RH 



F3A 
NFl 
SFl 

NFl 
ROD 
UNC 
SF3A 



ADD 
BKX7 SUB 

ADD 

JSB VRET 

ADD 
SP2B JSBS "+3 

ADD 
UBA BNDE 

ADD 



NZRO 
CTRO 



BOUNDS TEST 

SAVE THE RETURN ADDRESS 

LEADING BLANKS ALLOWED? 

COMPLEMENT AND TRANSFER THE COUNT 

EXTRACT LEFT SOURCE BYTE 

EXTRACT RIGHT SOURCE BYTE 
ANY BYTES REMAINING? 

DECREMENT BYTES REMAINING 

NEXT ITERATION FOR RIGHT BYTE 

LEADING BLANK? 

FETCH NEXT SOURCE WORD 

SIGNAL LEFT BYTE 

NEXT ITERATION 

BOUNDS TEST 

NON-BLANK ENCOUNTERED 

RESET COUNTER 



PAGE 337 

RECORD 

NO 

16812 
16813 
16814 
16815 
16816 
16E17 
16818 
16819 
16820 
16821 
16822 
16823 
16824 
16825 
16826 
16827 
16829 
16830 
16832 
16833 
16835 
16836 
1683S 
16839 
16841 
16842 
16844 
16845 
16847 



COBOL II FIRMWARE INSTRUCTION SET - VALIDATE, MOVE, AND FILL 

C.S »«..,..».<,,. ALU A ••«•«•<.*«*• ............. ALU g ••••«.*<,<,...•« 

ADDR LABL RREG SREG l-UNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



VALIDATE LEADING DIGITS 

1. For eaclii source byte 
loop 

Extract the source byte from the current source word. 
Decrement the count. 
Validate the ASCII digit 

Fetch the next source word and bounds test if needed, 
andloop 

2 . Return ; 
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llBl 
11B2 
11B3 
11B4 
11B5 
11B6 
11B7 





OPA 


ADD 


LRZ 


RH 


NFl 




OPA 


ADD 
ADD 


RRZ 


RM 


SFl 


SPOA 


RH 


JSBS 


VTRP 




NCRY 






J SB 


•-3 




NFl 


RE 




INC 




RE 


ROD 






JS8 


<-6 




UNC 



ADD 

JSB VRET 

ADD 
SPIB JSBS VTRP 

ADD 

ADD . 
UBA BNDE 



EXTRACT RIGHT SOURCE BYTE 



CTRO EXTRACT LEFT SOURCE BYTE 
ANY BYTES REMAINING? 



ILLEGAL ASCII DIGIT TRAP? 

ILLEGAL ASCII DIGIT TRAP? 

NEXT ITERATION FOR RIGHT SOURCE BYTE 

DECREMENT BYTES REMAINING 

FETCH NEXT SOURCE WORD 

SIGNAL LEFT BYTE 

NEXT ITERATION 

BOUNDS TEST 
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RECORD 

NO 

16849 
16850 
16851 
16852 
16853 
16854 
16855 
16856 
16857 
16858 
16859 
16860 
16861 
16862 
16863 
16864 
16865 
16866 
16867 
16868 
16869 
16870 
16871 
16873 
16874 
16876 
16877 
16879 
16880 
16882 
16883 
16885 
16886 
16888 
16889 
16891 
16892 
16894 
16895 
16897 
16898 
16900 
16901 
16903 
16904 
16906 
16907 
16909 
16910 
16912 



COBOL II FIRMWARE INSTRUCTION SET - VALIDATE, MOVE, AND FILL 

C.S .«.»«..«».« ALU A ««•»»*••••* ««*«..«»«•»». ALU B ««<•»*••*••••• 
ADDR LABL RREG SREG FUNG SFNC STOR SPSK RREG SREQ FUNG SFNC STOR SPEC SKIP 



VALIDATE AND ZERO FILL LEADING BLANKS 
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1188 
1189 
IIBA 
UBB 
IIBC 
IIBD 
IIBE 
IIBF 
IICO 
llCl 
11C2 
1103 
11C4 
11C5 



Bounds test the first byte 

If the significance trigger has already been set, then 

just validate the remaining digits. 

For each source byte 

loop 

extract the source byte from the current source word. 

decrement the count. 

if the source byte is not a blank, then exit the loop. 

place a zero in the next target byte. 

write the target word if both bytes have been filled. 

fetch the next source word and bounds test if needed, 
endloop 

If all source bytes were processed, then return. 
Set the si9nificance trigger and increment the number of 
bytes remaining since the current byte is non-blank. 



OPA 
OPA 



RG 
RE 



BNDE 

JSB 

ADD 

ADD 

ADD 

JSB 

JSB 

INC 

JSB 

INC 

BNOE 

INC 

JSB 

ADD 



VMLD 

LRZ 

RRZ 

•+4 
•-3 



F3A 
NFl 
SFl 

F2 
NFl 
ROD 
UNC 

CF2 
ROD 
UNC 
SF3A 



SP3B ADD 
BKX7 ADD 
ADD 
JSB 
ADD 
SP2B JSBS 
SPIB ADD 
ADD 
UBA BNDE 
SP3B SPIB lOR 
JSB 
ADD 
RG UBA BNDE 
SP3B ADD 



RH 
UBB 



RG 



VRET SP3B 

RLZ SP3B DCTR 



SF2 




CFl 


CTRO 


DATA 


Fl 




UNC 


CFl 


CTRO 



BOUNDS TEST 
SAVE RETURN ADDRESS 
LEADING BLANKS ALLOWED? 
TRANSFER LENGTH TO COUNTER 
EXTRACT LEFT SOURCE BYTE 

EXTRACT RIGHT SOURCE BYTE 
ANY BYTES REMAINING? 

DECREMENT BYTES REMAINING 

WRITE TARGET WORD? 

LEADING BLANK? 

NEXT ITERATION FOR RIGHT BYTE 

REPLACE BLANK WITH ZERO 

FETCH NEXT SOURCE WORD 

SIGNAL LEFT BYTE 

NEXT ITERATION 

BOUNDS TEST 

INCREMENT TARGET ADDRESS 

WRITE TARGET WORD 

BOUNDS TEST 

NEXT ITERATION FOR RIGHT BYTE 

FETCH NEXT SOURCE WORD 

SIGNAL LEFT BYTE 

NEXT ITERATION 

BOUNDS TEST 

NON-BLANK ENCOUNTERED 

RESET COUNTER 



COBOL II FIRMWARE INSTRUCTION SET - VALIDATE, MOVE, AND FILL 10/ 2/86 9:27 AM 

• «•<,.•« ALU A *********** ••<,•«>,. x,*... ALU B ••••*••••*«••• 
LAIBL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

VALIDATE AND MOVE LEADING DIGITS • 

1. For each source byte • 
loop • 

Extract the source byte from the current source word. • 

Decrement the count * 

Validate the ASCII digit. * 

Place the source byte in the next target byte. * 

Write the target word if both bytes have been filled. • 

Fetch the next source word and bounds test if needed. * 

endloop * 

2 . Return ; • 

OPA ADD LRZ RH NFl ADD EXTRACT LEFT SOURCE BYTE 

OPA ADD RRZ RH SFl RH JSB VRET SP3B CTRO EXTRACT RIGHT SOURCE BYTE 

ANY BYTES REMAINING? 
XR3 ADO LLZ RF INC MASK LAST WORD OF SOURCE TO HI ORDER 

ADJUST RF TO BE SAME AS YREG A (2307) 
UBB XR4 SUB NZRO UBA ADD NOP IF NOT SHARED SRCE/TARGET WORD(2307) 

RH UBB lOR XR3 SP3B ADD RLZ SP3B IF SHARED .MERGE ; SAVE JUST LEFT BYT (2307) 

SPOA RH JSBS VTRP NCRY RH SPIB JSBS VTRP NCRY ILLEGAL ASCII DIGIT TRAP? 

ILLEGAL ASCII DIGIT TRAP? 
JSB "+4 F2 ADD DCTR Fl WRITE TARGET WORD? 

DECREMENT BYTES REMAINING 
ADD SF2 JSB •-6 UNC SIGNAL RIGHT TARGET BYTE 

NEXT ITERATION FOR RIGHT BYTE 
RE :tNC RE ROD ADD CFl CTRO FETCH NEXT SOURCE WORD 

SIGNAL LEFT SOURCE BYTE 
JSB *-9 UNC RG UBA BNDE NEXT ITERATION 

BOUNDS TEST 
RF INC RF SP3B RH lOR DATA Fl INCREMENT TARGET ADDRESS 

WRITE TARGET WORD 
RG UBA I3NDE CF2 JSB "-A UNC BOUNDS TEST 

NEXT ITERATION FOR RIGHT BYTE 
RE INC RE ROD ADD CFl CTRO FETCH NEXT SOURCE WORD 

SIGNAL LEFT BYTE 
JSB '-D UNC RG UBA BNDE NEXT ITERATION 

BOUNDS TEST 
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COBOL II f: 


RECORD 


C S. 


NO 


ADDR LAIBL 


16914 


.«•«, 


16915 




16916 




16917 




16918 




16919 




16920 




16921 




16922 




16923 




16924 




16925 




16926 




16927 




16928 




16929 


« * • • ' 


16930 




16931 


11C6 VMLD 


16933 




16934 


11C7 


16936 




16937 


11C8 


16939 




16940 


11C9 


16942 


IICA 


16944 


IICB 


16946 




16947 


UCC 


16949 




16950 


IICD 


16952 




16953 


IICE 


16955 




16956 


IICF 


16958 




16959 


IIDO 


16961 




16962 


llDl 


16964 




16965 


11D2 


16967 




16968 


11D3 


16J70 
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RECORD 

NO 

16972 
16973 
16974 
16975 
16976 
16977 
16978 
16979 
16980 
16981 
16982 
16983 
16984 
16985 
16986 
16987 
16989 
16990 
16992 
16993 
16995 
16996 
16998 
16999 
17001 
17002 
17004 
17005 
17007 



COBOL II FIRMWARE INSTRUCTION SET - VALIDATE, MOVE. AND FILL 

C.S. ...«*...... ALU A «*>*•.**<,«• .*.«•.. ...... ALU B ••••»••*»•«••• 

ADDR LABL RREG SREG FUNG SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 



1. Bounds test the next source byte. 

2. For COUNT iterations 
loop 

Place the fill byte in the next target byte. 
Write the next target word if both bytes have been filled. 
Dec rement count 
endloop 

3. Return 



10/ 2/86 9:27 AM 



1104 
11D5 
11D6 
11D7 
11D8 
11D9 
UDA 



RE BNDE 
JSB 

SPIB ADD 
ADD 
ADD 
INC 
JSB 





SP3B 




ADD 




RH 


PSHR 


F2 




BKX7 


ADD 




CTR 






RH 




JSB 


•+2 


SP3B 




SF2 






ADD 






DCTR 




RH 




JSB 


VRET 


SP3B 




CF2 


UBA 


SPIB 


I OR 






DATA 


UNC 


RG 


UBA 


BNDE 






DCTR 



BOUNDS TEST 

SAVE RETURN ADDRESS 

EVEN OR ODD STARTING BYTE 

TRANSFER LENGTH TO COUNTER 

FILL BYTE CONTAINED IN SPIB (2310| 

ANY BYTES REMAINING 

SIGNAL RIGHT BYTE 

DECREMENT BYTES REMAINING 

LAST BYTE IS LEFT BYTE 

ANY BYTES REMAINING? 

SIGNAL LEFT BYTE; INCREMENT TARGET ADDRESS 

WRITE TARGET WORD 

NEXT ITERATION 

BOUNDS TEST AND DECREMENT BYTES REMAINING 
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RECORD 

NO 

17009 
17010 
17011 
17012 
17013 
17014 
17015 
17016 
17017 
17018 
17019 
17020 
17021 
17022 
17023 
17025 
17026 
17028 
17029 
17031 



COBOL II FIRMWARE INSTRUCTION SET - VALIDATE, MOVE, AND FILL 

..*••«••<«»*. ALU B •*••••••«•*••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



C.S 
ADDR 



IIDB 
IIDC 
HDD 



ALU A 
LABL RREG SREG FUNC SFNC STOR SPSK 



10/ 2/86 9.27 AM 



VTRP - Trap for ILLEGAL ASCII DIGIT 

1. Set illegal ascil digit flag. 

2. Return. 

VRET - Return from the V routines. 

1. Restons the return address 
2 . Ret urn . 



VTRP 
VRET 



ADD 
JSB 
i^DD 



MEDJ 
RSB 



ADD 
ADD 
ADD 



SF4B 
POPR 



ILLEGAL ASCII DIGIT FLAG 
FORCE RSB AFTER POPR 
RESTORE RETURN ADDRESS 
RETURN 
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RECORD 

NO 

17033 
17034 
17035 
17036 
17037 
17038 
17039 
17040 
17041 
17042 
17043 
17044 
17045 
17046 
17047 
17048 
17049 
17050 
17051 
17052 
17053 
17054 
17055 
17056 
1705 8 
17060 
17062 
17064 
17066 



COBOL II FIRhWARE INSTRUCTION SET - OVERPUNCH BYTE 

C S. ........... fti_u A •••***•••«. ............. ALU B ••••••••«•«••• 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



OVPN (overpunch ascli digit) 

Overpunch an ascli digit corresponding to the table below. 

The sign of the overpunch is determined by FLAG 2. The 

sign is positive if FLAG 2 is true, otherwise it is negative. 



10/ 2/86 9:27 AM 



IIDE 
IIDF 
llEO 
llEl 

11E2 



Original 


1 

2 
3 
4 
5 



OVPN 0030 ADDL 

UBA RH SUB 

UBB ADD 

ADD 

ADD 

SWARN 



Positive overpunch 



Negative overpunch 



( 

A 






) 
J 


B 






K 


C 






L 


D 






M 


E 






N 


F 









G 






P 


H 






Q 


I 






R 







ADD 




ZERO 


0010 RH 


ADDL 




RSB 


0019 RH 


ADDL 


RH 




007B 


ADDL 


RH 


RS6 


007D 


ADDL 


RH 



•0' FOR COMPARISON 

SKIP FOR SPECIAL OVERPUNCH 

OVERPUNCH POSITIVE OR NEGATIVE 1-9; RETURN 

POSITIVE OVERPUNCH 

NEGATIVE OVERPUNCH 
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COBO 


RECORD 


C.S 


NO 


ADDR 


17068 




17069 




17070 




1707 1 




17072 




17073 




17D74 




17075 




17076 




17077 




170'8 




17073 




17080 


11E3 


17082 


11E4 


17084 


11E5 


17086 


11E6 


17088 


11E7 


17090 


11E8 


17092 


11E9 


17094 


llEA 


17096 


llEB 


17098 


UEC 


17100 


llED 


17102 


llEE 



COBOL n FIRMWARE INSTRUCTION SET 

>,•..*.*•.•<, ALU A *«*••••*»•« 
1.ABL RREG SREG FUNC SFNC STOR SPSK 



STPO (Strip overpunch) 



STRIP OVERPUNCH 

<■*«<, •««*•<,•»«•*.> ALU B •*••»*•«•«•<■•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



Strips the overpunch from an ascii character and set FLAG 1 

to TRUE if the character is signed or FALSE if the character 

is unsigned. If signed, FLAG 2 is set to TRUE if positive, 
otherwise it is set to FALSE. 

NOTE: This routine does not check for invalid overpunch. 



UBA 


RH 


SUB 
ADD 


UBB 


RH 


SUB 


UBB 




ADD 


0030 




ADDL 


UBA 




ADD 


UBA 




ADD 


0052 




ADDL 


UBA 


RH 


SUB 


UBB 




ADD 
ADD 









ADD 




CFl 




NCRY 






ADD 




SF2 




RSB 


0049 




ADDL 








NCRY 


FFFO 


RH 


ADOL 








RSB 






ADD 




SFl 






FF85 


RH 


ADDL 






Ni!RO 




UBA 




ADO 


RH 




RSB 


CF2 


FF83 


RH 


ADDL 






n;[ro 




UBA 




ADD 


RH 




RSB 


NCRY 


FFE7 


RH 


ADDL 








RSB 






ADD 








CFl 






ADD 




SF2 


RSB 



•0'; DEFAULT UNSIGNED QUANTITY 

SKIP IF RH > '0'; DEFAULT POSITIVE 

RETURN IF NOT OVERPUNCHED; 'I' 

SKIP IF RH > 'I' ; 'A-I' »> '1-9' 

POSITIVE 1-9 OVERPUNCHED 

•0' ; SKIP IF RH <> ' { ' 

POSITIVE 0; 

NEGATIVE; SKIP IF RH <> ')' 

'R' ; NEGATIVE 

SKIP IF RH > 'R'; 'J-R' «> (-) '1-9' 

NEGATIVE 1-9 OVERPUNCHED 

INVALID- DEFAULT UNSIGNED POSITIVE 
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COBOL 


II FIRMWARE 


INSTRUCTION 


SET - STRIP 


OVERPUNCH 








RECORD 


C.S. 






•••• ALU 


1 A • 


r*****ft**** 


A******** 


•••• ALU B 


************** 


NO 


ADDR 


LABL 


RREG SREG FUNG 


SFNC STOR SPSK 


RREG SREG 


FUNC 


SFNC 


STOR SPEC SKIP 


17105 




*•«• 


<.••••«*• 


••••<••« 


• ••* 


1 ••«« •«.•••* • 






,**•*< 


>•«••••«*«*<>*« 


17106 




* 


















17107 




* 


REMO (R( 


emove overpunch) 










17108 




* 


















17109 




• 


Strips 


the over 


punc 


;h from the 


ascii digit . but 


doe! 


i not set ■ 


17110 




* 


FLAGS 1 


and 2. 














17111 




* 


















17112 




• 


NOTE: This rout 


ine 


does not ch 


eck for invalid 


overpunch. * 


17113 




* 
















* 


17114 




* * * « 


Ikikitft****) 


*AA**AfkAA**il 


:AAikillA**ikAAA 




K * * * A « 


!****< 


tA*AAik*AA***** 


17115 


llEF 


REMO 


0040 


ADDL 








ADD 






17117 


IIFO 




UBA RH 


SUB 




NCRV 




ADD 






17119 


llFl 






ADD 




RSB 


0049 


ADDL 






17UI 


11F2 




UBB RH 


SUB 




NCRY 


FFFO RH 


ADDL 






17123 


11F3 




UBB 


ADD 




RH RSB 




ADD 






17125 


11F4 




0030 


ADDL 






FF85 RH 


ADDL 




NZRO 


17127 


11F5 




UBA 


ADD 






UBA 


ADD 




RH RSB 


17129 


11F6 




UBA 


ADD 






FF83 RH 


ADDL 




NZRO 


17131 


11F7 




0052 


ADDL 






UBA 


ADD 




RH RSB 


17133 


11F8 




UBA RH 


SUB 




NCRY 


FFE7 RH 


ADDL 






17135 


11F9 




UBB 


ADD 




RH RSB 




ADD 






17137 


UFA 






ADD 








ADD 




RSB 



10/ 2/86 9:27 AM 



COMMENT 



'@'; DEFAULT UNSIGNED QUANTITY 

SKIP IF RH > 'fl'; DEFAULT POSITIVE 

RETURN IF NOT OVERPUNCHED; I' 

SKIP IF RH > 'I', 'A-l' •> '1-9' 

POSITIVE 1-9 OVERPUNCHED 

■0' : SKIP IF RH <> • { ' 

POSITIVE 0; 

NEGATIVE; SKIP IF RH <> ' ) ' 

'R'^ NEGATIVE 

SKIP IF RH > 'R'- 'J-R' => (-) 1-9' 

NEGATIVE 1-9 OVERPUNCHED 

INVALID- DEFAULT UNSIGNED POSITIVE 
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RECORD 

NO 

17140 
17141 
17142 
17143 
17144 
17145 
17146 
17147 
17148 
17149 
17150 
17151 
17152 
17154 
17156 
17158 
17160 
17162 
17164 
17165 



COBOL [I FIRMWARE INSTRUCTION SET - STRIP SIGN 



C.S. 
ADDR 



IIFB 
IIFC 
IIFD 
IIFE 
IIFF 
1200 
1201 
1202 



ALU A 
ILABL RREG SRECI FUNC SFNC STOR SPSK 



«•• ALU B *•••«•«•«••.««» 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



STPS (Strip sign) 

Decodes an ascli sign byte (non-overpunched) 
ASCII signs are: 

+ , blank, for positive, and 
tor negative. 

NOTE: FLAG 4 is set for an invalid sign. 



The only valid 



TPS 0020 
002B 
002D 



ADDL 

ADD 

ADDL 

ADD 

ADDL 

ADD 

ADD 

ADD 









ADD 


SF2 


UBA 


RH 


SUB 
ADD 


SFl 


UBA 


RH 


SUB 
ADD 


CF2 


UBA 


RH 


SUB 
ADD 


RSB 






ADD 



CFl ' ': DEFAULT UNSIGNED 

NZRO POSITIVE; SKIP RETURN IF RH <> ' 

RSB '+• 

NZRO SIGN EXISTS; SKIP IF RH <> '+' 

NZRO NEGATIVE; SKIP RETURN IF RH <> ' 

SF4B '" RETURN WITH INVALID ASCII DIGIT 
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RECORD 

NO 

17168 
17169 
17170 
17171 
17172 
17173 
17174 
17175 
17176 
17177 
17178 
17179 
17180 
17181 
17182 
17183 
17184 
17185 
17186 
17187 
17189 
17190 
17192 
17193 
17195 
17196 
17198 
17199 
17201 
17202 
17204 
17205 
17207 
17208 
17210 
17211 
17213 
17214 
17216 
17217 
17219 
17220 
17222 
17223 
17225 
17226 
17228 



COBOL II FIRMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

C.S. ***«..*.*.. ALU A •*••*•*••** .«..«».«....« ALU B •••«••••••»••« 

ADDR LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



1203 
1204 
1205 
1206 
1207 
1208 
1209 
120A 
120B 
120C 
120D 
120E 
120F 
1210 



CVND (Convert Numeric Display) 

1. Get three valid TOS registers including the source count, 
source RBA, and target RBA . 

2. If the source length is zero, then next instruction. 

3. Illegal operand length trap if source length < or source 
length > 28. 

4. Initialize the target pointers, bounds test, and set up for 
all target fetch/store operations to be performed in ALUB. 

5. Initialize the source pointers, bounds test, and set up for 
all source fetch/store operations to be performed in ALUA . 

6. Define the valid digit range ('0' -> '9') and blank for 
filling by zero. 



10/ 2/86 9; 27 AM 



0003 




ADDL 
ADD 




RH 




FFE3 




ADDL 
JSLZ 


ADJS 


SP2B 




UNC 




SM 


ADD 




RG 




RA 




JSB 


COUT 






ZERO 


RC 




ADD 


LSR 




SF3A 


RA 


SP2B 


JSB 


COUT 






CRRY 


UBA 


DB 


ADD 




RH 


ROD 






JSB 


•+2 






NF5B 


UBA 


DL 


JSBS 


CEBC 




NCRY 


RG 


UBA 


JSBS 


CEBC 






NCRY 


RB 




ADD 


LSR 




CF3A 


RH 




ADD 




RF 


ROD 




UBA 


DB 


ADD 




RH 


ROD 






JSB 


•+2 






NF5B 


UBA 


DL 


JSBS 


CEBC 




NCRY 


RG 


UBA 


JSBS 


CEBC 






NCRY 


RB 




ADD 






ODD 


RC 




CSR 






HBF2 








ADD 






CFl 




OPB 


ADD 


LRZ 


SP3B 


SFl 








ADD 








RF 




CAD 




RF 






RH 




ADD 




RE 




0030 




ADDL 




SPIB 






0039 




ADDL 




SPOA 




0020 




ADDL 




SP2B 







CVND HAS 3 TOS REGISTER PARAMETERS 
THE MAXIMUM SOURCE COUNT IS 2 8 

ADJUST THE NUMBER OF TOS REGISTERS 

SAVE SM FOR BOUNDS TESTING 

DONE IF THE SOURCE COUNT = 

TARGET RBA/2; SET ILLEGAL LENGTH TRAP 

ILLEGAL LENGTH TRAP IF COUNT < OR > 31 

FETCH EFFECTIVE TARGET ADDRESS 

SKIP BOUNDS TESTS IF SPLIT STACK MODE 

BOUNDS TEST EA >« DL 

BOUNDS TEST SM >• EA 

SOURCE RBA/2; RESET ILLEGAL LENGTH TRAP 

TARGET OPERATIONS PERFORMED IN ALUB 

FETCH EFFECTIVE SOURCE ADDRESS 

SKIP BOUNDS TESTS IF SPLIT STACK MODE 

BOUNDS TEST EA >« DL 

BOUNDS TEST SM >= EA 

EVEN/ODD SOURCE RBA? 

F2 <- LEFT/RIGHT TARGET BYTE 

Fl <- LEFT/RIGHT SOURCE BYTE 

SAVE LEFT BYTE OF TARGET WORD 

SYNCHRONIZE TARGET ADDRESS 
SOURCE OPERATIONS PERFORMED IN ALUA 
LOWER BOUND ("0") FOR NUMERIC TEST 
UPPER BOUND ("9") FOR NUMERIC TEST 
USED FOR LEADING BLANK TESTS 
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RECORD 

NO 

17230 
17231 
17232 
17233 
17234 
17235 
17236 
17237 
17238 
17239 
17240 
17241 
17242 
17243 
17244 
17245 
17246 
17248 
17249 
17251 
17252 
17254 
17255 
17267 
17258 
17260 
17261 
17263 
17264 
17266 



COBOL :[I FIRMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

C.S. .......*.«» /XLU A *•••••••»•• .•*.».*..*... ALU B «*•*••••«»•<■•• 

ADDR LABL RREQ SREG FUNC SFNC STOR SPSK RREQ SREG FUNC SFNC STOR SPEC SKIP 



CVND (continued) 

1. Determine which of the five types of source field exist 
based on the bits 12, 13, .'4 of the second word of the opcode. 

- Leading Sign Separate 

1 - Trailing Sign Separate 

2 - Leading Sign Overpunch or Unsigned 

3 - Trailing Sign Overpunch or Unsigned 
4-7 - Unsigned 

2. If Unsigned (options 4-7), then move all the source 
digits TO the target and zerofill the leading blanks. 
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1211 
1212 
1213 
1214 
1215 
1216 
1217 





SP4A 


ADD 
ADD 


LSR 


UBB 




JSBC 


CTSS 


UBA 




JSBC 


CLSO 


UBA 




JSBC 

ADD 

ADD 


CTSO 



ADD 
0007 UBA ANDL 



ZERO UBB 
ZERO 
ZERO RA 



JSB CLSS 

ADD 

ADD BKX7 

JSL VMLB 

JSB CUNS 



UNC 



SECOND WORD OF OPCODE 



EXTRACT SOURCE TYPE BITS 
TRAILING SIGN SEPARATE 
LEADING SIGN SEPARATE 
LEADING SIGN OVERPUNCHED 

TRAILING SIGN OVERPUNCHED 

SOURCE CHARACTER COUNT 

UNSIGNED 

VALIDATE AND MOVE (SOURCE CHARACTER COUNT) 

RESET SIGNIFICANCE TRIGGER 

FIXUP LAST TARGET WORD FOR UNSIGNED 
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RECORD 

NO 

17268 
17269 
17270 
17271 
17272 
17273 
17274 
17275 
17276 
17277 
17278 
17279 
17280 
17281 
17282 
17283 
17284 
17285 
17286 
17287 
17288 
17289 
17290 
17291 
17292 
17293 
17294 
17295 
17296 
17297 
17299 
17300 
17302 
17303 
17305 
17306 
17307 
17308 
17309 
17310 
17311 
17313 
17314 
17316 
17317 
17319 
17320 
17321 
17323 
17325 



COBOL II FIRMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

Q 3 *********** f^\_ij ^ •*•*••*•••<> ii****ii**Daa** ALU B n*******"""** 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 
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1218 
1219 
121A 



1216 
121C 
121D 



121E 
121F 



************************************ 
NBAF (Next Byte Addresi Fetch) 

if the fetch flag (Fl) is ftlse 
then 

extract left byte 

set the fetch flag (Fl) to true 
else 

extract right byte 

set the fetch flag (Fl) to false 

fetch the next source word 
endif 

NBAS (Next Byte Address Store) 

if the store flag (F2) is false 

then 

deposit the left byte 

set the store flag (F2) to true 

else 

combine left and right bytes 
set the store flag [F2) to false 
store the next target word 
bounds test 

endif 

OPA ADD LRZ RH NFl 
OPA ADD RRZ RH 
RE INC RE ROD 



ADD 
ADD 
INC 



t ******** 



ADD 
ADD 
ADD 



ADD 
ADD 



BNDE 
ADD 



EXTRACT LEFT BYTE 
CURRENTLY RIGHT BYTE? 
EXTRACT RIGHT BYTE 
SIGNAL RIGHT BYTE; RETURN 
FETCH NEXT SOURCE WORD 
SIGNAL LEFT BYTE: RETURN 



CURRENTLY RIGHT BYTE? 

SAVE FOR NEXT LEFT BYTE 

RETURN IF LEFT BYTE 

LAS BYTE IS LEFT; SIGNAL RIGHT BYTE 

NEXT TARGET WORD; SIGNAL LEFT BYTE 

WRITE TARGET WORD 

TICB TO SLOW DOWN RSB (1000 ) 

(1010) 

RETURN BUT SLOWLY (1010 ) 

BOUNDS TEST ADDRESS OF WORD BEGIN WRITTEN 
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RECORD 

NO 

17327 
17328 
17329 
17330 
17331 
1733? 
17333 
1 7 ;i '. a 
173 I 
17336 
17 3 3 7 
17338 
17339 
17340 
17341 
17342 
17343 
17344 
17345 
17346 
17347 
17348 
17349 



COBOL II FIRMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREQ SREG FUNC SFNC STOR SPEC SKIP COMMENT 



CVND (continued) 

if leading sign separate 
t hen 

fetch the leading sign byte and save it 

validate, zerofill, and move the remainder of the source 
field to the t arget 
else 

validate, zerofill, and move the first N-1 digits of the 
source field to the target 

fetch the trailing sign byte and save it 
endif 

NOTE: (Special Case) If the source length is only 1, there is 
a sign in the source, but no digits, so a zero is 
transferred to the target field to be overpunched. 

Strip the source sign byte and set the sign flags so that the 
target may be overpunched. 
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RECORD 

NO 

17351 
17352 
17353 
17354 
17355 
17356 
17358 
17359 
17361 
17362 
17364 
17365 
17366 
17367 
17368 
17369 
17370 
17372 
17373 
17375 
17376 
17378 
17379 
17381 
17382 
17384 
17385 
17386 
17387 
17388 
17389 
17390 
17392 
17393 
17395 
17396 
17398 
17399 
17401 



COBOL II FIRMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

Q 3 *A**«***«Aft ALU A ************ * A A * ft * « * * A Aft • ALU B ************** 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



1228 
1229 
122A 
122B 



LEADING SIGN SEPARATE 



1220 CLSS 

1221 RH 
1222 



JSB NBAF 
ADD RD 

JSB *+6 



• TRAILING SIGN SEPARATE 

1223 CTSS ADD 

1224 ADD 

1225 RG RE 6NDE 

1226 JSB NBAF 

1227 RH ADD RD 



CAD BKX7 

JSL VMLB 
JSB COUT 



CAD BKX7 

JSL VMLB 
JSB COUT 
ADD 
ADD 



SIGN HANDLING FOR SEPARATE SIGN TYPES 
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FETCH LEADING SEPARATE SIGN 

SOURCE CHARACTER COUNT -1 

SAVE LEADING SIGN 

VALIDATE AND MOVE (SOURCE COUNT 

SIGN HANDLING BELOW 

ILLEGAL ASCII DIGIT TRAP 



SOURCE CHARACTER COUNT - 1 

VALIDATE AND MOVE (SOURCE COUNT 
BOUNDS TEST FOR SIGN BYTE FETCH 
ILLEGAL ASCII DIGIT TRAP 
FETCH TRAILING SIGN 

SAVE TRAILING SIGN 



DOES SOURCE CONSIST OF ONLY A SIGN BYTE 

ZERO REQUIRED FOR OVERPUNCH 

RESTORE SIGN BYTE 

SAVE LEFT/RIGHT TARGET BYTE 

STRIP SIGN FROM SIGN BYTE 
OVERPUNCH LAST TARGET BYTE 
ILLEGAL ASCII DIGIT TRAP 
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RECORD C.S. ........... ALU A ••••««.»•.. ««..«.«*..«.. ^LU B •••«»•••••••• i« 

NO ADDR LAHL RREG SREG F UNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

17404 • * 

17405 • CVND (continued) • 

17406 • • 

17407 • If leading sign overpunched • 

17408 " then • 

17409 • fetch the sign byte « 

17410 * if the sign byte is blank * 

17411 • then * 

17412 • zerofill the byte • 

17413 * clear the significance trigger so that leading blanks are * 

17414 • allowed • 

17415 • endif • 

17416 * save the sign byte " 

17417 » remove the overpunch from the sign byte * 

17418 * test the stripped sign byte for validity and move It to the * 

17419 • target field • 

17420 • validate, zerofill, and move the remainder of the source " 

17421 • field to the target • 

17422 * else • 

17423 * validate, zerofill, and move the first N~l digits from the * 

17424 « source to the target • 

17425 • fetch thei sign byte * 

17426 * if the significance trigger is off and the sign is blank * 

17427 * then • 

17428 * zerofill the sign byte 

17429 • endif • 

17430 • remove the overpunch from the sign byte * 

17431 * test the stripped sign byte for validity and move it to the * 

17432 • target field « 

17433 * endif • 

17434 • • 

17435 * strip the overpunch and set the sign so that the target may * 

17436 * be overpunched • 

17437 « « 

17438 AlllkAftA*ft*ft*Aftftft]liftftAAftAMAftAftftAAAAAAAA*llr)llA**AftftftA«}ftftftftAftlilAftAAAlliil|*A*ftftftA 
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RECORD 

NO 

17440 
17441 
17442 
17443 
17444 
17445 
17447 
17448 
17450 
17451 
17453 
17454 
17456 
17457 
17459 
17460 
17462 
17463 
17465 
17466 
17468 
17469 
17470 
17471 
17472 
17473 
17474 
17476 
17477 
17479 
17480 
17482 
17483 
17485 
17486 
17488 
17489 
17491 
17492 
17494 
17495 
17497 
17498 
17500 
17501 
17502 
17503 
17504 
17505 
17506 
17508 
17509 
175U 



COBOL II FIRMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

C.S. «»«»«««..«* ALU A ••••«**•••• .•«........•• ALU g ».«••».».«.... 

ADDR LABL RREO SREG FUNG SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 
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COMMENT 



LEADING SIGN OVERPUNCHED 



0020 


ADDL 




RD 








JSB 


NBAF 


RH 


ADD 




RD 


SF3A 


RH 


RD 


JSBS 


•+2 




ADD 






CF3A 


0030 




ADDL 


RH 




ADD 












JSL 


REMO 


SPOA RH 


JSBS 


CTRP 




NCRY 


RH 


SPIB 


JSBS 


CTRP 




JSB 


NBAS 




UNC 


RA 




CAD 


BKX7 




ADD 












JSL 


VMLB 




JSB 


•+A 




UNC 






JSB 


COUT 



122C 
122D 
122E 
122F 
1230 
1231 
1232 
1233 



* TRAILING SIGN OVERPUNCHED 

1234 CTSO ADD 

1235 ADD 

1236 RQ RE BNDE 

1237 0020 ADDL RD 

1238 JSB **2 

1239 ADD 

123A RH ADD RD 

123B SPOA RH JSBS CTRP 

123C JSB NBAS 



OVERPUNCH HANDLING FOR OVERPUNCHED TYPES 

123D RD ADD RH ADD 

123E ADD JSL 





RA 




CAD 
JSL 
JSB 
JSB 


VMLB 
COUT 
NBAF 


BK 


F3A 


RH 


RD 


SUB 








0030 




ADDL 
JSL 


REMO 


RH 


NCRY 


RH 


SPIB 


JSBS 


CTRP 




UNC 






ADD 







BLANK FOR TEST 

FETCH LEADING OVERPUNCH SIGN 

SAVE LEADING OVERPUNCH. SET SIGNIFICANCE 

CHECK FOR LEADING BLANK 

CLEAR SIGNIFICANCE 

ZERO FILL LEADING BLANK 

STRIP LEADING OVERPUNCH FOR TARGET BYTE 
ILLEGAL ASCII DIGIT TRAP 
ILLEGAL ASCII DIGIT TRAP 
STORE STRIPPED LEADING BYTE 
SOURCE CHARACTER COUNT - 1 



XRO F2HB 



VALIDATE AND MOVE (SOURCE COUNT 
SIGN HANDLING BELOW 
ILLEGAL ASCII DIGIT TRAP 



SOURCE CHARACTER COUNT - 1 

VALIDATE AND MOVE (SOURCE COUNT 

BOUNDS TEST OVERPUNCHED BYTE 

ILLEGAL ASCII DIGIT TRAP 

BLANK FOR TEST 

FETCH TRAILING OVERPUNCH SIGN 

ALLOW BLANK FILLING? 

TRAILING BLANK? 

ZERO FILL TRAILING BLANK 
SAVE TRAILING OVERPUNCH 
STRIP OVERPUNCH 
ILLEGAL ASCII DIGIT TRAP 
ILLEGAL ASCII DIGIT TRAP 
STORE STRIPPED TRAILING BYTE 



RESTORE OVERPUNCH 

SAVE LEFT/RIGHT TARGET BYTE 



STRIP OVERPUNCH 



1) 
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RECORD 

NO 

17513 
17514 
17515 
17516 
17517 
17518 
17519 
17520 
17521 
17522 
17523 
17524 
17526 
17527 
17529 
17530 
17532 
17533 
17535 
17536 
17538 
17539 
17541 
17542 
17543 
17544 
17545 
17546 
17547 
17549 
17550 
17552 
17553 
17555 
17556 
17558 
17559 
17561 
17562 
17563 
17564 
17565 
17566 
17567 
17569 
17570 
17572 
17573 
17575 
17576 
17578 



COBOL II FIRMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

C.S. •.«.. «....!. ALU A ««••••«•«•• .«...«.*"•... ALU B ••«««••«*•«••« 

ADDR LA8L RREG SREQ TUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CVND (continued) 

1. Overpunch the last target byte and write the last target 
word if the source was signed 

2. If the isource was unsigned, then just write the last 
target word. 
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123F COVP 

1240 

1241 

1242 

1243 

1244 



1245 
1246 
1247 
1248 
1249 



124A GUNS 
1248 RG 
1240 UBB 
1240 



ADD 
ADD 
ADD 
ADD 
ADD 
JSB GOUT 



ADD 
UBB BNDE 
ADD 
l\00 
JSB GOUT 



JSB GOUT 
UBB I3NDE 

ADD RLZ 
JSB GOUT 



XRO 


JSB 


**B 


RF 


ADD 




SP3B 


ADD 






JSL 


OVPN 


OPB 


ADD 


LLZ 


RH UBB 


lOR 





RF 


ING 




SP3B 


ADD 






JSL 


OVPN 


OPB 


ADD 


RLZ 


RH UBB 


ADD 


SWAB 



NF2 RF ING 

SP3B ADD 

OPB ADD RRZ 

UNC UBA UBB lOR 



RESET LEADING BLANK FLAG 
LEFT OR RIGHT TARGET BYTE? 

FETCH LAST SOURCE WORD 

LAST BYTE IS TO BE OVERPUNGHED 

OVERPUNCH LAST TARGET BYTE 

LEFT BYTE FROM OLD TARGET WORD 

DONE 

REWRITE LAST TARGET WORD 



FETCH NEXT TARGET WORD 
BOUNDS TEST LAST TARGET WORD 
LAST BYTE IS TO BE OVERPUNGHED 

OVERPUNCH LAST TARGET BYTE 

RIGHT BYTE FROM OLD TARGET WORD 

DONE 

WRITE LAST TARGET WORD 



WAS LAST TARGET WORD WRITTEN? 
FETCH NEXT TARGET WORD 
BOUNDS TEST LAST TARGET WORD 

OVERPUNGHED LEFT BYTE 

RIGHT BYTE FROM OLD TARGET WORD 

DONE 

WRITE LAST TARGET WORD 



PAGE 354 


COBOL 


II F 


RECORD 


C S, 




NO 


ADDR 


LABL 


17580 




»»»» 


17581 






17582 






17583 






17584 






17585 






17586 






17587 






17588 






17589 






17590 






17591 






17592 






17593 




AAA*] 


17594 






17595 


124E 


CTRP 


17597 






17598 


124F 


COUT 


17600 






17601 


1250 




17603 






17604 


1251 




17606 






17607 


1252 




17609 







RMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

«**itiiit**«*ii ALU A •••••••*••• «•••••«*«**•• f^i^u B •••••••••••••K 

LABL RREG SREQ FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



CTRP (CVNO trip for Illegal ascii digit) 
Signal an illegal ascii digit. 
COUT (CVND finish routine) 

1. Perforin the proper SDEC. 

2. Check for either of the traps that may have occurred 
(illegal operand length or illegal ascii digit) 

3. Next instruction. 
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ADD 

SP4A ADD 

ADD 

JSZ TRPR 
ADD 



EVEN 
EPOP 
F3A 



ADD 

ADD 

ADD 

JSZ TRPA 

ADD 



ILLEGAL ASCII DIGIT TRAP EXIT 

SECOND WORD OF OPCODE 

POP 2 PARAMETERS 

POP THIRD PARAMETER IF SDEC > 1 

CLEAR THE OVERFLOW BIT IN STATUS REGISTER 

ILLEGAL SOURCE LENGTH TRAP 

ILLEGAL ASCII DIGIT TRAP 

NEXT INSTRUCTION 
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RECORD 

NO 

17611 
17612 
17613 
17614 
17615 
17616 
17617 
17618 
17619 
17620 
17622 
17623 
17625 



COBOL II FIRMWARE INSTRUCTION SET - CONVERT NUMERIC DISPLAY 

C.S. *...*.»««•» ALU A «•*•••**••• »•«...*.«.».. /^LU B ••••*•••••••** 

ADDR LAeiL RREQ SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



EXTENDED BOUNDS CHECK (DL-DB) 

Bounds test an effective address that may 
it has failed the DB-S inline bounds test. 
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1253 CEBC 



1254 
1255 



ADD 



UBB DL BNDE 
RH ADD 



8000 RH 
RG UBB 



BNDE 
ADO 



EXTENDED BOUNDS CHECKING FOR DL-DB 

ADD 32K TO THE EFFECTIVE ADDRESS 

BOUNDS TEST EA <» SM, EA >• DL (2527) 

RSB RETURN IF OK W/O S KILL, FIRE UP MEM (2527) 
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RECORD C S. ........... /^LU A ........... ............. alu b .*•.*•••«*»..• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP COMMENT 

17628 .....»..............................................................* 

17629 • • 

17630 • EDIT • 

17631 « * 

17632 • 1. Get 4 valid TOS registers. • 

17633 • 2 Initialize the fill char (' ). float char ('$), loop * 

17634 ' count (0), and significance trigger (off). • 

17635 * 3. If returning from an Interrupt (S ■ 0), then restore * 

17636 * fill char, float char, loop count, and the significance * 

17637 * trigger from the two extra words placed in the interrupt * 

17638 * marSer. * 

17639 * 4. Initialize the target pointers, fetch the first target * 

17640 * word and bounds test. All the target operations will be * 

17641 • performed in ALUB. • 

17642 ' 5. Initialize the source pointers, fetch the first source * 

17643 * word and bounds test All the source operations will be * 

17644 • performed in ALUA. • 

17645 • • 

17646 ..................................................................... 
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RECORD 

NO 

17648 
17650 
17651 
17653 
17654 
17656 
17657 
17658 
17659 
17660 
17661 
17662 
17664 
17665 
17667 
17668 
17670 
17671 
17673 
17674 
17675 
17676 
17677 
17678 
17679 
17681 
17682 
17684 
17685 
17687 
17688 
17690 
17691 
17693 
17694 
17696 
17697 
17699 
17700 
17702 
17703 
17705 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 



C 
ADDR 

1256 

1257 

1258 



1259 
125A 
125B 
125C 



125D 
125E 
125F 
1260 
1261 
1262 
1263 
1264 
1265 



ALU A 
LAI3L RREG SREG F UNC SFNC STOR SPSK 



ADDL 

ADD 

JSB 



RH 
XRO 



ZERO 0024 



RREG SREQ FUNG SFNC STOR SPEC SKIP 
0020 ADDL XRO 

JSLZ ADJS UNC 

ADDL XRl 



RESTORE STACK IF RETURNING FROM AN INTERRUPT 

RB ADD RRZ 
RB ADD 

ADD 

ADD 

INITIALIZE EfOTH SOURCE AND TARGET POINTERS 



CF3A 


RC 


POS 


RC 


SF3A 





RC 




ADD 


LSR 


UBA 


DB 


ADD 




UBA 


DL 


JSBS 


CEBC 


RB 




ADD 


LSR 


UBA 


DB 


/HDD 




UBA 


DL 


JSBS 


CEBC 


RH 




ADO 




RB 




ADD 
ADD 





ROD 




NCRY 


RG 




RH 


ROD 




NCRY 


RG 




RC 


ODD 




CFl 


RF 



UBA 



ADD 


RRZ 


XRl 


POP 


ADD 


LRZ 


XRO 


POP 


JSZ 


PUL2 




UNC 


CAD 




RA 


CLO 


;, OPERANDS, AND FLAGS 


INC 




RG 




JSB 


• +2 




NF5B 


JSBS 


CEBC 




NCRY 


ADD 




RF 


ROD 


JSB 


•+2 




NF5B 


JSBS 


CEBC 




NCRY 


CSR 






HBF2 


ADD 


LRZ 


SP3B 


SFl 


CAD 




RF 





10/ 2/86 9.27 AM 

COMMENT 

NEED 4 TOS REGISTER PARAMETERS 

FILL CHARACTER DEFAULT IS A BLANK 

LOOP COUNT DEFAULT IS ZERO 

ADJUST THE NUMBER OF TOS REGISTERS 

RESTARTED AFTER AN INTERRUPT? 

FLOAT CHARACTER DEFAULT IS A DOLLAR SIGN ($) 



RESTORE LOOP COUNT 

RESTORE FLOAT CHARACTER 

SIGNIFICANCE TRIGGER TRUE OR FALSE? 

RESTORE FILL CHARACTER 

SET SIGNIFICANCE TRIGGER IF TRUE 

FETCH NEXT TWO PARAMETERS 

SET MARKER WORD; CLEAR OVERFLOW 



TARGET RBA/2 

SM+1 FOR INITIAL BOUNDS CHECKING 

TARGET EFFECTIVE ADDRESS 

SKIP BOUNDS TESTING IF SPLIT STACK MODE 

BOUNDS TEST EA >• DL 

BOUNDS TEST SM >- EA 

SOURCE RBA/2 

TARGET OPERATIONS PERFORMED IN ALUB 

SOURCE EFFECTIVE ADDRESS 

SKIP BOUNDS TESTING IF SPLIT STACK MODE 

BOUNDS TEST EA >= DL 

BOUNDS TEST SM >• EA 

SOURCE OPERATIONS PERFORMED IN ALUA 

F2 :» EVEN/ODD TARGET RBA 

EVEN/ODD SOURCE RBA? 

SAVE LEFT TARGET BYTE 

Fl • EVEN/ODD SOURCE BYTE 

SYNCHRONIZE TARGET ADDRESS 
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RECORD C S ......*.».» ALU ^ *>**••«>•«• >•.•••..««.•« ALU B •**••••*•••••• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP COMMENT 

17707 ».*.*..*.».»»..»*.»»*...*....,.......................»*.«.*«»*.».»... 

17708 • * 

17709 * EDI2 ( st art /rest art subprogram from new RBA) * 

17710 • • 

17711 * Set all subprogram pointers, etc for execution of the first • 

17712 * subprogram instruction, or after an interrupt - to * 

17713 • restart execution at the new subprogram RBA. * 

17714 • « 
1771') • EDI4 (next subprogram instruction) * 

17716 • * 

17717 • Decode the next sequential byte of the edit subprogram. • 

17718 • Fetch the next byte and extracts the left nibble for decoding * 

17719 • through a branch table. If the opcode is X17 , then decode * 

17720 • the right nibble for the opcode. * 

17721 * * 
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RECORD 

NO 

17724 
17725 
17726 
17727 
17728 
17729 
17731 
17732 
17733 
17734 
17735 
17736 
17737 
17739 
17740 
17742 
17743 
17745 
17746 
17748 
17749 
17751 
17752 
17754 
17755 
17757 
17758 
17760 
17761 
17763 
17764 
17765 
17766 
17767 
17768 
17769 
17771 
17772 
17774 
17775 
17777 
17778 
17780 
17781 
17783 
17784 
17786 
17787 
17789 
17790 
17792 



COBOL tl FIRMWARE INSTRUCTION SET - EDIT 

C.S. »«»«..*..:»« ALU ft .<,•<,••<,««*« 

ADDR ILABL RREG SRECl FUNC SFNC STOR SPSK 



*••••.*•<.*••• ALU B •»»••••••••■<•• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



* RESTART EDIT SUBPROGRAM AT CURRENT RBA 
1266 1:012 SM ADD RG JSL SPGS 



1267 
1268 
1269 
126A 
126B 
126C 
126D 
126E 
126F 



NEXT SUBPROGRAM INSTRUCTION DECODING 



ADD 

ADD 
OOFO SPlEt ANDL 
UBA ADD LSR 
UBA ADD 
UBA UBB ADD 

ADD 

ADD 

ADD 



0004 
UBB 
UBB 
EDTl 



WRX3 
RAR 



JSB NSPG 

ADDL 

REPC 

CAD 

ADDL LBL 

ADD 

ADD 

ADD 

ADD 



1270 lEDTl 

1271 

1272 

1273 

1274 

1275 

1276 

1277 



LEFT N]:BBLE OPCODE BRANCH TABLE 

EVEN 

UNC 

EVEN 

EVEN 

EVEN 

UNC 

UNC 

EVEN 



SP4A 


JSB 


MC 




JSB 


MN 


SP4A 


JSB 


MN 


SP4A 


JSB 


IC 


SP4A 


JSB 


ICI 




JSB 


SUFT 




JSB 


ICP 


SP4A 


JSB 


IS 



SP4A 


JSB 
ADD 


MA 


SP4A 


JSB 


IC 


SP4A 


JSB 


ICI 


SP4A 


JSB 
ADD 
ADD 


BRS 


SP4A 


JSL 


EDI! 



UNC SM FOR SOURCE/TARGET UPPER BOUND TESTS 
SET UP SUBPROGRAM POINTERS AND FLAGS 



GET SUBPROGRAM BYTE CONTAINING OPCODE 

SHIFT COUNT TO GET OPCODE 

EXTRACT FIRST NIBBLE OPCODE 

REPEAT SHIFTING TO OBTAIN OPCODE 

SHIFT AND SAVE OPCODE 

DONE WHEN REPEAT COUNT IS ZERO 

TABLE INDEX :- FIRST NIBBLE OPCODE/2 

TABLE BASE 

INDEXED TABLE ADDRESS 

TRANSFER TABLE ADDRESS TO RAR 



RANDOM TABLE BRANCH 



MOVE CHARACTERS 

MOVE ALPHABETICS 

MOVE NUMERICS 

MOVE NUMERICS SUPPRESSED 

MOVE NUMERICS WITH FLOATING INSERTION 

INSERT CHARACTER 

INSERT CHARACTER SUPPRESSED 

INSERT CHARACTERS IMMEDIATE 

INSERT CHARACTERS SUPPRESSED IMMEDIATE 

BRANCH IF SIGNIFICANCE TRIGGER IS TRUE 

SUBTRACT FROM TARGET POINTER 

SUBTRACT FROM SOURCE POINTER 

INSERT CHARACTER PUNCTUATION 

INSERT CHARACTER PUNCTUATION SUPPRESSED 

INSERT CHARACTERS DEPENDING ON SIGN 

SECOND NIBBLE OPCODE IF NON OF THE ABOVE 
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RECORD 

NO 

17794 
17795 
17796 
17797 
17798 
17799 
17800 
17801 
17802 
17803 
17804 
17805 
17806 
17807 
17808 
17810 
17811 
17813 
17814 
17816 
17817 
17819 
17820 
17822 
17823 
17825 
17826 
17828 
17829 
17831 
17832 
17834 
17835 
17837 
17838 
17840 
17841 
17842 
17843 
17845 
17846 
17848 
17849 
17851 
17852 
17854 
17855 
17857 
17858 
17859 
17861 
17862 
17863 



COBOL II FIRNWARE INSTRUCTION SET - EDIT 
C.S. ».,«.«..... /^LU A «««••»••••• 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



SPGS (Subprogram setup) 



• •••.*•*.•><,< ALU B ••«•*•»••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 
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1278 
1279 
127A 
127B 
127C 
127D 
127E 
127F 
1280 
1281 
1282 

1283 
1284 
1285 
1286 
1287 

1288 



Sets up the subprogram pointers to point to the first byte 
in the EDIT subprogram which may be either PB or DB relative, 

NSPG (Next subprogram Instruction) 

Fetchs the next subprogram instruction byte and increments 
the subprogram pointers. 



UBB 
UBA 

RH 
RD 
UBA 
UBA 

RH 
RE 



CIR 
PB 
PB 
PB 



JSB *+5 

ADD 

UBNE 

ADD 

ADD 

ADD LSR 

ADD 

JSBS CEBC 

ADD 

ADD 

ADD 



XR3 
XRl 



XR3 
XRl 



INC 
XRl INC 
SREG ADD 
CIR ADD 
XR3 BNDE 

XR3 BNDE 



RD 
XRl 

RH 



ROD 

NCRY 



R0B3 
ROD 



ODD 
R0B3 



EVEN 
RSB 



RD 




ADD LSR 




BNKP 


ADD 


PL 


UBA 


UBNE 


PL 




ADD 
ADD 




BNKD 


ADD 

JSB •+2 


RG 


UBA 


JSBS CEBC 
ADD 


RG 




ADD 
ADD 



NF5B 
NCRY 



RD ADD 

OPB ADD RRZ SPIB 

OPB ADD LRZ SP18 

XR3 ADD 

UBB RH BNDE 

RREG RH BNDE 



PB/DB SUBPROGRAM? 

SUBPROGRAM RBA/2 ; SAVE RETURN ADDRESS 

PB RELATIVE EFFECTIVE ADDRESS 

PB RELATIVE BANK 

BOUNDS TEST EA >« PB 

BOUNDS TEST PL >• EA ; RESTORE RETURN ADDRESS 

SUBPROGRAM LOWER LIMIT 

SUBPROGRAM UPPER LIMIT 

FETCH FROM PB RELATIVE EFFECTIVE ADDRESS 

RETURN 

SUBPROGRAM RBA/2 

DB RELATIVE BANK 

DB RELATIVE EFFECTIVE ADDRESS 

SKIP BOUNDS TESTING IF SPLIT STACK MODE 

BOUNDS TEST EA >■ DL 

BOUNDS TEST SM >» EA 

SUBPROGRAM LOWER LIMIT 

RESTORE RETURN ADDRESS 

SAVE SUBPROGRAM ADDRESS AND FETCH BYTE 

SUBPROGRAM UPPER LIMIT 

REFETCH SOURCE WORD 

RETURN 



INCREMENT SUBPROGRAM RBA; LEFT/RIGHT BYTE? 

LEFT/RIGHT SUBPROGRAM BYTE? 

FETCH NEXT SUBPROGRAM INSTRUCTION 

RIGHT SUBPROGRAM BYTE; RETURN 

SUBPROGRAM EFFECTIVE ADDRESS 

LEFT SUBPROGRAM BYTE 

PB/DB SUBPROGRAM? 

SUBPROGRAM UPPER LIMIT 

BOUNDS TEST LOWER LIMIT 

BOUNDS TEST UPPER LIMIT 

REMOVE TICB OF 2522 (2526) 

BOUNDS TEST LOWER PB LIMIT 

BOUNDS TEST UPPER PB LIMIT 

ALSO REMOVED RSB OF 2522 TO NEXT LINE (2526) 

RETURN MORE SLOWLY THAN BEFORE.. (2526) 
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COBOL 1 


RECORD 


C.S 


NO 


ADDR I. 


17866 




17867 




17868 




17869 




17870 




17871 




17872 




17873 




17874 




17875 




17876 




17877 




17878 




17879 




17880 


128A N 


17882 




17883 


128B 


17885 




17886 


128C 


17888 




17889 


128D 


17891 




17892 


128E 


17894 




17895 


128F 


17897 




17898 


1290 


17900 





COBOL II FIRMWARE INSTRUCTION SET - EDIT 
-...*....•. ALU fi^ •...*.•*».. 

lABL RREG SREQ FUNC SFNC STOR SPSK 



«*<,..**>•.... ALU B ••.....*•*•••• 

RREG SREG FUNC SFNC STOR SPEC SHIP COMMENT 



10/ 2/86 9:27 AM 



MC (Move Characters) 

1. Extract the immediate operand count from the right nibble 
of the Inst rue t ion . 

2. It the Immediate operand count is zero, then fetch the 
extended operand count in the next subprogram instruction 
byte . 

3. Move count bytes from the source to the target. 

4. Next subprogram instruction. 



ADD 

ADD 

ADD 

ADD UBB JSL EDI3 ZERO 

ADD JSL NSRC UHC 

ADD JSL NTRG UHC 

JSB *-3 U1 



GOOF 


SPIB 


ANDL 






UBB 


JSL 


NSPG 




SPIB 


ADD 






UBB 


JSL 


EDI3 






JSL 


NSRC 






JSL 


NTRG 


FFFF 


SPIB 


ADDL 





IMMEDIATE OPERAND COUNT 

EXTENDED OPERAND COUNT 

NUMBER OF CHARACTERS TO MOVE 

LOOP UNTIL COUNT - 

FETCH NEXT SOURCE BYTE 

STORE NEXT TARGET BYTE 
NEXT ITERATION 
DECREMENT THE COUNT 
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RECORD 

NO 

17902 
17903 
17904 
17905 
17906 
17907 
17908 
17909 
17910 
17911 
17912 
17913 
17914 
17915 
17916 
17917 
17918 
17919 
17921 
17922 
17924 
17925 
17927 
17928 
17930 
17931 
17933 
17934 
17936 
17937 
17939 
17940 
179 42 
17S41 
17945 
17946 
17948 
17949 
17951 
17952 
17954 
17955 
17957 



COBOL 

C.S 

ADDR 



II F 
LABL 



IRMWARE INSTRUCTION SET - EDIT 

«*.*..****• ALU A •••*•»••••• 
RREG SREG FUNC SFNC STOR SPSK 



*•.*...*..«.« ALU e *•*•*•«••••»«» 

RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



10/ 2/86 9:27 AM 



1291 
1292 
1293 
1294 

1295 
1296 
1297 
1298 
1299 
129A 
1298 
129C 
129D 



kJklk*A**A)k# 



MA (Move Alphabetic:) 

1 Extract immediate operand count from the right nibble of 
t he ins t rue t ion . 

2. If the immediate operand count is zero, then fetch the 
extended operand count in the next subprogram instruction 
byte . 

3. Move count bvtes from the source to the target, checking 
that each byte is a valid uppercase letter, lowercase 
letter, or blank. If an invalid character is found, then 
an illegal ascii digit trap is signaled. 

4. Next subprogram instruction. 



0020 




ADDL 

ADD 

ADD 

ADD 

ADD 


0041 




ADDL 


RH 


UBA 


SUB 


0061 




ADDL 


RH 


UBA 


SUB 


SPOA 


RH 


JSBS 
ADD 
JSB 
ADD 



OOOF 


SPIB 


ANDL 






UBB 


JSL 


NSPG 




SPIB 


ADD 






UBB 


JSL 


EDI3 






JSL 


NSRC 


005A 




ADDL 




UBB 


RH 


JSBS 


•+4 


007A 




ADDL 




UBB 


RH 


JSBS 
ADD 


•+2 






JSL 


NTRG 


FFFF 


SPIB 


ADDL 








JSL 


ETRP 



ZERO 
UNC 



TICB 



BLANK FOR COMPARISON 
IMMEDIATE OPERAND COUNT 

EXTENDED OPERAND COUNT 

NUMBER OF ALPHABETICS TO MOVE 

LOOP UNTIL COUNT - 

FETCH NEXT SOURCE BYTE 

"A" FOR UPPERCASE RANGE TEST 

"Z" FOR LOWERCASE RANGE TEST 

RANGE TEST CHAR >• "A" 

RANGE TEST "Z" >» CHAR 

"a" FOR UPPERCASE RANGE TEST 

"z" FOR LOWERCASE RANGE TEST 

RANGE TEST CHAR >• "a" 

RANGE TEST "z" >« CHAR 

BLANKS ARE ALSO CONSIDERED ALPHABETIC 



STORE NEXT TARGET BYTE 
NEXT ITERATION 
DECREMENT COUNT 

INVALID ASCII DIGIT TRAP 



PAGE 363 COBOL II FIRMWARE INSTRUCTION SET - EDIT 10/ 2/86 9:27 AM 

RECORD C S **«««.»..*. ALU ^ <,<,•••••<,•.« .*>,••.••••*.• ^m g <,•*••>*...•>,.• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

17959 «»*•««**««««**««*•••««••««»«»«««««»«««•«.««*»«««•.«*••***«»««.«.•»*•» 

17960 * • 

17961 • MN/MNS/MF'L * 

17962 • (Move Numerics, • 

17963 • Move Numerics Suppressed, * 

17964 * Move with FLoating inse.tion) * 

17965 * • 

17966 • 1. Exfract the immediate operand count from right nibble of * 

17967 * the instruction. • 

17968 * 2. If the immediate operand count is zero, then fetch the • 

17969 • extended operand count in the next subprogram instruction * 

17970 • byte • 

17971 • 3. If the significance trigger is on, then sKip to step ???. * 

17972 » 4. Move leading blanks from the source to the target with • 

17973 • zero filling if Move Numerics, or filling by the fill char • 

17974 » if Move Numerics Suppressed or Move with FLoating ' 

17975 • insertion. • 

17976 • 5. Move leading zeros from the source to the target, with * 

17977 • filling by the fill char if Move Numerics Suppressed or * 

17978 • Move with FLoating Insertion. * 

17979 * 6. Insert the float char if Move with FLoating insertion. * 

17980 • • 

17981 »«»»«««»«»..«»«».«««*««»«»«.««•.««««»«««.««•*«««««.«««««..«•*..*««««« 



PAGE 364 


COBOL 


II 


FIRMWARE INSTRUCTION 


SET - 


.f?JI 












RECORD 


C S. 




* * * * j 


k A * * * 


•• ALU A • 


*****) 




• •**i 


«••***•** ALU B 


••••*«* 


******* 


NO 


ADDR 


LABL RREG 


SREG 


FUNC SFNC 


STOR 


SPSK 


RREG 


SREG FUNC 


SFNC 


STOR SPEC SKIP 


17983 




SNOWARN 




















17984 


129E 


MN 


0020 




ADDL 


XR5 




GOOF 


SPIB ANDL 




SPIB 




17986 


























17987 


129F 




0030 




ADDL 


XR6 






UBB JSL 


NSPQ 




ZERO 


17989 


























17990 


12A0 








ADD 








SPIB ADD 








17992 


























17993 


12A1 








JSB MNl 




F3A 




UBB JSL 


EDI3 




ZERO 


17995 


























17996 


12A2 








ADD 








JSL 


NSRC 




UNC 


17998 


























17999 


12A3 




RH 


XR5 


JSBS *+6 




NZRO 


RA 


SP4A ADD 


LSR 




EVEN 


18001 


























18002 


12A4 






XR6 


ADD 


RH 






XRO ADO 




RH 




18004 


























18005 


12A5 








ADD 








JSL 


NTRQ 




UNC 


18007 


























18008 


12A6 








JSB »-5 




UNC 


FFFF 


SPIB ADDL 




SPIB 




18010 


























18011 


12A7 








ADD 








UBB JSL 


EDI3 




ZERO 


18013 


























18014 


12A8 








ADD 








JSL 


NSRC 




UNC 


18016 


























18017 


12A9 




RH 


XR6 


JSBS ''*A 




NZRO 


RA 


SP4A ADD 


LSR 




EVEN 


18019 


























18020 


12AA 








ADD 








XRO ADD 




RH 




18022 


























18023 


12AB 








ADD 








JSL 


NTRQ 




UNC 


18025 


























18026 


12 AC 








JSB *-5 




UNC 


FFFF 


SPIB ADDL 




SPIB 




18028 


























18029 


12AD 




0004 




ADDL 








ADD 








18031 


























18032 


12AE 




UBA 


SP4A 


JSBS *+6 




NZRO 




ADD 








18034 


























18035 


12AF 




RH 




ADD 


SPOA 






XRl ADD 




RH 




18037 


























18038 


12B0 








ADD 








JSL 


NTRG 




UNC 


18040 


























18041 


1281 




SPOA 




ADD 


RH 






JSB 


<+3 




UNC 


18043 


























18044 




SWARN 





















10/ 2/86 9:27 AM 



BLANK FOR LEADING TEST 
IMMEDIATE OPERAND COUNT 
ZERO FOR LEADING TEST 
EXTEND OPERAND COUNT 

NUMBER OF NUMERICS TO MOVE 
SIGNIFICANCE TRIGGER ALREADY SET? 
LOOP UNTIL COUNT « 

FETCH NEXT SOURCE BYTE 

LEADING BLANK? 

SUPPRESSED? 

ZERO FILL LEADING BLANK FOR MOVE-NUMERICS 

USE THE FILL CHARACTER IF SUPPRESSED 

STORE NEXT TARGET BYTE 
NEXT ITERATION 
DECREMENT COUNT 

LOOP UNTIL COUNT « 

FETCH NEXT SOURCE BYTE 
LEADING ZERO? 
SUPPRESSED? 

USE FILL CHARACTER IF SUPPRESSED 

STORE NEXT TARGET BYTE 
NEXT ITERATION 
DECREMENT COUNT 
MFL OPCODE 

MFL? 

SAVE SOURCE CHARACTER 
FLOAT CHARACTER 

STORE FLOATING CHARACTER AT NEXT TARGET BYTE 
RESTORE SOURCE CHARACTER 
CONTINUE TRANSFER 
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RECORD 

NO 

18046 
18047 
18048 
18049 
18050 
18051 
18052 
18053 
18054 
18055 
18056 
18057 
18058 
18060 
18061 
18063 
18064 
18066 
18067 
18069 
18070 
18072 
18073 
18075 
18076 
18078 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 
C S. .......».„* ^Lu fi^ •>«..«,«.... 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



MN/MNS/MFl. (continued) 



•"*•••*•«•"•• ALU B •••«•«••••••** 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



12B2 
12B3 
12B4 
12B5 
12B6 
12B7 
12B8 



Move the remaining bytes from the source to the target 
validatinq each ascii digit. Signal an illegal ascii digit 
trap if tfie byte is not in the range ('0'->'9'). Set the 
significance trigger since a non-blank character has been 
encountered in the source. 



ADD 

ADD 

ADD 

JSBS *+3 

ADD 

JSB *-5 

ADD 



UBB JSL EDI3 

JSL NSRC 
SF3A 0039 ADDL 

NCRY UBB RH JSBS '+3 

JSL NTRG 
UNC FFFF SPIB ADDL SPIB 

JSL ETRP 



LOOP UNTIL COUNT » 

FETCH NEXT SOURCE BYTE 
SET SIGNIFICANCE TRIGGER 
"9" FOR COMPARISON TEST 
NUMERIC RANGE TEST CHAR >= "O" 
NUMERIC RANGE TEST "9" >. CHAR 

STORE NEXT TARGET BYTE 
NEXT ITERATION 
DECREMENT COUNT 

INVALID ASCII DIGIT TRAP 



PAQE 366 

RECORD 

NO 

18080 
18081 
18082 
18083 
18084 
18085 
18086 
18087 
18088 
18089 
18090 
18091 
18092 
18093 
18094 
18095 
18096 
18097 
18099 
18100 
18102 
18103 
18105 
18106 
18108 
18109 
18111 
18112 
18114 
18115 
18117 
18118 
18120 
18121 
18123 
18124 
18126 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 

Q S *********** /^|_(j f^ *********** «••••••«••*•* ^|_y g ********t**ititii 

AODR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

*A)iiiii«««AA*«lkft«AlkikiklkAlkAlk«**AA*A*«*«*)kaik*«*ft*****lk*ftlk***Aft**ft**lk««ik« 

* IC/ICS (Insert Character / Insert Character Suppressed) 

* 1. Extract the immediate operand count from the right nibble 

* of the instruction byte. 

* 2. If the immediate operand count it zero, then fetch the 

* extended operand count in the next subprogram instruction 

* byte. 

* 3. Fetch the insertion character from the next subprogram 

* instruction byte. If the significance trigger 

* is off and the instruction is Insert Character Suppressed, 

* then use the fill character as the insertion character. 
Move the insertion character to the target count times. 



10/ 2/86 9:27 AM 



1289 
12BA 
12BB 
12BC 
12BD 
126E 
12BF 
12C0 
12C1 
12C2 



IC 



4 
***** 



ADD 
ADD 
ADD 
ADD 

SP4A JSB 
ADD 

SPIB ADD 
ADD 
ADD 
JSB 



RH 





*************************** 


>•••••• 




OOOF 


SPIB 


ANDL 


SPIB 








UBB 


JSL 


NSPQ 


ZERO 






SPIB 


ADD 


SP2B 










JSL 


NSPQ 


UNC 


ODD 




XRO 


ADD 


RH 




NFS A 




SP2B 


ADD 
ADD 










UBB 


JSL 


EDI3 


ZERO 








JSL 


NTRG 


UNC 


UNC 


FFFF 


SP2B 


ADDL 


SP2B 





IMMEDIATE OPERAND COUNT 

EXTENDED OPERAND COUNT 

NUMBER OF CHARACTERS TO INSERT 

FETCH INSERT CHARACTER 

INSERT CHARACTER SUPPRESSED (IC/ICS)? 

FILL CHARACTER FOR ICS 

USE FILL CHARACTER IF SIG. TRIGGER IS 

USE INSERT CHARACTER 
LOOP COUNT 

LOOP UNTIL COUNT • 

STORE NEXT TARGET BYTE 
NEXT ITERATION 
DECREMENT COUNT 
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RECORD 

NO 

18128 
18129 
18130 
18131 
18132 
18133 
18134 
18135 
18136 
18137 
18138 
18139 
18140 
18141 
18142 
18143 
18144 
18145 
18146 
18148 
18149 
18151 
18152 
18154 
18155 
18157 
18158 
18160 
18161 
18163 
18164 
18166 
18167 
18169 
18170 
18172 
18173 
18175 



COBOL 

C.S. 

ADDR 



II F 
LABL 



12C3 
1204 
12C5 
12C6 
12C7 
12C8 
12C9 
12CA 
12CB 
12CC 



IRMWARE INSTRUCTION SET - EDIT 
..«•<,»<...•>. ALU A ««•<«•*«•«« 
RREQ SREQ l-UNC SFNC STOR SPSK 



ICI/ICSI 



••••***•*»"*• ALU B •«**' 
RREG SREG FUNC SFNC STOR 



10/ 2/86 9:27 AM 



SPEC SKIP COMMENT 



(Imsert Characters Immediate, 
Iinsert Characters Suppressed Immediate) 

1. Extract the immediate operand count from the right nibble 
of the instruction byte. 

2. If the immediate operand count is zero, then fetch the 
extended operand count in the next subprogram instruction 
byte . 

3. Move this next count bytes from the subprogram to the 
target. If Insert Characters Suppressed immediate and 
the significance trigger is off, then use the fill 
character for each byte to be moved. 



ADD 
ADD 
ADD 
ADD 
ADD 

SP4A JSB 
ADD 

SPIB ADD 
ADD 
JSB 





OOOF 


SPIB 


ANDL 




SPIB 








UBB 


JSL 


NSPQ 




ZERO 






SPIB 


ADD 




SP2B 








UBB 


JSL 
JSL 


EDI3 
NSPQ 




ZERO 
UNC 


ODD 




XRO 


ADD 




RH 




NF3A 






ADD 
ADD 
JSL 


NTRG 




UNC 


UNC 


FFFF 


SP2B 


ADDL 




SP2B 





IMMEDIATE OPERAND COUNT 

EXTENDED OPERAND COUNT 

NUMBER OF CHARACTERS TO INSERT 

LOOP UNTIL COUNT « 

FETCH NEXT SUBPROGRAM IMMEDIATE BYTE 
INSERT CHARACTER SUPPRESSED IMMEDIATE? 
FILL CHARACTER FOR ICSI 
USE FILL CHAR IF SIG. TRIGGER IS 

USE INSERT IhMEDIATE CHARACTER 



STORE NEXT TARGET BYTE 
NEXT ITERATION 
DECREMENT COUNT 



PAGE 36 S 

RECORD 

NO 

18177 
18178 
18179 
18180 
18181 
18182 
18183 
18184 
18185 
18186 
18187 
18188 
18189 
18190 
18191 
18192 
18193 
18194 
18196 
18197 
18199 
18200 
18202 
18203 
18205 
18206 
18208 
18209 
18211 
18212 
18214 
18215 
18217 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 
C S .«««»..».»» ALU A *•*••••«••» 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



«•....*«.*... ALU B •••••••••••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



6RS (BRanch If Significance trigger is set) 

1. Extract the iminediate operand displacement from the right 
nibble of the instruction byte. 

2. If the inmediate operand displacement is zero, then fetch 
the extended operand displacment in the next subprogram 
ins t ruction byte . 

3. If the significance trlager is not set, then do the 
next subprogram instruction. 

4. Determine the sign of the displacement and either add or 
subtract the displacement to or from the subprogram RBA. 

5. Restart the subprogram at the new subprogram RBA. 



12CD BRS 

12CE 

12CF 

12D0 

12D1 

12D2 

12D3 

12D4 



RD 
USA 



ADDL 
ADD 
ADD 
JSB 
ADD 
CAD 
SP18 ADD 
ADD 



RD 



OOOF SPIB ANDL SPIB 

UBB JSL NSPQ 

SPIB ADD 

UBB SP4A AND 

FFOO SPIB lORL SPIB 

ADD 

JSL EDI6 
JSL ED13 



UNO 
UNC 



COMMENT 



DISPLACEMENT SIGN MASK 
IMMEDIATE DISPLACEMENT OPERAND 

EXTENDED DISPLACEMENT OPERAND 

DISPLACEMENT OPERAND 
SIGNIFICANCE TRIGGER? 
POSITIVE/NEGATIVE DISPLACEMENT 

EXTEND SIGN BITS IF NEGATIVE 
OLD SUBPROGRAM RBA 

NEW SUBPROGRAM RBA 

RESTART SUBPROGRAM AT NEW RBA 

NEXT SUBPROGRAM INSTRUCTION 
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RECORD 


NO 


18219 


18220 


18221 


18222 


18223 


18224 


18225 


18226 


18227 


18228 


18229 


18230 


18231 


18232 


18233 


18234 


18235 


18236 


18237 


18238 


18239 


18240 


18241 


18242 


18243 


18244 


18245 


18246 


18247 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 10/ 2/86 9 27 AM 

C.S. ........... ftLU A ........... ............. ALU B .«.««••«....«. 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

SUFS/SUFT 

* (subtract From Source pointer, • 

* subtract From Target pointer) * 

* 1. Extract the immediate operand displacement f i-om the right * 
' nibble of the instruction byte. « 

* 2. If the immediate operand displacement is zero, then fetch * 

* the extended operand displacment in the next subprogram * 

* instruction. . 

* 3. If the extended displacement operand is zero, then do * 

* the next subprogram instruction. • 

* 4. Use SM+1 for upper stack limit to delay bounds testing at • 

* SM until the word is actually fetched or stored. • 

* 5. Determine the sign of the displacement and extend the « 

* sign bit s . « 

* SUFT (continued here) « 

* 6. Write the current target word and bounds test to flush • 

* the left bvte from the buffer if needed. * 

* 7. Subtract the signed displacement from the target pointer * 

* 8. Compute the new target effective address, bounds test, and * 
" set the flags for target operations to be performed in ALUB.* 

* 9. Next subprogram instruction. • 
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RECORD 

NO 

18249 
18251 
18252 
18254 
18255 
18257 
18258 
18260 
18261 
18263 
18Z64 
18266 
18267 
18269 
18270 
18272 
18273 
18275 
18276 
18278 
18279 
1S.:81 
182P2 
18284 
18285 
18287 
18288 
18290 
18291 
18293 
18294 
18296 



COBOL 
C S. 
ADDR 

12D5 

12D6 

12D7 

12D8 

12D9 

12DA 

12DB 

12DC 

12DD 

12DE 

12DF 

12E0 

12E1 

12E2 

12E3 

12E4 



II FIRMi/ARE INSTRUCTION SET - EDIT 
LABL RREQ SREQ FUNC SFNC STOR SPSK 



SUFT 0080 ADDL 
SP4A ADD 
ADD 
SM INC 
SPOA JSB SUFS 

JSB "+4 
RG UBB BNDG 
UBB ADD RLZ 

ADD 
RC SPIB SUB LSR 
UBA DB ADD 
UBA DL JSBS CEBC 
RE ADD 
RH CAD 
XRl ADD 
SM ADD 



SP4A 
SPOA 



SPSK 


RREG 


SREQ 


FUNC 


SFNC 




GOOF 


SPIB 


ANDL 








UBB 


JSL 


NSPQ 






SPIB 


JSL 


EDI3 




UBB 


SP4A 


AND 




ODD 


FFOO 


SPIB 


lORL 




NF2 


RF 
SP3B 




INC 
ADD 








0P8 


ADD 


RRZ 




UBA 


UBB 


lOR 






RC 


SPIB 


SUB 




ROD 






JSBI 


*+2 


NCRY 


RG 


UBA 


JSBS 


CEBC 


ROD 


RH 
RC 




ADD 
CSR 




R0B3 




OPB 


ADD 
JSL 


LRZ 
EDI3 



ZERO 
ZERO 
ZERO 



NF5B 
NCRY 



ROD 
HBF2 



SP3B 



10/ 2/86 9:27 AM 

comtm 

DISPLACEMENT SIGN MASK 
IMMEDIATE DISPLACEMENT OPERAND 
SAVE SUBINSTRUCTION 
EXTENDED DISPLACEMENT OPERAND 

DISPLACEMENT OPERAND; DO NOTHING IF ZERO 

USE SM+1 TO TEST NEW RBAS BEFORE USAGE 

POSITIVE/NEGATIVE DISPLACEMENT? 

SUFT/SUFS? 

EXTEND DISPLACEMENT SIGN BITS IF NEGATIVE 

FINISH WRITING TARGET WORD IF LEFT BYTE 

FETCH CURRENT TARGET WORD 

BOUNDS TEST TARGET WORD < SM+1 

LAST TARGET BYTE 

LEFT BYTE 

OLD RIGHT BYTE 

WRITE TARGET WORD 

NEW TARGET RBA/2 

NEW TARGET R6A 

NEW TARGET EFFECTIVE ADDRESS 

SKIP BOUNDS TEST IF SPLIT STACK 

BOUNDS TEST EA >• DL 

BOUNDS TEST SM >« EA 

REFETCH SOURCE OPERAND 

FETCH TARGET OPERAND 

SYNCHRONIZE TARGET OPERATIONS 

F2 <- EVEN/ODD SOURCE RBA 

REFETCH TARGET OPERAND 

SAVE LEFT BYTE OF TARGET WORD 

RESTORE SM FOR SOURCE/TARGET UPPER BOUND 

NEXT SUBPROGRAM INSTRUCTION 
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RECORD 

NO 

18298 
18299 
18300 
18301 
18302 
18303 
18304 
18305 
18306 
18307 
18308 
18309 
18310 
18311 
18313 
18314 
18316 
18317 
18319 
18320 
18322 
18323 
18325 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 
C.S. .....«»»(,.« ALU A •«•«•«•«••« 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



SUES (continued here) 



12E5 
12E6 
12E7 
12E8 
12E9 



• •«,*. ••**••*• ALU B »«<.«.«»*«*««i>« 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



6. Subtr 
point 

7. Compu 
and s 



8. 



act the signed displacement fro the source RBA 

er . 

te the new source effective address, bounds test 

et the flags for the source operations to be 
erformed in ALUA . 
ext subprogram instruction. 



-S RB SPIB SUB LSR 

UBA DB ADD 

UBA DL JSBS CEBC 

RB ADD 

SM ADD 



ROD JSB •+2 

NCRY RG UBA JSBS CEBC 



NEW SOURCE RBA/2 

NEW SOURCE RBA 

NEW SOURCE EFFECTIVE ADDRESS 

SKIP BOUNDS TESTS IF SPLIT STACK MODE 

BOUNDS TEST EA >- DL 

BOUNDS TEST SM >- EA 

EVEN / ODD SOURCE RBA? 

Fl <- ODD SOURCE RBA DEFAULT 

Fl <- EVEN SOURCE RBA; RESTORE SM LIMIT 

NEXT SUBPROGRAM INSTRUCTION 
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COBOL II 1 


RECORD 


C S. 


NO 


ADDR LABI 


18327 


... 


18328 




18329 




18330 




18331 




18332 




18333 




18334 




18335 




18336 




18337 




18338 




18339 




18340 




18341 




18342 




18343 


... 


18344 




18345 


12EA ICP 


18347 




18348 


12EB 


18350 




18351 


12EC 


18353 




18354 


12ED 


18356 




18357 


12EE 


18359 




18360 


12EF 


18362 





COBOL II FIRMWARE INSTRUCTION SET - EDIT 10/ 2/86 9:27 AM 

' ' ALU A •*««*.•*»•* ............. ALU B .............. 

LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COfWENT 

ICP/ICPS * 

(Insert Character Punctuation, * 

Insert Character Punctuation Suppressed) * 

1. Extract the immediate operand character from the right * 
nibble of the subprogram instruction. * 

2. The character to be inserted is obtained by adding %40 ' 
to the immediate operand • 

3. If the instruction is Insert Character Punctuation • 
Suppressed and the significance trigger is false, then * 
the character to be inserted is the fill char * 

4 Store the insert character in the next target byte. * 

5. Next subprogram instruction. • 

ADD 

IMMEDIATE INSERT CHARACTER OPERAND 

SP4A JSB '+2 EVEN 0020 U8B ADDL SPIB INSERT CHARACTER PUNCTUATION SUPPRESSED? 

ADD A BLANK TO THE INSERT CHARACTER 

ADD NF3A XRO ADD RH USE THE FILL CHARACTER IF SUPPRESSED 





OOOF 


SPIB 


ANDL 


EVEN 


0020 


U8B 


ADDL 


NF3A 




XRO 


ADD 

ADD 

JSL NTRG 

JSL EDI3 



FOR ICPS USE THE FILL CHARACTER DEFAULT 
SPIB ADD RH ADD USE THE INSERT CHARACTER 



ADD JSL NTRG UNC 

ADD JSL EDI3 UNC 



STORE THE NEXT TARGET BYTE 
NEXT SUBPROGRAM INSTRUCTION 
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RECORD 

NO 

18364 
18365 
18366 
18367 
18368 
18369 
18370 
18371 
18372 
18373 
18374 
18375 
18376 
18377 
18378 
18379 
18380 
18381 
18382 
18383 
18384 
18386 
18387 
18389 
18390 
18392 
18393 
18395 
18396 
18398 
18399 
18401 
18402 
18404 
18405 
18407 
18408 
18410 
18411 
18413 
18414 
18416 
18417 
18419 
18420 
18422 
18423 
18425 
18426 
18428 
18429 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 
C.S. .*.......*(, ALU A «••«•««•«•• 

ADDR LABL RREG SREG fUNC SFNC STOR SPSK 



...».•.•<,•<,«. ALU B •••••••••»«••» 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



IS (Insert characters depending on Sign) 



1. 



Extract the immediate operand count from the right nibble 

of the instruction byte. 

If the count is zero, then next subprogram instruction. 

If the condition code is CCG or CCE , then move the next 

count characters from the subprogram to the target and 

add the count to the subprogram RBA to skip the second 

string m the subprogram. Restart the subprogram at the 

new subprogram RBA. 

If the condition code is CCL, then add the count to the 

subprogram RBA to skip over the first string in the 

subprogram and move tne next count subprogram characters 

to the 11 arget . 

Next subprogram instruction. 



12F0 IS 

12F1 

12F2 

12F3 

12F4 

12F5 

12F6 

12F7 

12F8 

12F9 

12FA 

12FB 

12FC 

12FD 

12FE 

12FF 



0100 STA ANDL 

UBB ADD 

SPOA JSB 

ADD 

ADD 

ADD 

JSB 

RD SP4A ADD 

RD SP4A ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

JSB 

ADD 



SPOA 
SP4A 



RD 
RD 



OOOF 


SPIB 


ANDL 




SP2B 




UBB 


JSL 


EDI 3 






UBB 


JSB 
JSL 


• +5 
NSPG 






SPIB 


ADD 
JSL 


NTRG 


RH 


FFFF 


SP2B 
SP2B 


ADDL 
JSL 
JSL 
ADD 


EDI$ 
SPGS 


SP2B 




UBB 


JSL 
JSL 


EDI3 
NSPG 






SPIB 


ADD 
JSL 


NTRG 


RH 


FFFF 


SP2B 


ADDL 
ADD 




SP2B 



ZERO 
ZERO 
UNC 



ZERO 
ZERO 



ZERO 
UNC 



CCL OR CCG/CCE? 
IMMEDIATE OPERAND COUNT 
SAVE COUNT 

DONE IF COUNT IS ZERO 
POSITIVE OR NEGATIVE? 
DONE WHEN COUNT = 

FETCH NEXT SOURCE BYTE 

TRANSFER SUBPROGRAM BYTE TO TARGET 

WRITE NEXT TARGET WORD 

NEXT ITERATION 

DECREMENT COUNT 

SKIP SECOND OPERAND STRING 

START AT NEW SUBPROGRAM RBA 

SKIP FIRST OPERAND STRING 

UPDATE THE SUBPROGRAM POINTERS 

COUNT 

DONE WHEN COUNT » 

FETCH NEXT SUBPROGRAM BYTE 

TRANSFER SUBPROGRAM BYTE TO TARGET 

STORE NEXT TARGET BYTE 
NEXT ITERATION 
DECREMENT COUNT 
NOP to keep system happy 
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RECORD 


C S. 


NO 


ADDR 


18432 




18433 




18434 




18435 




18436 




18437 




18438 




18439 




18440 


1300 


18442 


1301 


18444 


1302 


18446 




18447 




18448 




18449 




18450 




18451 




18452 




18453 


1303 


18455 


1304 


18457 


1305 



Duplicate Instructions 10/ 2/86 9:27 AM 

»*•**•••••• ALU A *•••*»•*»•« «••«««•»««««• >^LU B •••••••••••*•» 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

■ Duplicate A (DUP) Instruction * 

%1300 

SLUT INSTR.DUP:0 000 100 101 xxx xxx, SR«1. ENTRY-DUP 

DUP ADD JSZ PSHM SR7 ; JSB to empty RG if SR = 7 

ADD EPSH RA ADD RH CCA l^ush 1; New (S) :■ (S) 

ADD NEXT ADD NEXT; 

* DDUP (Double duplicate) Instruction * 

SLUT INSTR>DDUP:0 000 100 110 xxx xxx, SR-2. ENTRY-ODUP 

DDUP JSZ PSHM SRG5 JSZ PSM2 SR7 Empty 2 TOS if SR - 7 else empty 1 if SR = 

ADD EPSH RB ADD RH CCA Push, New (S-1) :• (S-1), CCA 

JSZ NEXT EPSH RA ADD RQ DCC JSB for NEXT, push 1; New (S) :- (S), DCC 
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RECORD 

NO 

18460 
18461 
18462 
18463 
184B4 
18465 
18466 
18467 
18468 
18469 
18470 
18471 
18472 
1B473 
18474 
1847') 
18476 
18477 
18478 
18479 
18480 
18481 
18482 
18483 
18484 
18485 
18486 
18487 
18488 
18489 
18490 
18491 
18493 
18494 
18496 
18497 
18499 
18500 
18502 
18503 
18504 
18505 
18507 
18508 
18510 
18511 
18513 
18514 
18515 
18517 
18519 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 

OS. ..*«»•«(,•*« ALU A ••••••••««« .•«««.«•**«•« ALU B ••«*•••••«•*»• 

ADDR lABL RREQ SREQ FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



NSRC (fetch Next SouRCe byte) 

1. Extract the left byte from the current source word and 
increment the source RBA . Bounds test the source 
effective address. 

2. If the right byte flag is off then set the right byte 
flag on and return. 

3. Extract the right byte from the current source word, 
bounds test the source effective address, and clear the 
right byte flag. 

4. Increment the source effective address and fetch. 
5 . Return . 

NTRG (store Next TaRGet byte) 

target RBA and save the byte in case it is 

byte flag is off, then set the right byte 



10/ 2/86 9:27 AM 



Increment the 
the left byte 
If the right 
flag and ret u 
Increment the 
byte that was 
store the nex 
Bounds test t 
byte flag. 
Return . 



target effective address, combine the left 
previously saved with the right byte and 

t target word . 

he target effective address, clear the right 



1306 NSRC 

1307 RB 
1308 

1309 RE 

130A HTRG RC 

i30B 

130C RF 



130D 
130E 



RG 



OPA ADD 

INC 

OPA ADD 

INC 

INC 
ADD 
INC 



UBA BNDE 
ADD 



LRZ RH 
RB 

RR2 RH 
RE 



BNDE 
ADD 
BNDE 
ADD 



RSB SP3B 



EXTRACT LEFT SOURCE BYTE 

LEFT OR RIGHT SOURCE BYTE? (1002) 

INCREMENT SOURCE RBA 

REMOVED BOUNDS TO ABOVE LINE 

EXTRACT RIGHT SOURCE BYTE 



(1002 ) 



ADD 
ADD 



INCREMENT SOURCE EFFECTIVE ADDRESS AND FETCH 
RETURN 



INCREMENT TARGET RBA 

SAVE LEFT BYTE 

RETURN IF LEFT BYTE 

PREV LEFT BYTE 

INCREMENT TARGET EFFECTIVE ADDRESS 

WRITE TARGET WORD 

TICB TO SLOW DOWN RSB TO AVOID S KILL (1000 ) 

(1010) 

BOUNDS TEST TARGET EFFECTIVE ADDRESS <= SM 

RETURN 
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RECORD 

NO 

18521 
18522 
18523 
18524 
18525 
18526 
18527 
18528 
18529 
18530 
18531 
18532 
18533 
18534 
18535 
18537 
18538 
18'^40 
18541 

185.:3 

18544 
18546 
18547 
18549 
18550 
18552 
18553 
18554 
18555 
ISSbe 
1855 7 
18558 
18560 
185f 1 
18t63 
18564 
18566 
18567 
18569 
18570 
18572 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 
C S .«•».»...»* ALU A •••••••*••» 

ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



.••■«•*••<••. ALU B •••••«•*•••*•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



130F 

1310 
1311 
1312 
1313 
1314 



1315 
1316 
1317 
1318 
1319 



EDI5 (extended subprogram instruction decoding) 

1. Extract the subprogram opcode contained in the right 
nibble of the subprogram instruction. 

2. Use the subprogram opcode as an index into the branch 
table. 

3 Range check the valid subprogram opcodes. 
4. Jump into the brach table to jump to the correct 
subprogram instruction. 



EDI5 OOOF SPIB ANDL 

U8A ADD LSR 

UBA UBB ADD 

ADD 

ADD 

ADD 





EDT2 ADDL 


LBL 


WRX3 


0009 ADDL 




RAR 


UBB SP4A JSBS 
ADD 


EDI3 


RSB 


ADD 





RIGHT NIBBLE OPCODE BRANCH TABLE 



SP4A 


JSB 


TE 


EVEN 


SP4A 


JSB 


ENDF 


SP4A 


JSB 


SSTl 


EVEN 


SP4A 


JSB 


SSTO 


SP4A 


JSB 


rowo 


EVEN 


SP4A 


JSB 


SFC 


SP4A 


JSB 


SFLC 


EVEN 


SP4A 


JSB 


DFLC 


SP4A 


JSB 


SETC 


EVEN 


SP4A 


JSB 


DBNZ 



ODD 



MASK FOR SUB-OPCODE 

BRANCH TABLE INDEX 

BRANCH TABLE BASE 

INDEXED BRANCH TABLE ADDRESS 

MAXIMUM VALID SUB-OPCODE 

TRANSFER TABLE ADDRESS TO RAR 

SKIP BRANCH TABLE IF NOT VALID 



RANDOM TABLE BRANCH 



TERMINATE EDIT 

END FLOATING INSERTION 

SET SIGNIFICANCE TRIGGER TO 1 

SET SIGNIFICANCE TRIGGER TO 

MOVE DIGIT WITH OVERPUNCH 

SET FILL CHARACTER 

SET FLOAT CHARACTER DEPENDING ON SIGN 

DEFINE FLOAT CHARACTER DEPENDING ON SIGN 

SET LOOP COUNT 

DECREMENT LOOP COUNT AND BRANCH IF NON-ZERO 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 
<.<<>.>,•.<. ALU A «»......»«» 

lABL RREG SREG FUNC SFNC STOR SPSK 
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COBOL 


II F 


RECORD 


C S 




NO 


ADDR 


LABL 


18574 




»«•> 


18575 




* 


18576 




' 


18577 




* 


18578 




*: 


18579 




*: 


18580 




* 


18581 




*■ 


18582 




* 


18583 




* 


18584 




* 


18585 




* 


18586 




*■■ 


18587 




*' 


18588 




*' 


18589 




*i 


18590 




*' 


18591 




*l 


18592 




<l • « It 1 


18593 




^1 


18594 


131A 


EDI6 


18596 






18597 


131B 


ED 1 3 


18599 






18600 


1310 




18602 






18603 




'1 


18604 




"1 


18605 




" 


18606 




" 


18607 




)< 


18608 


131D 




18610 






18611 


131E 




18613 






18614 


131F 




18616 






18617 


1320 




18619 






18620 




« 


18621 




!* 


18622 




\ 


18623 




* 


18624 . 




■fc 


18625 


1321 




18627 






18628 


1322 




18630 






18631 


1323 




18633 






18634 


1324 




18636 







.«•«<,••<,•*•.. ALU B ••••••«•«*«*•• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



EDI6 (next subprogram instruction at new RBA) 

Set up the subprogram pointers and flags for the new 
subprogram RBA. Continue with the interrupt test. 

EDI3 (test for interrupts between subprogram instructions) 

If interrupts are not pending, then do the next subprogram 
instruction. Otherwise flush the last target byte from the 
buffer if needed. Add two words to the interrupt marker 
containing the significance trigger, loop count, float char, 
and fill char. Leave a -1 on top of the stack so the 
instruction will be resumed after the interrupt. 

Go to the interrupt handler. 



ADD 
JSB 
ADD 



JSL SPGS 

ADD 

JSL EDI4 



INTERRUPT PENDING, FINISH LAST TARGET WORD, THEN INTERRUPT 
NF2 RF INC ROD 



JSB *+4 
RG UB6 BNDE 
UBB ADD RLZ 

ADD 



RF INC 

SP3B ADD 

OPB ADD RRZ 

UBA UBB lOR 



SET UP INTERRUPT RETURN STACK MARKER 

XRO ADD RRZ RH N 
UBA UBB lOR RH 
ADD 
JSZ IRDN U 



8000 


ADDL 






XRO 


ADD RLZ 




EPSH 


UBB XRl 


lOR 


RA 


EPSH 




CAD 


RG 





RESTART SUBPROGRAM AT NEW RBA 
INTERRUPTS PENDING? 



UNO NEXT SUBPROGRAM INSTRUCTION 



FINISH WRITING TARGET WORD IF LEFT BYTE 

FETCH CURRENT TARGET WORD 

BOUNDS TEST LAST TARGET WORD 

LAST TARGET BYTE 

LEFT BYTE 

OLD RIGHT BYTE 

WRITE LAST TARGET WORD 



SAVE LOOP COUNT 

SIGNIFICANCE TRIGGER MASK 

SAVE LOOP COUNT AND SIGNIFICANCE TRIGGER 

FILL CHARACTER 

SAVE FILL AND FLOAT CHARACTERS 
OFF TO INTERRUPT HANDLER 
RESTART FLAG 
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RECORD 

NO 

18638 
18639 
18640 
18641 
18642 
18643 
18644 
18645 
18646 
18647 
18648 
18649 
18650 
18651 
18652 
18653 
18655 
18656 
18658 
18659 
18661 
18662 
18664 
18665 
18667 
18668 
18670 
18671 
18673 
18674 
18676 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 
C.S. .».««..««•. /^LU A ••«••«•«••• 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK 



1325 
1326 
1327 
1328 
1329 
132A 
132B 
1320 



A M « ft * * * A A * « « A ALU B A ** * A A ** * A A * A A 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



ETRP (Edit TRaP handling for invalid data) 

Signal an invalid ascii digit trap. 

TE (Terminate Edit ) 

Flush the last target byte if needed. Pop the four TOS 
registers. Test for an invalid ascii digit trap. 

Next inst ruct ion . 



ETRP 
TE 



•+4 



RG 
UBB 



ADD 

JSB 

BNDE 

ADD RLZ 

ADD 

ADD 

ADD 

ADD 



RF 


INC 


SP3B 


ADD 


0P6 


ADD 


UBA UBB 


lOR 




ADD 




JSZ 




ADD 



SF4B 
ROD 



DATA 
EPP4 



F4B 
NEXT 



INVALID ASCII DIGIT TRAP 

WRITE TARGET WORD FOR LEFT LAST BYTE 

FETCH LAST TARGET WORD 

BOUNDS TEST LAST TARGET WORD 

LAST TARGET BYTE FOR LEFT BYTE 

LEFT BYTE 

OLD RIGHT BYTE 

WRITE LAST TARGET WORD 

RESET MARKER WORD 

POP ALL TOS PARAMETERS 

ILLEGAL ASCII DIGIT TRAP 

NEXT INSTRUCTION 
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RECORD C.S. «.».»»«.«*« (ULU A •••*•»*••*• .»•««««»»».«• ALU B «•*••»••»•«•«* 

NO ADDR LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

18679 • • 

18680 * ENDF (END Floating insertion) • 

18681 • • 

18682 • If the Significance trigger hasn't been already been set, • 

18683 • then insert the floating character at the next target byte. * 

18684 • « 

18685 • Next subprogram instruction. • 

18686 • * 

18688 • 

18689 1320 ENDF JSB "+2 F3A XRl ADD RH NO ACTION TAKEN IF SIGNIFICANCE TRIGGER IS 

18691 FLOAT CHARACTER 

18692 132E ADD JSL NTRG UNC 

18694 INSERT FLOATING CHARACTER 

18695 132F ADD JSL ECiI3 UNC 

18697 NEXT SUBPROGRAM INSTRUCTION 
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RECORD 

NO 

18699 
18700 
18701 
18702 
18703 
18704 
18705 
18706 
18707 
18708 
18709 
18710 
18711 
18713 
18714 
18716 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 

ADOR LABL RREQ SREQ FUNG SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP COMMENT 



10/ 2/86 9;27 AM 



A*ft*lkAlkftA«A« 



ilA«llllltlklt*ll[lk*«lkik]kltftftA«**AlkftA*lKAllllAA*>k««A*Ait*il*lk 

SSTl (Sat the significance Trigger to 1) 

Do what it tayi, then do the next lubprogram instruction 

SSTO (Set the Significance Trigger to 0) 

Do what is says, then do the next subprogram instruction 



1330 SSTl 

1331 SSTO 



ADD 

ADD 



SF3A 
CF3A 



JSL EDI3 
JSL EDI3 



SET SIGNIFICANCE TRIGGER TO 1 
NEXT SUBPROGRAM INSTRUCTION 
SET SIGNIFICANCE TRIGGER TO 
NEXT SUBPROGRAM INSTRUCTION 
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RECORD C.S. .«.«.«..»«<, ALU A •«•••••**«• •«.«.»...•««• alu b •»*••«•••••••.» 

NO ADDR LAIBL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

18718 ««»»•«.*»««««*•(,*..««*.««»*«*»*.»*•*.»..*.•**«««.»••.*».»»«««.*».•.«« 

18719 • » 

18720 • MDWO (Move Digit With Overpunch) * 

18721 • • 

18722 • 1. Fetch the next source byte • 

18723 • 2, If the siignif icance trigyer is false, then zerofill the * 

18724 * byte if the byte is a leading blank, * 

18725 • 3. Trap if the byte is not a legal ascii digit (■0'-'9). • 

18726 * 4. Set the sign flag used for overpunching based on the * 

18727 * condition code in the STATUS register. • 

18728 ■ 5. Overpunch the byte and store it as the next target byte. * 

18729 * 6. Next subprogram instruction. * 

18730 • • 

18731 .»..**».*...«««..»....««*.«•««««»»«•*»»..*•««.»«*«••«•«*«*««*«««»«»««* 

18732 1332 MDWO 0020 ADDL SP4A JSL NSRC UNC BLANK FOR COI^PARISON 

18734 FETCH NEXT SOURCE BYTE 

18735 1333 JSB "+2 F3A RH SP4A SUB NZRO NO BLANK FILL IF SIGNIFICANCE TRIGGER SET 

18737 ZERO FILL REQUIRED IF SOURCE BYTE IS BLANK 

18738 1334 ADD 0030 ADDL RH 

18740 ZERO FILL THE LEADING BLANK 

18741 1335 0030 ADDL SP4A 0039 ADDL "0" FOR ASCII DIGIT TEST (2307) 

18743 "9" FOR ASCII DIGIT TEST 

18744 1336 RH UBA JSBS ETRP NCRY UBB RH JSBS ETRP NCRV INVALID ASCII DIGIT TEST (2307) 

18746 INVALID ASCII DIGIT TEST 

18747 1337 RH SP4A S.UB SP4A 0100 ADDL SP4A=DIGIT-30H (ZERO IF ASCII '0') (2307) 

18749 CCL MASK FOR STATUS REGISTER 

18750 1338 UBB STA AND ZERO ADD SF2 POSITIVE OR NEGATIVE OVERPUNCH? 

18752 POSITIVE OVERPUNCH 

18753 1339 ADD CF2 JSL OVPN UNC NEGATIVE OVERPUNCH 

18755 OVERPUNCH SOURCE BYTE 

18756 133A RC CSR HBF2 JSL NTRG UNC RESTORE TARGET RBA FLAG 

18758 STORE NEXT TARGET BYTE 

18759 133B JSB ED13 F3A ADD NEXT SUBPROGRAM INSTRUCTION IF SIG FLAG SET 

18761 - (2307) 

18762 133C JSB EDI3 UNC SP4A JSB SSTl NZRO SET SIGNIFICANCE FLAG IF CURRENT DIGIT IS 
18764 NONZERO--ELSE DO NEXT SUBINSTRUCTION (2307) 



PAGE 382 COBOL II FIRMWARE INSTRUCTION SET - EDIT 10/ 2/86 9;27 AM 

RECORD C.S. »»»...•.•«. ALU A ««•••••••«« *••««««.««..• ALU B «««•«*««**•«•« 

NO ADDR LABL RREQ SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

18766 ..«.*......«.•*«»»»•.«««.«.*...».«».......«....»».»».*....*»*.«««.«»» 

18767 * • 

18768 * SFC (Set the Fill Character) • 

18769 • * 

18770 • 1. Fetch the next subprogram byte. * 

18771 « 2. Set the fill char to that byte. * 

18772 • 3. Next subprogram instruction. * 

18773 • * 

18774 **•.».«......*..»*»»....»*»«.«.««......«........ •«<,...•*••».>■• 

18775 • 

18776 133D SFC ADD JSL NSPG UNO 

18778 FILL CHAR IS IN NEXT SUBPROGRAM BYTE 

18779 133E ADD SPIB JSL EDI3 XRO UNC 

18781 NEXT SUBPROGRAM INSTRUCTION; SET FILL CHAR 
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RECORD 

NO 

18783 
18784 
18785 
18786 
18787 
18788 
18789 
18730 
18791 
18792 
18793 
18794 
18795 
18796 
18797 
18798 
18799 
18800 
18801 
18802 
18803 
18804 
18805 
18808 
18807 
18808 
18809 
18810 
18812 
18813 
18815 
18816 
18818 
18819 
18821 
18822 
18824 
18825 
18827 
18828 
18830 
18831 
18833 
18834 
18836 
18837 
18839 
18840 
18842 
18843 
18845 



COBOL 

C.S. 

ADDR 



133F 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
134A 



II FIRMWARE INSTRUCTION SET - EDIT 
LABL RREQ SREG FUNC SFNC STOR SPSK 



>>,•.•.«««>«««•, ALU B .•••«•.•«>.>«.< 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



SFLC (Set the Floating Character) 

1 

2 



Fetch the next subprogram byte containing the positive and 

and negative sign values. 

Determine the condition code conti 

register and extract the left 

right nibble if CCL . 

Add %40 to the nibble to obtain tl 

the floating character to this val 

Next subprogram instruction 



tained in the STATUS 
Ibble if CCG/CCE or the 



the ascii sign and set 
>lue . 



DFLC (Define the Floating Character) 

1 

2 



Fetch the next subprogram byte co 

floating character . 

Fetch the following subprogram by 

floating character. 

Determine the condition code cont 

register and set the floating cha 

floating character if CCG/CCE or 

character if CCL. 

Next subprogram instruction. 



ntaining the positive 

te containing the negatj 

ained in the STATUS 
racter to the positive 
the negative floating 



■LC 0100 STA 
SPOA 



0004 
UBA 



ANDL 
JSB 
ADD 
ADDL 
CAD 
ADD 
ADD 
■LC 0100 STA ANDL 
ADD 
ADD 
ADD 
ADD 



NZRO OOOF 
OOFO 
U6B 

ZERO UBB 
0020 



JSL 
SPIB ANDL 
SPIB ANDL 
REPC 
ADD 
SP2B ADDL 
JSL 
JSL 
SPIB JSL 
SP4A ADD 
SPIB ADD 
JSL 



NSPG 

SP2B 



SP2B 
XRl 



^ A A A A 

UNC 



EDI3 
NSPG 
NSPG XRl 



UNC 
UNC 
UNC 
ZERO 



CCL OR CCG/CCE? 

FETCH BYTE CONTAINING FLOATING CHAR NIBBLES 

POSITIVE OR NEGATIVE? 

FETCH RIGHT NIBBLE IF NEGATIVE 

EXTRACT LEFT NIBBLE IN PLACE 

SHIFT COUNT TO EXTRACT THE LEFT NIBBLE 

REPEAT THE FOLLOWING LINE 

DONE WHEN COUNT = 

SHIFT LEFT NIBBLE TO RIGHT NIBBLE 



FLOAT CHAR 



NIBBLE + BLANK 



NEXT SUBPROGRAM INSTRUCTION 

CCL OR CCG/CCE? 

FETCH BYTE CONTAINING POSITIVE FLOAT CHAR 

FETCH BYTE CONTAINING NEGATIVE FLOAT CHAR 

DOES STATUS REGISTER INDICATE NEGATIVE (CCL ) 

NEGATIVE FLOAT CHAR 

NEXT SUBPROGRAM INSTRUCTION 
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RECORD 

NO 

18847 
18848 
18849 
18850 
18851 
18852 
18853 
18854 
18855 
18856 
18857 
18859 
18860 
18862 



COBOL II FIRMWARE INSTRUCTION SET - EDIT 
ADDR LABL RREG SREO FUNC SFNC STOR SPSK 



SETC (Set tha loop Count) 



1348 
134C 



*lK«**lkftAAIk«lkft ALU B ************** 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



1. Fetch the next tubprogram byte and assign It to the 
loop count . 

2. Next subprogram Instruction. 



ADD 
SPIB ADD 



JSL 
JSL 



NSPQ 
EDI3 



FETCH SUBPROGRAM BYTE CONTAINING LOOP COUNT 

STORE LOOP COUNT 

NEXT SUBPROGRAM INSTRUCTION 



PAGE 385 


COBO 


RECORD 


C S. 


NO 


ADDR 


18864 




18865 




18866 




18867 




18868 




18869 




18870 




18871 




18872 




18873 




18874 




18875 




18876 




18877 




18878 




18879 




18880 




18881 




18882 




18883 




18884 


134D 


18886 




18887 


134E 


18889 




18890 


134F 


18892 




18893 


1350 


18895 




18896 


1351 


18898 




18899 


1352 


18901 




18902 


1353 


18904 





COBOL n FIRMWARE IMSTRUCTION SET - EDIT 
LABL RREG SRECi FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



DBNZ (Decrement and Branch if Non-Zero) 



Fetch the next subprogram byte containing the branch 

displacement . 

Decrement the loop count. 

It the loop count is zero, then do the next subprogram 

instruiction. 

Extendi the sign of the displacement. 

Subtraict the displacement from the subprogram RBA. An 

extra byte displacement is also subtracted since the 

displacement is relative to the address of the byte 

containing the displacement, but the RBA now points to 

the byte after the displacement. 

Next subproaram instruction after updating the subprogram 

pointers , flags , etc . 



XRO ADD 

SPOA CAD 

USA JSB 

ADD 

ADD 

RD SPIB CAD 

ADD 



SPOA 
XRO 



JSL NSPG 
0080 SPIB ANDL 
UBB ADD 
FFOO SPIB lORL SPIB 

ADD 

JSL EDI6 

JSL EDI3 



UNC 
UNC 



LOOP COUNT 

FETCH BRANCH DISPLACEMENT 

DECREMENT LOOP COUNT 

MASK SUBPROGRAM DISPLACEMENT SIGN BIT 

NO ACTION IF LOOP COUNT IS NOW ZERO 

POSITIVE OR NEGATIVE DISPLACEMENT 

EXTEND SIGN BIT IF NEGATIVE 



NEW SUBPROGRAM RBA 

RESTART SUBPROGRAM AT NEW RBA 



NEXT SUBPROGRAM INSTRUCTION 
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RECORD 

NO 

18906 
18907 
18908 
18909 
18910 
18911 
18912 
18913 
18915 
18916 
18918 
18920 
18922 
18924 
18926 
18927 
18928 
18930 
18931 
18933 
18934 
18936 
18937 
18939 
18940 
18941 
18942 



C S 
ADDR 



1354 

1355 
1356 
1357 
1358 
1359 



135A 
135B 
135C 
1350 



Pseudo Enabl* and Pieudo Disable Instructions 

•*****••••• ALU A ••••••*•<•* *•«*»..»..... ALU B •••••••••»•••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• DPPX is the entry point for the PSEB, PSOB, DISP and * 
« XCHD inst ructions . * 

JLUT INSTR-DISP/PSE&DB/XCHD Oil 000 000 11, DSPL-4, ENTRV-DPPX, F2 
DPPX 0580 ADDL SP4A JSZ TRP6 BKX3 NPRV 

R0X3 



10/ 2/86 9:27 AM 



DSPL JSB XCHD ZERO UBA ADD LRZ 

UBB ADD R0X3 FFEE ADDL 

CIR JSB DISP EVEN UBB OPB ADD 

OPA ADD R0B3 UBA ADD LSR 

PSDB 1100 CPX2 ANDL SP4A OPB INC 



PSEB UBB DSPL SUB 

JSZI NEXT 
CPX2 ADD SWAB 
ADD 



NCRY 




SREG JSZ 


CCA 


UBB 


CAD 


EVEN 




SP4A ADD 



OPB JSZ INT9 



R0X3 

SF4B ODD 
DATA NEXT 



ZERO 
DATA 
CCA NZRO 

NEG 



SP4A :■> addr of QI lor mask for »DISP: 
BKX3 :> 0. trap If not privileged 

JSB if XCMD instruction; Read QI (UBB = 5) 

Read Q! ; UBB - -18 

JSB if DISP Instruction; Read (QI-18) 

Read (01); Skip if PSEB instruction, set F4 

SP4A :- UBA (for tDISP) - ICS & DISP flags 
(on ICS if in DISPATCHER); 
incr«ment (QI-18), NEXT if PSDB instr 

Skip if (01-18) < 2 (DSPL « 3) ; 
Trap if (QI-18) - 

Set CCG and NEXT if (01-18) >= 2; 
Decrement (01-18) 

Skip if not in DISPATCHER; 

Skip if on ICS, set CCE if not 

(QI) :» if in DISPATCHER; 

Start DISPATCHER if not on ICS and 
(QI).(0:1), F4 causes JSB to •IXT4 from 
•INT9, (01) is left in OPA for «IXT4 

Set CCG; NEXT 
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RECORD 


C.S. 


NO 


ADDR 


18945 




18946 




18947 




18948 




18949 


135F 


18951 




18952 


1360 


18954 




18955 


1361 


18957 




18958 





Dispatch Instruction 

««•«*.>,.•>,. ALU A •«•••«••«»• 
LABL RREG SREG FUNC SFNC STOR SPSK 



Dispatch (DISP) Instruct 


ion 

i>>ikii|*iiiit***il*«*i>i 


OPA ADD WRX3 


UBA OPB lOR 


SP4A ADD RLZ DATA 


INC 


OPA JSZ INT9 R0X3 


ADD 



»***»***, t*** ALU B »*•••*«***•»•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



CCA ZERO 
CCA NEXT 
SF4B 



10/ 2/86 9:27 AM 



Write at (QI) ; 

Skip if not on ICS and (01-18) ■ 0, set CCE 

(01) :» !8000; Set CCG , NEXT it on ICS or 

DISABLED 
Start DISPATCHER it not on ICS and ENABLED, 

Reread (QI) for iIXT4; 

F4 causes JSB to »IXT4 from «INT9 
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RECORD 


C.S. 


NO 


ADDR 


18960 




18961 




18962 




18963 




18964 




18965 




18966 




18967 




18968 


1362 


18970 




18971 


1363 


18973 




18974 


1364 


18976 




18977 


1365 


18979 




18980 


1366 


18982 


1367 



Exchange DB Instruction 
LABL RREG SREQ FUNC SFNC STOR SPSK 



* « Ht * * ft Ik A * ft A A « ALU B ft ft ft ft ft ft ft ft ft ft ft ft ft ft 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



XCHD (Exchange DB) Instruction - The entry point for XCHD 
is »DPPX, for which the SR preadiust is 0. The instruction 
checks for two or more TOS registers full, and fetches them 
from memory if not. The split bank flag is set or cleared 
according to the new value of DB-BANK. 



RB 



JSZ PULM 



ADD 
ADD 



SRL2 





BNKD 


JSZ 


PUL2 


SPIB 




SRZ 


UBA 


BNKS 


XOR 








ZER( 


UBA 




INC 






CCPX 


UNC 


UBA 


UBB 


lOR 






CCPX 




RA 
OOFF 


RB 
SREG 


XFRR 
ANDL 




DB 
BNKD 







COMMENT 



Pull two TOS if SR " else pull one TOS if 

SR • 1, UBA ;- new bank #; SPIB := DB-BANK 
UBA :« pre-mask for CCPX; 

Skip if new DB-BANK • S-BANK 
UBA :" pre-mask for CCPX; 

Set FSS (UBB • 14000), skip 
(S-1) :- old DB-BANK; Clear FSS if 

DB-BANK • S-BANK (UBB = 15000) 
(S) :« old DB. DB :• new DB from (S) 
NEXT; BNKD :• new DB-BANK from (S-1) 



PAGE 389 Set Disable/Enable Interrupts Bit Instruction 10/ 2/86 9:27 AM 

RECORD C.S. ...*».«..•• f^m A «•«••••••«« ««.«.......«« ALU B •••«•••••••••* 

NO ADDR LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP C0f4MENT 
189 85 ....«.•*««•««*».«*»•*».**»**«*«•»»•*.*««*.*.««*»*»*,*»*«*•»•.*»•.*..« 

18986 • • 

18987 • Set Disable/Enable Interrupts Bit (SED) instruction • 

18988 • » 

18989 * This Instruction will reset/set the interrupts enabled bit * 

18990 * in the status register (bit 1) depending upon C1R.(15:1) • 

18991 • • 

18992 ««««..««..«««».•«..•«««««*«»«»««.«*«««*.».«.««....»«*«.«.««*««.«..*«*« 

18994 SLUT INSTR = SED:0 Oil 000 000 lOx xxx, DSPL-4, ENTRY==SED 

18996 1368 SED CIR JSB SEDl EVEN JSZ TRP6 NPRV JSB if DISABLE; Trap if not privileged 

18998 1369 CPX2 JSB SED2 ODD 4000 ADDL RH JSB if DINTFF; USB ;- RH := mask to set ints 

19000 136A UBB STA lOR STA UB8 JSZC NEXT UNC STA := STA with interrupts set; UBB := mask 

19002 to clear interrupts, JSB for NEXT 

19003 136B SEDl UBB STA AND STA JSZ NEXT UNC STA := STA with interrupts cleared; NEXT 
19005 136C SED2 RH STA lOR STA JSZ DIMS UNC STA :« STA with interrupts set; Handle 
19007 deferred interrupts 
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RECORD 


C S. 




NO 


ADDR 


LABL 


19009 




• ••• 


19010 






19011 






19012 






19013 




A * * * 


19014 






19015 




SLUT 


19016 






19017 


136D 


XEO 


19019 






19020 


136E 




19022 






19023 






19024 






19025 


136F 




19027 


1370 




19029 






19030 


1371 




19032 


1372 




19034 


1373 




19036 






19037 






19038 


1374 





Execute Instruction 
LABL RREG SREQ FUNC SFNC STOR SPSK 



**.<•«*•*...* ALU B •••«••••••*••• 

RREG SREQ FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



Execute (XEQ) Instruction 





SM 


INC 




OOWN 


ADD 


UBB 
UBA 


DSPL 


ADD 
SUB 


UBA 


DB 
SP4A 


BNDE 

ADD 

ADD 



Ox XXX, DSPL'4. 


ENTRY 


-XEO 








WRS 


SR 


SM 


RE PC 




SP3B 


DCSR 


SRZ 


DATA 




UBB 


ADD 




SM 


DCSR 


SRL2 




FFFF 

Z 


P 


ADDL 
ADD 




P 


CLSR 




RONP 


SP3B 


UBB 

BNKS 

BNKP 


JSZC 

ADD 

ADD 


STOV 


BNKP 




POS 


UNC 




UBB 


ADD 




BNKP 







COMMENT 



Write TOS registers at SM + 1; Repeat if 
SR <> 0, dec SR, SP3B :« UBB ;> S 

Empty TOS register; Repeat until SR in rankl 
is < 2, dec SR, SM :- S (if SR » at 
start of instruction, store into SM may be 
NOPed) 

UBA-SM ;P.P-1 (2324) 

SP4A :« UBA :> addr of instruction (S - K); 
UBB :• Z, clear SR (2324) 

Bounds check addr >• DB : STOV if S > Z 

; BNKP :• S-BANK (2324) 

Read instruction into NIR; P .- P - 1 so 
that instruction after XEO follows 'XEOed' 
instruction, SREG « P-BANK (2324) 

Wait two clocks for NEXT; Restore BNKP(2324) 
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RECORD 
NO 

19041 
19042 
19043 
19044 
19045 
19046 
19047 
19048 
19049 
19050 
19051 
19052 
19053 
19055 
19057 
19058 
19059 
19061 
19062 
19064 
19065 
19067 
19069 
19071 
19073 
19074 



C S 
ADDR 



1375 
1376 



1377 

1378 

1379 
137A 
137B 
137C 

137D 



Register Control Instructions ADDS and SUBS 
LABL RREG SREG FUNC SFNC STOR SPSK 



ALU B **«»••**•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



ADSS is the entry point for both the ADDS and SUBS 
instructions. F2 is set for the SUBS instuction and not 
for ADDS. DSPL is set to 8 so as to access the immediate 
operand in CIR . 



10/ 2/86 9:27 AM 



SLUT INSTR«ADDS:0 Oil 101 Oxx xxx xxx, DSPL=8, 
SLUT INSTR"SUBS:0 Oil 101 Ixx xxx xxx, DSPL=8, 

ADSS SM INC 
QDWN ADD 



DSPL ADD 

UBB JSBI ADSl 

Q 



ENTRY-ADSS 
F2, ENTRY»ADSS 



ADSi RH 
UBA 



OPA 




JSZS STUN 

JSZ NEXT UNC 
ADSB SP4A 
JSZS STUN NEG 



WRS 
DATA 


SR 


SM 
UBB 


RE PC 
ADD 


NZRO 


SP3B 




CAD 


ROS 


SP3B 


UBA 


ADSB 


NEG 


Z 


UBB 


JSZC 



SPIB ADD 

SP3B Q JSZC STUN 

Z UBA JSZC STOV 



SP3B 
SM 


DCSR 
DCSR 


SRZ 
SRL2 


RH 






SPIB 


CLSR 




SM 




NECI 

NECi 
NECI 



JSZ NEXT 



UNC 



Write at SM + 1; SP3B :- S, REPC if SR > 
Write QDWN: Repeat until SR in rankl < 2, 

dec SR, SM ;• S (if SR = at start of 

instruction store into SM may be NOPed) 
UBA :> immediate operand, skip if <> 0; 

RH :• S - 1 
Read TOS and lump if operand in TOS ; 

SPIB ;• S +/- DSPL, clear SR 
STUN if S < Q; STOV if Z < S and within 32K 
Jump to NEXT; SM : > S 

SP4A :« S-1 +/- TOS; STUN if old S <> 
STUN if new S < and within 32K; 

STOV if Z < new S and within 32K 
Jump to NEXT; SM : = S 
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RECORD 


C S. 


NO 


ADDR 


19077 




19078 




19079 




19080 




19081 




19082 




19083 




19084 




19085 


137E 


19087 




19088 




19089 


137F 


19091 


1380 


19093 




19094 


1381 


19096 




19097 


1382 


19099 


1383 


19101 




19102 


1384 


19104 


1385 


19106 


1386 


19108 


1387 


19110 


1388 


19112 


1389 


19114 


138A 


19116 


138B 


19118 


138C 


19120 




19121 




19122 


138D 


19124 


138E 


19126 




19127 




19128 




19129 




19130 


138F 


19132 




19133 


1390 


19135 




19136 




19137 




19138 


1391 


19140 




19141 


1392 


19143 




19144 


1393 


19146 




19147 


1394 


19149 




19150 


1395 


19152 





Set Regiaters Inttruetlon 

<*<.*.!«.•*• ftLU A ••**••••*•• .«*...*..•.»» ALU B •*«••••••••••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



Set Registers (SETR) Instruction 



SLUT INSTR«SETR:0 010 111 Ixx xxx xxx, 0, ENTRY-SETR 

SETR SM INC WRS SR SM REPC SM 



10/ 2/86 9:27 AM 



ODWN ADD DATA 

CIR ADD RLZ SP4A HBF2 



UBB SM JSZS STOV 



ADD 
ADD 



FOOD UBA ANDL 



DCSR SRL2 
CLSR 



SM ADD 
SP4A ADD 



LSL 



STA 

RQ 

UBA ADD 

RG ADD 



X 
RQ 



ADD 

ADD LSL 
LSL 
LSL 

UBA ADD LSL 
ADD 

JSB SETQ 
JSB STSM 
JSBS UNFL 



RG 

CIR 





RH 
RG 

XR6 
RG 

RQ 
RG 
XR7 



DB ADD 
UBA DL SUB 



STA ADD LSL 
UBB DL JSBS UNFL 



ROBS 
HBF2 



HBF2 
HBF2 
HBF2 
HBF2 

NEG 
ODD 

NEG 



HBF2 
NEG 



JSZ 
BNKS JSB 

DB ADD 
BNKD JSB 
DL JSB 
JSB 
SM JSB 
BNKD JSB 
Q ADD 
RH ADD 
UBB JSBS OVFL 



TRP6 
STSB XRl 

XR2 
STDB XR3 
STDL XR4 
SETZ XR5 
SSTA XR9 
SETX SP3B 
RF 
SM 



NPRV 
F2 



SP3B XRl 
Z DB 



Q 
UBB DB 



XOR 
SUB 



ADD 

JSBS UNFL 



NZRO 
SF5B TICB 



UNC 
NEG 



RE DL 

3FFF 

1000 



SUB 

ADDL 

ADDL 



CPX2 ADD 
JSZ 



Z DL SUB 

OOFF XRl ANDL 

UBA INC 

EVEN UBA UBB lOR 

F2 ADD 



BNKS FSB 
CCPX UNC 
CCPX 

NEXT 



SAVE INSTRUCTION PARAMETERS BY WRITING TO 

MEMORY 
SM:-SR + SM, REPEAT IF SR <> 0, DCSR 
WRITE ODWN; REPEAT UNTIL SR IN RANKl < 2 
SP4A. (0:8) :-CIR, F2:.CIR(8); 
RE:«UBB:-Z, CLSR 
STOV IF Z < S; 

SKIP IF NO PRIVILEDGED REGISTERS TO SET 
READ FIRST PARAMETER; TRAP IF NPRV 
RG. (0:7) :-CIR. (9:7) , F2:-CIR(9); 
XRl: -BNKS, JSB IF SET S-BANK 
XR6:-STA; XR2 : -DB 



F2 
F2 
F2 
F2 
XR7 



CIRIIO) 
•CIR(ll) 
■CIR(12) 
•CIR(13) 
SP3 



JSB IF SET DB AND DB-BANK 



XR4:«DL, JSB IF SET DL 
XR5:-Z, JSB IF SET Z 
XR9:«SM, JSB IF SET STATUS 
:-BNKD, JSB IF SETX 

JSB TO SET Q IF CIR (14); RF : -0 

JSB IF CIR(15), SM:.NEW SM 

JSB FOR UNFL IF S < Q AND WITHIN 32K ; 

JSB FOR OVFL IF Z < S AND WITHIN 32K 
(OVERFLOW TEST HAS PRIORITY) 

UBA:-DB; SKIP IF BNKD <> BNKS 

; SET FSB IF NOT SPLIT BANKS, SKIP IF 



(?N!5D -_BNKS) AND (DB >-_DL2 AND ( 
fHAT OR S RELATIVE ADDRESSING BE 



Z >• DE 
[SKIP IF SPLIT STACK, TICB TEST REQUIRES 



SPECIFIED IN LUT ENTRY) 
F2: -INTERRUPT BIT; 
UB8:-Q, SKIP IF SPLIT STACK 
JSB FOR UNFL IF < DL AND WITHIN 32K; 
JSB FOR UNFL IF Q < DB AND WITNIN 32K AND 

NOT SPLIT STACK 
FIXED SO THAT IT JUMPS (2635) 

JSB FOR STACK UNDERLFOW IF NOT (Z >- DL); 
JSB FOR STACK UNDERFLOW IF (Z - DL) > 32K 
UBA -MASK TO SET FSS MINUS ONE; 
BNKS: -NEW VALUE, SKIP IF NOT SPLIT BANKS 
UBA:=%1000; 

UBB.-%4000, SET FSS IF SPLIT BANKS, SKIP 
SKIP IF NO DEFERRED INTERPUPTS; 
UBB:-%5000, CLEAR FSS IF NOT SPLIT BANKS 
Handle deferred interrupt if interrupts on; 

NEXT 
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RECORD 

NO 

19154 
19156 
19158 
19160 
19162 
19164 
19165 
19167 
19169 
19170 
19172 
19174 
19175 
19177 
19179 
19181 
19182 
19184 
19185 
19187 
19188 
19190 
19191 
19193 
19195 
19197 
19199 
19201 
19202 
19203 
19204 
19205 
19206 
19207 
19208 
19209 
19210 
19211 
19212 
19213 
19214 
19215 
19217 
19219 
19221 
19223 
19225 
19227 
19229 
19231 



C.S. 
ADDR 

1396 
1397 
1398 
1399 
13gA 

139B 
139C 

1390 
139E 

139F 
13A0 
13A1 



13AA 
13AB 
13AC 
13AD 
13AE 
13AF 
13B0 
13B1 



Set Registers Instruction 

.*>..«;..«.>, ALU A •••••«««««• 
LABL RREQ SREG l"UNC SFNC STOR SPSK 



• *),«.•. <.««••• ALU B •«•••••***••*• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



STDB RH 

U8A Q 
RQ 



STDL RH 
RH 



SETZ RH 
RH 



JSZC STUN 

ADD 

CAD 

CAD 

JSB RBKD 

JSBC RBKD 
CAD RH 

JSBC RSDL 
CAD RH 



NEG 



RH 



CAD 
OPB ADD 
ROBS OPB ADD 
POS UBA CAD 
UNC OOFF OPB ANDL 



RSB 



RQ ADD 
SSTA RH JSBC RESZ 
STA ADD 

SPIB ADD STA 

UBB SP2B TOR STA 



13A4 SETX RH 



13A5 
13A6 
13A7 
13A8 
13A9 



SETO RH 

RH 

STSM RH 




RF 



JSBC RESX 

ADD X 
CAD RH 
JSBC RESQ 
JSBC RESQ 
ADD 



NEG 
ROBS 



NEG 
ROBS 



NEG 
POS 



ROBS 

NEG 

NEG 



DB 
OPB 



DB 
OPB 



ADD 
ADD 



ADD 
ADD 



UBB ADD 
OPB ADD 
2F00 UBB ANDL 



RH ROS 

XRl 

DB 

RH ROS 

BNKD RSB 



DL 

Z 

RE 

SPIB 

SP2B 



DOFF UBA 
RH 



ANDL 
CAD 



OPB ADD 



RH 



CAD 
DB ADD 

UBB OPB ADD 
DB ADD 

UBB OPB ADD 



RH 
Q 

SM 



RSB 
RSB 
RSB 



The following code restores the environment prior to the 
start of the SETR instruction in the event of a stack 
underflow or overflow. All instruction parameters in the 
TOS registers are saved by writing them to memory. The 
original values of all registers are stored in the course 
of executing the instruction. If stack underflow is detect 
while reading a parameter from the TOS in memory, all 
registers which may have been set up to that point are 
restored. All registers are restored if stack overflow or 
underflow is detected as a result of setting Z, Q, or S. 

*ii(*|ii«i)llt«*>li>llllill**»itit<iil,>L»,ii,«*ilril,*)liiliitiliili*<l,*ili]«*****i(<r**«iitjt«**ili«<il>«« 



OVFL 
UNFL 
RESQ 
RESX 
RESZ 
RSDL 
RBKD 



ADD 

ADD 

ADD 
XR7 ADD 
XR6 ADD 

ADD 

ADD 

JSZ STOV 



X 
STA 



ADD 
XR9 ADD 
RF ADD 

ADD 
XR5 ADD 
XR4 ADD 
XR3 ADD 



SM 
Q 

Z 

DL 

BNKD 
STUN DB 



10/ 2/86 9:27 AM 

COMMENT 

STUN IF SM <• 0; RHi^NEW SM, READ TOS 

; XRl: 'NEW BNKS, RSB 

READ TOS; DB : -PARAMETER FROM TOS 

SKIP IF NEW SM > Q; RH:-NEW SM, READ TOS 

UBA :« shifted CIR, JSB if new SM <= Q; 

BNKD :■ parameter from TOS, return 

JSB IF SM <« Q; UBB:-DB 

RH:«NEW SM, READ TOS; 

DL:-DB * TOS PARAMETER, RSB 

JSB IF SM <- 0; UBB : -DB 

RH:-NEW SM, READ TOS; 

Z:-DB + TOS PARAMETER 

UBA: -SHIFTED CIR; RE : -NEW Z, RSB 

JSB IF SM <» Q; SPIB: -NEW STA 

SKIP IF PRIVILEDGED; SP2B: -NON-PRIVILEDGED 

BITS OF NEW STA 
STA: -NEW STATUS; 

UBB: -PRIVILEDGED BITS OF OLD STA 
SET NON-PRIVILEDQED BITS OF STA; 
RH:-NEW SM, READ TOS, RSB 
JSB IF SM <- Q; 
UBB: -PARAMETER FOR TOS 
X:«NEW X; RH:-NEW SM, READ TOS, RSB 
RH:-NEW SM, READ TOS: UBB : -DB 
JSB IF SM <= 0; 0:»DB + PARAMETER, RSB 
JSB IF SM <• Q; UBB : -DB 
; SM:-DB + PARAMETER FROM TOS, RSB 



; SF4B TO INDICATE OVERFLOWS 

BEGIN RESTORING REGISTERS, RESTORE SM 

; RESTORE Q 

RESTORE X: 

RESTORE StA; RESTORE Z 

; RESTORE DL 

; RESTORE BNKD 

JSB FOR STACK OVERFLOW; 

RESTORE DB, JSB IF STACK UNDERFLOW 
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RECORD 

NO 

19233 
19234 
19235 
19236 
19237 
19238 
19239 
19240 
19241 
19243 
19245 
19247 
19249 
19251 
19253 
19255 
19257 
19259 
19261 
19263 
19265 
19267 
19269 
19270 
19272 
19273 
19275 
19276 
19277 
19278 
19279 
19280 
19281 
19282 
19283 
19284 
19285 
19286 
19288 
19290 
19292 
19294 
19296 
19298 
19300 



C.S. 
ADDR 



13B2 
13B3 
13B4 
1385 
1386 
1387 
1388 
1389 
13BA 
13BB 
138C 
138D 
13BE 
138F 

13C0 

13C1 



13C2 
13C3 
13C4 
13C5 
13C6 
13C7 
13C8 
13C9 



Push Registers Instruction 

•*•••••*••* ALU A ••«*•*»••*• 
LABL RREG SREQ FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 
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* Push Registers (PSHR) Instruction 

SLUT INSTR-PSHR:0 010 100 Ixx XXX XXX, DSPL-S, ENTRY-PSHR 



CIR CSR 
UBA CSR 
UBA CSR 

ADD 
STA ADD 
SP2B CSR 
UBA CSR 
DSPL JSB 
SP4A CSR 
DB JSB 
CIR JSB 

ADD 
SM INC 
SP4A ADD 

RH ADD 



If Stack Overflow is detected 



PHDB 
PSHl 



HBF2 
SP4A HBF2 
SP4A HBF2 

SP4A 

SP4A HBF2 
SP4A HBF2 
ZERO 
HBF2 
F2 
BITS 

WRS 



SR SM 

UBB 



UBA 
UBA DB 
UBA DB 
Z 

DL 
0003 SP4A ANDL 

JSZ 

UBA BNKS ADD 

ADD 

RH DB SUB 

Z UBA SUB 

UBB CSL 



ADD 

JSBS 

JSB 

CSR 

JSB 

JSB 

JSB 

JSB 



RH 

PSHl SP3B F2 

PSHl RH F2 

SP2B HBF2 NF2 



PSHl RH 

PSHl RH 

PSHl RH 

PSHl RH 

TRP6 



NF4B 

F2 

F2 

F2 

ZERO 

NPRV 

NEXT 
INCN SR7 
INSR RSB 



JSBI PSTO SM 



the stack and pointers to the conditions which existed at 
the start of the PSHR instruction. If the original value of 
S is less than the current value of SM, i.e. | TSM+1)-S)>*0, 
then there are locations at or below the original S in the 
TOS registers. These are pushed into memory, and SH is set 
to the original value of S. 



PSTO 
PHDB 



SM ADD 
QOWN ADD 
JSZ 
SM INC 
ODWN ADD 
QDWN ADD 
DB ADD 
DB ADD 



RH 





SP3B 


SM 


RE PC 


SPIB 


DCSR 


POS 


DATA 


UBB 




INC 




DCSR 


ZERO 


UNO 


RH 


SPIB 


SUB 


SM 


CLSR 




WRS 




BNKD 


ADD 


RH 


INCN 


SRQ5 


DATA 


UBA 




ADD 


RH 


INSR 




DATA 


UBB 




INC 


SM 


INCN 


SRG5 




RH 




CAD 


SM 


INSR 


RSB 


RSB 


Z 


SM 


JSBS 


PSTO 




NEG 



B:«-(SJ , JSB IF CIR(15) 
•Q, JSB IF CIR(14) 



F2:»CIR(15); RH:-(SR+SM) 

F2:-CIR(14); SP3B 

F2**CIR(13i" RH - vw a., >.,*.» i-r 

UBA:-X; F2 : iCIR ( 12 i ,'SKIP' If'nOt'cIR ( 13 ) 

SP4A:-STA; RH:«X+DB, MEDJSB IF CIR (13) 

F2:-CIR(11); RH:.STA+DB, JSB IF CIR (12) 

F2:-CIRilOJ; RH:-Z, JSB IF CIR(ll) 

JSB IF PSHR 0; RH:-DL, JSB IF CIR(IO) 

F2:-CIR(9): SKIP IF CIR.(8:2)>0 

UBA -DB, JSB IF CIR(9); TRAP IF NPRV 

JSB IF CIR(8); RH:-DB + BNKS 

; NEXT 

SEND WRITE ADDR; RH:.RH-DB, INCN, SR7? 

UBA:«SP4A; 

UBB.-Z - NEW SM, INSR AND RSB IF SR < 6 

PUSH QDWN (RH WAS RG BEFORE INCN); 

FSB; "NEW SM > Z 

UBA:-SP4A, RSB; SM:-SM+1, STOV IF Z < SM 



RH:-SM; SPIB : 'UBB :-- (OLD S)+SM, REPC IF>0 
PUSH t6s at or BELOW OLD S INT6 MEMORY 
JSB STOV; SM;-SM-((-OLD S)+SM)-OLD S, SR : - 
SEND WRITE ADDR; RH;»BNKD, INCN, SR > 5? 
PUSH ODWN; RH : -UBB : -SM+l , INSR IF SR<«4 
PUSH QDWN, SM:-SM+2, SKIP IF SR > 5 
RA:-UBA:=DB; RESTORE SM IF SR<>4, RSB 
UBA:=DB, RSB; STOV IF SM > Z 
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RECORD 


C.S. 


NO 


ADDR 


19303 




19304 




19305 




19306 




19307 




19308 




19309 


13CA 


19311 


13CB 


19313 


13CC 


19315 




19316 


13CD 



Push Registers Instruction 
LABL RREQ SREG I'UNC SFNC STOR SPSK 



• •*>,<,>,••,.•.«• ALU B ••••••••»••••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



The following code tills the TOS registers for diagnostic 
purposes wlien the instruction calls for zero registers to 
be pushed onto the TOS, 



SM ADD 

JSZ 

OPA ADD 



ROS 


SR 


ADD CTR 


SR7 


UBA Q 


JSZC NEXT 




RREG 


CAD SM 



10/ 2/86 9:27 AM 



READ TOS IN MEMORY; CTR ; =SR FOR REGN 
JSB FOR NEXT IF SR-7 OR NOT ( SM > 0) 
PULL STACK OPERAND INTO REGISTER; 
SM:-UBB;-SM - 1, INSR 
READ NEW TOS IN MEMORY, LOOP BACK; 
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RECORD 

NO 

19319 
19320 
19321 
19322 
19323 
19324 
19325 
19327 
19329 
19331 
19333 
19334 
19335 
19336 
19337 
19338 
19339 
19340 
19342 
19344 
19345 
19346 
19347 
19348 
19349 
19350 
19351 
19353 
19355 
19356 
19357 
19358 
19359 
19360 
19361 
19362 
19364 
19366 
19367 
19368 
19369 
19370 
19371 
19372 
19373 
19375 



C.S. 
AODR 



13CE 
13CF 
13D0 
13D1 



13D2 
13D3 



13D4 
13D5 



13D6 

13D7 



Exchanga and Rotata Inii ructions 

««**«****** ALU A *********** *****««*•**** ALU B ****** ******** 

RREG SREG FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP COMMENT 



1*********************11 



Double Exchange (DXCH) Instruction 



********************************** 
********************* 



RB 


ADD 


RD 




RD 


ADD 


RB 


CCA 


RA 


ADD 


RC 




RC 


ADD 


RA 


DCC 



SLUT INSTR>DXCH:0 000 001 110 xxx xxx. ENTRY-DXCH, SR-4 

DXCH ADD 

ADD 
ADD 
ADD NEXT 

* Exchange A and B (XCH) Instruction 

••••• *•*****•••*•••••**•*•••••••**•••*****••******•••« 

SLUT INSTR«XCH:0 000 Oil 010 xxx xxx, ENTRY-XCH, SR-2 



XCH 
XCHl 



RA ADD 
UBB ADD 



RB 

RA CCA 



RB ADD 
ADD 



SLUT 
XAX 



SLUT 
CAB 



SLUT 
XBX 



Exchange A and X (XAX) Instruction 

INSTR-XAX:0 000 Oil 101 xxx xxx. ENTRY-XAX, SR-1 



RA ADD 
X ADD 



ADD 
ADD 



A********************************************************* 

Rotate A,B,C (CAB) Instruction 



INSTR-CAB:0 000 101 110 xxx xxx, ENTRY«CAB, SR-3 

ADD 
RB ADD RC 

Exchange B and X (XBX) Instruction 

INSTR-XBX:0 000 111 101 XXX XXX, ENTRY-XBX, SR-2 

X 



RB ADD 
ADD 



X 
RB 



RA ADD RB 
RC JSB XCHl 



ADD 
ADD 



S-3) 
S-ll 
S-2) 
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,S-1) 

• (S-3) , CCA on msw 
S) 



NEXT; (S) ;■ (S-2) , DCC on Isw 



(S-1) :- (S); UBB :- (S-1) 
NEXT (S) :- (S-l) , CCA; NEXT 



X :• (S) 
NEXT (S) :- X, CCA; NEXT 



; (S-1) :• (S) 

(S-2) :- (S-1); UBB :• (S-2), jump to finish 



X :- (S-1) 
NEXT (S-1) :■ X; NEXT 
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RECORD 

NO 

19378 
19379 
19380 
19381 
19382 
19383 
19384 
19385 
19387 
19389 
19391 
19393 
19395 
19397 
19399 
19401 
19402 
19403 
19404 
19405 
19406 
19407 
19408 
19409 
19410 
19412 
19414 
19416 
19417 
19418 
19419 
19420 
19421 
19422 
19423 
19424 
19426 
19428 
19429 
19431 
19432 
19434 
19436 
19438 
19439 
19440 
19442 
19444 
19445 
19447 



C.S. 
ADDR 



13DA 
13DB 
13DC 
13DD 
13DE 
13DF 
13E0 
13E1 



13E2 
13E3 
13E4 



13E5 
13E6 



13E8 
13E9 
13EA 



13EB 
13EC 



13ED 
13EE 



Triple Word Shift instructions 
LAfIL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

• TASL (Triple arithmetic shift left) Instruction * 

$LUT INSTR = TASL.0 001 001 000 XX , ENTRY = TASL , SR«3 ,DSPL = 6 
SLUT INSTR»TASL X:0 001 101 000 T.X , ENTRY = TASL , SR = 3 ,DSPL = 6 , X 
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TASL 



ADD 
DSPL JSB 
UBA QASL 
SREG ADD 
ADD 
ADD 
RA ADD 
RC ADD 



SP4A 



ADD 
ADD 
UBB LINK 
SREG ADD 
UBB ADD 
UBA ADD 
003F UBA ANDL 
RB REPC 



R6 
RA 
CTR 



DCTR CTRO 



DCC 
DCC 



• TASR (Triple arithmetic shift right) Instruction 

SLUT INSTR-TASR.O 001 001 001 XX , ENTRY = TASR , SR-3 ,DSPL = 6 
SLUT INSTR-TASR X:0 001 101 001 XXX , ENTRY = TASR , SR-3 ,DSPL-6 , X 



DSPL JSB TASl 

UBA QASR 

SREQ ADD RC 



UNO 
CCA 



ADD 
UBB LINK 
SREG JSB 



DCTR CTRO 
UNC 



' TNSL (Triple normalizing shift left) Instruction 

SLUT INSTR.TNSL:0 001 001 110 XX , ENTRY«TNSL , SR-3 
SLUT INSTR-TNSL X:0 001 101 110 XX , ENTRY = TNSL , SR = 3 . X 



RA 
RB 



ADD 
lOR 



SPIB JSB TNSO 

ADD 
SP2B ADD 
UBA CIASL 



0200 SREQ lORL 
TNSl XC UBB ADD 



ADD 
JSB 



SPOA 


NZRO 
ZERO 


03FF 
FEOO 


RC 
UBB 


ANDL 
ADDL 

ADD 


SPAA 


NFl 
CRRY 


0100 


RB 
UBB 


ADDL 
REPC 
LINK 


X 






CTRS 
UBA 


ADD 
ADD 


RA 


UNC 


002A 




ADD 
ADDL 



SPIB 
SP2B 



SP4A:=0; 

UBA: "SHIFT COUNT, JSB; SP3B:=0 

SHIFT UNTIL CTR IS DECREMETED TO 

STORE (S-2), CCA; UBB:.(S-1) 

UBA:-(S) ; STORE (S-1) , DCC 

NEXT; STORE (S) , DCC 

SPOA:=(S); CTR:=SHIFT COUNT MOD 64 

UBA: » (S-2), RSB; 

UBB:=(S-1), REPEAT IF CTR <> 



UBA: -SHIFT COUNTj^ JMP^ 

SHIFT UNTIL CTR IS DECREMENTED TO 

STORE (S-2); UBB:-(S-1), JSB TO FINISH 



SPOA:»(S) : SPIB : -UBB :« (S-2 ) (6:10) 

SKIP IF (S) , (S-2) <> 0: 

SP2B:-(S-2) . (0:7) :«X177, SKIP IF (S-2). (6:1) 

JSB IF (S), (S-1) , (S-21 .(6:42) • 0; 

SP3B:-0, Sl^l IF NOT (S-2). (6:1) 

SP4A:-0; RH:-MASK TO TEST BIT 7 

UBB:-(S-2); UBB:-(S-1), REPEAT IF Fl 

REPEAT AND INCTREMENT CTR UNTIL (S-2). (6 1) 

UBA: -NORMALIZED (S-2) ; 

RB: -NORMALIZED (S-1), ICTR 

SET BIT 6 IN (S-2); UBB: -SHIFT COUNT 

X:-X (CONDITIONALLY! + SHIFT COUNT; 

(S-2) : -NORMALIZED (S-2), CCA 

(S) : -NORMALIZED (S); NEXT 

JUMP BACK; UBB: -42 
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RECORD C S. «.».«».«•.« fti_u /^ .«<........ ••***•.>•*... ;^Lu g .*..**«.«*•.<• 

HO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

19450 •.«>•«««<•««•••<..*>««...«>.«.«««»«•*.•.•..............«.«.•.*..>,•.•« 

19451 • Test TOS (TEST) Instruction * 

19453 • 

19454 SLUT INSTR-TEST:0 000 010 101 xxx xxx, ENTRY-TEST, SR-1 

19455 • 

19456 13EF TEST ADD RA JSB XCHl UNC ; UBB :« (S), jump to finish 

19458 * 

19459 •««««««.•.»•««««*«««.*«»,.>. .>..**<i*«>. ••.»...<.».. .«>«.«...>. ........ 

19460 • Test double word on TOS (DTST) Instruction • 

19461 ...«...«......«.....................«.......»............«.«»....<,«.. 

19462 

19463 SLUT INSTR-DTST;0 000 010 111 xxx xxx, ENTRY«DTST, SR"2 

19464 • 

19465 13F0 DTST RB JSZ DTSl UNC RA RA LINK CCRY UBA :• fiisw + Isw(O); Clear carry bit in STA 
19467 

1946 S ...»»*...•»»*.».*«.....*...».»......».*................».*».•........ 

19469 * Test byte on TOS (BTST) Instruction • 

19470 »«.«.*.....«».*..»...«.....•........«.....»»....».*».*....»..*....... 

19471 * 

19472 SLUT INSTR»BTST:0 000 Oil 001 xxx xxx, ENTRY^BTST, SR»1 

19473 • 

19474 13F1 BTST JSZ NEXT UNC RA ADD CCB Jump to NEXT; Set CCB on TOS 
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RECORD 

NO 

19477 
19478 
19479 
19480 
19481 
19482 
19483 
19485 
19487 
19489 
19490 
19492 
19494 
19496 
19498 
19500 
19502 
19503 
19505 
19507 
19508 
19510 
19512 



C.S 
ADDR 



13F2 
13F3 
13F4 

13F5 
13F6 
13F7 
13F8 
13F9 
13FA 

13FB 
13FC 

13FD 
13FE 
13FF 



Linked List Search Instruction 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 

* LINKED LIST SEARCH INSTRUCTION • 

SLUT INSTR=RSW/LLSH/I-O:0 



RC 
RD 



CIR 
STA 



UBB 
RA 



OPA 
UBB 



CSR 
JSZ 
JSZ 



TRP6 
PULM 



JSZC PULM 

INC 

ADD 

CAD 

JSZC NEXT 

JSBC LLS2 



LLS2 
LLS3 



JSB 

JSB 

INC 
JSZ 
ADO 



LLS3 
LLSl 



000 oil 00; 


K XXX 


, ENTRY=LLSH 




POS 
SRL2 


0002 


UBA 
SPIB 


ADDL 
JSLZ 
JSZI 


RSW 
PUL2 


SPIB 




NCRY 

R0X3 
NZRO 
CCA 
NCRY 


SR 
OOFF 

RA 
RA 


SPIB 
RB 

OPB 


JSZC 

ANDL 

ADD 

ADD 

INC 

ADD 


PUL2 


BKX3 
SPIB 
BKX3 


R0X3 
R0X3 


TEST 
R0X3 


UBA 


OPB 
BKX3 


ADD 
XFRS 




RA 
RB 




CCA 

UNC 


RREG 


SPIB 


LINK 

ADD 

ADD 




RA 





POS 
SRZ 
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SP4A .« CIR 4csr(l); SPIB ;= 2 (for I/O) 

JMP if I/O or RSW instr else mode violation? 

Pull 2 TOS if SR » else pull 1 if SR = 1 

; UBB :« 3 (only for when SR >= 3 on entry) 

Fill TOS to at least 4 

X := X + 1 to negate 1st check; BKX3 := bank 

Read target word 

X:=X - 1, SKIP IF <> 0; READ NEW LINK BANK 

CCL IF X=0, JSB FOR NEXT; READ NEW LINK ADDR 

TERMINATE IF NOT (TEST WORD > TARGET); 

BKX3 : =LINK BANK 

UBA:=TARGET, JSB IF INTERRUPTS; RA : =ADDR 

READ NEW TARGET WORD, LOOP BACK; 

RREG:=TARGET, RB;=NEW LINK BANK 

INCR TARGET, CCG IF ALL IS ELSE CCE , NEXT 

JSB TO INTERRUPT HANDLER; RESTORE RA 

NOP to keep system happy (2555) 
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RECORD 

NO 

19515 
19516 
19517 
19518 
19519 
19520 
19521 
19522 
19523 
19524 
19525 
19526 
19527 
19528 
19530 
19531 
19533 
19534 
19536 
19537 
19539 
19540 
19542 
19543 
19545 
19546 
19548 
19549 
19551 
19552 
19554 
19555 
19557 
19558 
19560 
19561 
19563 



C S. 
ADDR 



1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
140A 
140B 



Decimal Instruction Set 

* « * * * ft « A A * * ALU A A********** * A It ft * A A * ft * *** ALU B *** A Aft * ft ft ft ft ft * ft 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



DEC is the entry point for the decimal instruction set 

The last four bits of the op-code are used to index the 
decimal jump table. 



10/ 2/86 9:27 AM 



SLUT INSTR'EDIS:0 010 000 llx xxx xxx, 
X1400 
1400 DECT 0070 CIR ANDL 
0060 CIR ANDL 
ADD 



DSPL-4. ENTRY-DEC 



0060 


CIR 


ANDL 


0080 


CIR 


ANDL 


0040 


CIR 


ANDL 


0040 


CIR 


ANDL 


0040 


CIR 


ANDL 


0040 


CIR 


ANDL 


0040 


CIR 


ANDL 


0040 


CIR 


ANDL 


0040 


CIR 


ANDL 



XR2 
XR4 
XR6 
XR6 
XR6 
XR6 
XR6 
XR6 
XR6 



JSL 


DMPY 




JSL 


CVAD 




JSL 


CVDA 




JSL 


CVBD 


XR2 


JSL 


CVDB 


XR2 


JSL 


SLD 


XR2 


JSL 


SLD 


XR2 


JSL 


SRD 


XR2 


JSL 


ADDD 


XR2 


JSL 


ADDD 


XR2 


JSL 


ADDD 


XR2 


JSL 


MPYD 


XR2 



UNC 


1 


UNC 


2 


UNC 


3 


UNC 


4 


UNC 


5 


UNC 


6 


UNC 


7 


UNC 


8 


UNC 


9 


UNC 


A 


UNC 


B 


UNC 


C 



DOUBLE LOGICAL MULTIPY; 

CHECK CIR ( 9:3 ) 

ASCII TO DECIMAL CONVERSION; 

CHECK CIR ( 9:2 ) 

DECIMAL TO ASCII CONVERSION; 

BINARY TO DECIMAL CONVERSION; 

CHECK CIR ( 9:2 ) 

DECIMAL TO BINARY CONVERSION; 

CHECK CIR ( 9:2 ) 

DECIMAL LEFT SHIFT; 

CHECK CIR ( 9:1 ) 

DECIMAL NORMALIZING LEFT SHIFT; 

CHECK CIR ( 9:1 1 

DECIMAL RIGHT SHIFT; 

CHECK CIR ( 9:1 ) 

DECIMAL ADD; 

CHECK CIR (9:1) 

DECIMAL COMPARE; 

CHECK CIR 1 9:1 ) 

DECIMAL SUBTRACT; 

CHECK CIR ( 9:1 ) 

DECIMAL MULTIPLY: 

CHECK CIR { 9:1 ) 
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RECORD 


C.S. 


NO 


ADDR 


19565 




19566 




19567 




19568 




19569 




19570 




19571 




19572 




19573 




19574 




19575 




19576 




19577 




19578 




19579 




19580 




19581 




19582 




19583 




19584 




19585 




19586 




19587 


140C 


19589 


1400 


19591 


140E 


19593 


14aF 


19595 


1410 


19597 


1411 


19599 


1412 


19601 


1413 


19603 


1414 


19605 


1415 


19607 





DECIMAL -- DECIMAL ENTRY POINT 

• •.«•.*«>*. ALU A •«•<.«••••«<. .*.»»..«.«.«« ALU B «•*•«••*••«*•• 
LABL RREG SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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START OF DECIMAL INSTRUCTION SET 



13 14 
DSPL 



1. ADJUST TOS REGISTERS; ONLY 3 TOS REGISTERS ARE VALID. 

2. CALCULATE ENTRY JUMP TARGET. 

3. ALL EXTENDED REGISTERS USED IN THE DECIMAL INSTRUCTION 
SET ARE WITH REGISTER FLAG SET ( SRF ); & CLEAR ( CRF ) 
ON EXIT OF THE INSTRUCTION. 

4. MOST OF THE INSTRUCTION SET MAKE USE OF XRAl - XRA9 , 
4 XRBO - XRB8 AS TEMPORARY DATA BUFFERS. THEY ARE 
TWO IDENTICAL COPIES. THESE BUFFERS ARE INITIALLY 
ZEROED BEFORE FETCHING DATA, 



POS 
SRZ 

SRL2 





DSPL 


JSZ 


TRP 




ZERO 


FFF3 




ANDL 




CTX 






INC 


LSL 




CF2 


RREG 


UBA 


JSZ 


TRP 




SR 


UBA 


JSZC 
JSZ 


ET03 
PULM 




CRRY 
NF2 


UBA 




JSZC 
JSZ 


PULM 
PUL2 


SP3B 


DECT 


DSPL 


ADDL 


LBL 






SP3B 




CSR 




RF 


UBA 




CAD 
ADD 




XRO 


WRD 
RAR 






ADD 
ADD 




XRO 
XRl 






ADD 




XRl 


CF3A 




RC 


ADD 




XR26 






ADD 




XRIO 








ADD 




XR9 




STA 


ADD 






HBF2 


FFE3 




ADDL 




SPIB 



TRAP IF DSPL :■ 0; MASK, CLEAR CTX 

2, CF2j^ TRAP IF DSPL >• D 

EMPTY TOS TO 3; PULM IF SR := 

PULM IF NF2; PUL2 IF SR < 2 

CALCULATE JUMP TARGET; RF := 8000, SRF 

ADJUSTED JUMP TABLE ADDR; XRBO :• 

YRA, XRAO :- 0; XRBl :• 0, CLEAR OVERLFOW 

XRAl :• 0, CF3A; SAVE RC ( FOR MPYD ) 

XRAIO ;• 0; XRB9 ;- 

SET F2 IF ^RIV MODE; 

SPIB :- -( VALID DI6IT COUNT ), TO JMP TABLE 
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RECORD 

NO 

19609 
19610 
19611 
19612 
19613 
19614 
19615 
19616 
19617 
19618 
19619 
19620 
19621 
19622 
19623 
19624 
19625 
19626 
19627 
19628 
19629 
19630 
19631 
19633 
19635 
19637 
19639 
19641 
19642 
19644 
19646 
19647 
19649 
19651 
19662 
19654 
19655 
19657 



C.S. 
ADDR 



CVAD -- ASCII TO DECIMAL CONVERSION 

• *••••••••* /^\_\} p^ a********** *•••«* itt ««••• A|_u B •«*••« ••••••It* 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



ASCII TO DECIMAL CONVERSION 



SR 

RA :- SOURCE DIGIT COUNT 
RB :- SOURCE BYTE ADDRESS ( DB REL ) 
TARGET DIGIT COUNT 
TARGET BYTE ADDRESS ( DB REL ) 
( VALID AFTER PULM ) 

TARGET ADDR :- ASCII SOURCE CONVERTED TO PACKED 
DECIMAL. ASCII SOURCE MUST BE LEADING BLANKS ( X40 ) 
OR DECIMAL DIGITS. THE RIGHTMOST DIGIT MAY BE SIGNED. 
BOTH DIGIT COUNTS MUST BE IN THE RANGE <» N <= 28. 
IF EITHER DIGIT COUNT IS ZERO ONLY THE SDEC IS 
PERFORMED. 
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1416 
1417 
1418 
1419 
141A 

141B 
1410 



141F 
1420 



RC 


RB 

SPIB 
RA 
DB 


ADD 
JSB 
JSB 
ADD 
ADD 


AD17 
SD24 


RG 


CRRY 
ZERO 
NFSS 
CFl 


RA 

2 
UBA 


SPIB 
RC 
DB 
DL 


JSZ 
JSB 
JSB 
SUB 
SUB 


PULM 
AD17 
SD24 




CFl 
CTFl 


UNC 
CRRY 
ZERO 
NCRY 


RA 


RC 


ADD 
CAD 




RH 




0003 




JSL 
ADDL 


CKCD 


CTR 




UNC 
NF5B 


UBA 
SPOA 


RA 
SPIB 


ADD 
ADD 




RH 
RF 


ROD 






ADD 
JSL 


CKAB 




SF4B 


UNC 




OPA 


ADD 


RRZ 




CF3A 




RC 


JSBS 


CADI 


XRO 




F4B 


UBA 


UBA 


ADD 


LSL 


RH 


UNC 


0001 




ADDL 




CTR 







SAVE RB; PULM FOR RD 

TRAP IF RC > 28; TRAP IF RA > 28 

DEC STACK & NEXT IF RA OR RC :» 

SKIP IF NOT SPLIT BANKS; SKIP IF DB > Z 

; Fl SET IF NOT SPLIT STACK: 

( (NFSS) AND (Z>=DB) AND (DB>.DL) ) 
RH: -NIBBLE COUNT; GO CHECK TARGET ADDRESS 
UBA:.RA-1; 

CTR:«3 (DEC DIGS TO FILL WD), SKIP IF F5B=0 
RH:-NIBBLE COUNT (2RA-1); F4B:-F5B 
OPA: 'TARGET SIGN WD, RF: 'TARGET ADDRESS: 
CHECK SOURCE ADDRESS 

UBA:«POSS. EXTRA BYTE IN TARG SIGN WD; 
XRBO:=-(DEC CNT), JUMP IF TARG SIGN WD FULL 
RH(6:8I :«EXTRA BYTE, SKIP; 
CTR:=1 (DEC DIGITS TO FILL WD) IF EXTRA BYTE 
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RECORD 

NO 

19659 
19660 
19661 
19662 
19663. 
19664 
19665 
19666 
19667 
19669 
19670 
19672 
19673 
19675 
19676 
19678 
19679 
19681 
19d82 
196E4 
19686 
19688 
19690 
19692 
19694 
19696 
19698 
19700 
19702 
19704 
19706 
19708 
19710 



CVAD -- ASCII TO DECIMAL CONVERSION 
C.S. «..«.*•,.:.» /vLu A •••«•«•*«•• ..»..(,.*.*... ALU B •*«*••««••••** 
ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CADI -4 SET UP RE ( 4:8 ) WITH THE EXTRA BYTE IN THE 
TARGET SIGN WORD ( IF ANY ), LOAD RE ( 0:4 ) WITH THE 
APPROPRIATE SIGN PATTERN, AND SET THE CONDITON CODE. 
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1421 CADI UBA UBA SUB 



1425 

1426 
1427 
1428 
1429 
142A 
142B 
142C 
142D 
142E 
142F 
1430 
1431 
1432 
1433 
1434 



RREG SREG ADD LSL RH 

RA SUB XRO CCA 



FF83 SP2B ADDL 



SP3B SP4A ADD 

UBB CAD 

OPB ADO 



SP3B ROD FSB 
SP3B ROD UNC 
SP2B SF4B UNC 



SREG ADD LRZ SP2B CF4E 
CTRS ADD LSR LBFE 



CAD2 
CAD3 
CAD4 0004 



0002 UBA 
RREG 
0023 RG 
0009 UBA 

0009 UBA 
0007 UBA 

UBA 
OOOA UBA 

0010 UBA 
0004 

RE 



ADDL 

ADD 

ADDL 

ADDL 

ADDL 

ADDL 

ADD 

ADDL 

ADDL 

ADDL 

ADD 

CAD 

ADDL 

ADD 



FFC6 




ADDL 




SP2B 




UBA 


JSL 


CAD7 




CFFF 


RE 


ANDL 




RE 




RG 


JSL 


CAD7 


RH 




UBA 


JSB 


AD14 


RH 




UBA 


JSL 


CAD3 


RH 




UBA 


JSL 


CAD4 


RH 




UBA 


JSB 


AD14 


RH 


FOOD 


RE 


lORL 




RE 




UBA 


JSL 


CAD7 


RH 




UBA 


JSB 


AD 14 


RH 




UBA 


JSL 


CADC 


RG 


1000 


RE 
RH 


lORL 
INC 




RE 




UBB 


JSL 


CAD6 


RH 



ZERO 

ZERO 

PCS 

PCS 

POS 

POS 

POS 
NZRO 

UMC 



RH:-0 IF NO EXTRA BYTE, SKIP; 

OPB:=SOURCE SIGN WD, SP3B:=ADDR, WORD FULL? 

RH(4:8) :«EXTRA BYTE; 

IF NOT FULL, DEC ADDR A GET FULL WD, SKIP 

XRAO:=- (ASCII COUNT), COND CODE : =■ "<0" 

SP2B(8:8) ;=SIGN BYTE IF WD FULL, F4B:=1,SKIP 

SP0A:=0 (CCE INDIC, ) ; 

SP2B(8: 8) :=SIGN BYTE IF WD NOT FULL, F4B:=0 

RE:=MINUS SIGN (AND POSSIBLE EXTRA BYTE) 

F5B:=(RE LACKS > 1 DECIMAL DIGITS) 

RH:=SIGN BYTE - «175; SP2B:=-%72 

RG:-SIGN BYTE - %173; JUMP IF DIGIT IS -0 

COND CODE:- ">0"; RE (0:4) -PLUS SIGN 



UBA 

UBA 

UBA 

UBA 

UBA 

UBA 

UBA 

UBA 

CBAO =■> AOCB; RG 

COND CODE:» "<0" 

INIT RG FOR LOOP 



SIGN BYTE 

=SIGN BYTE 

=SIGN BYTE 

=SIGN BYTE 

=SIGN BYTE 

=SIGN BYTE 

-SIGN BYTE 

4 



%123; RH:=SP4A, JUMP IF +0 
%112; RH:-UBA, JUMP IF ERR 
%101; RH:=UBA, JUMP IF NEG 
%72; RH:=UBA, JUMP IF POS 
%72; RH:=UBA, JUMP IF ERROR 
%60; RE(0:4):=F (UNSIGNED) 
%40; RH:-UBA, JUMP/UNSIGNED 
RH:-UBA, JMP IF INV DIGIT (NOT BLNK) 
"" 4. JUMP TO BLANK LOOP 
RE(0:4) :«MINUS SIGN 
ADJUST DIGIT RESIDUE 



UBB, RH: -DECIMAL PATTERN, JUMP TO LOOP 
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CVAD 


-- ASCII 


TO DECIMAL 


CONVERSION 
















RECORD 


C.S. 




« « * * 


ft * ■ * ft 


»• ALU A • 




* ft * * 




ft ft • ft 


ALU B 


ft III ft ft 


ft ft ft ft « 


ft ft ft ft 


NO 


ADDR 


LABL 


RREG 


SREQ 


FUNC 


SFNC 


STOP SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


19713 




, 


























19714 




• 




CA05 


& CAD6 COMPRISE THE MAIN 


- INNER LOOP " OF THE CVAD 


19715 




« 




ROUITNE 


EACH 


ASCII DIGIT IS 


PLACED INTO THE 


LOWER 8 




19716 




* 




BITS 


OF RH, CHECKED FOR VALIDITY, STRIPPED OF 


EXTRA BITS, 


19717 




* 




EFFECTIVELY SHIFTED RIGHT 


4 BIT POSITIONS INTO RE 


[N 




19718 




* 




ORDER TO OBTAIN ITS DECIMAL REPRESENTATION, AND WRITTEN 




19719 




* 




TO THE APPROPRIATE TARGET 


LOCATION WHEN 


RE IS 


FULL 


IF 




19720 




« 




ASCII RUNOUT OCCURS, OR AN ASCII BYTE < 


X60 IS DETECTED 




19721 




* 




( BLANK ) 


THE 


CADA, CADB 


CADC LOOP IS 


ENTERED. 






19722 




* 


























19723 




* 


























19724 


1435 


CAD5 






JSB 


CADA 


NFZ 




OPB 


ADD 


LRZ 


RH 


CF4B 


F4B 


19726 






























19727 


1436 




0010 




ADDL 




SP4A 




SREG 


ADD 


RRZ 


RH 


SF4B 


UNC 


19729 






























19730 


1437 




FFDO 




ADDL 






SP3B 




CAD 




SP3B 


ROD 




19732 


1438 




RH 


SP2B 


JSB 


AD14 


CRRY 


RH 


UBA 


JSB 


CADB 


RH 




NCRY 


19734 


1439 


CAD6 


UBB 


RE 


ADD 


SWAB 








ADD 










19736 


143A 




UBA 


UBA 


ADD 


LSL 




UBA 


UBA 


LINK 






DCTR 




19738 


143B 




UBA 


UBA 


ADD 


LSL 


RE 


UBB 


UBB 


LINK 










19740 


143C 




SPOA 


RH 


lOR 




SPOA 




XRO 


JSBI 


CADS 


XRO 




ZERO 


19742 






























19743 


143D 






XRO 


INC 




XRO HBF2 




CTRS 


ADD 


LSR 




LBF5 


NF5B 


19745 






























19746 


143E 






RF 


ADD 




WRD 






JSL 


CADS 






UNC 


19748 


143F 






RE 


ADD 




DATA 






ADD 




RE 


SF5B 




19750 


1440 




RF 




CAD 




RF ROD 




RG 


JSL 


CADS 


CTR 




UNC 


19752 






























19753 


1441 


CA07 


0004 




ADDL 




RG 




RH 


JSL 


CADS 






UNC 
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JUMP FOR ZERO FILL IF ASCII RUNOUT; 

RH(8:8) :-OPB(0:8) , F4B:-0, SKIP IF F4B 

SP4A:.0010 (USED FOR BLANK CHECK AT CADB); 

RH(8:8) .«OPBI8;8) IF R BYTE NEXT , F4B : =1 , SKIP 

UBA:»-%60; IF L BYTE NOW, GET NEXT WD 

TRAP IF RH >• %72: RH:«RH-%60, JUMP IF < 

OOOD CBAO •> ADCB, 

SHIFT UBA, UBA LEFT 2 BITS; DEC DIGIT COUNT 

RE:-DCBA (DECIMAL DIGIT HAS BEEN SHIFTED IN) 

CAPTURE NONZERO BITS IN SPOA; 

INCREMENT DECIMAL DIGIT COUNT, JUMP IF DONE 

INC ASCII DIGIT CNT, F2 : -0 IF ASCII RUNOUT 

F5B:»iRE LACKS > 1 DIGITS), SKIP IF RE FULL 

YRA:«TARG ADDR; LOOP IF RE NOT FULL 

WRITE RE TO MEM IF FULL; RE:"0, F5B:-1 

DEC TARG ADDR, OPA : -WD AT TARG ADDR; 

CTR: -4 (NIBBLES TO GO), JUMP TO LOOP 

INIT RG FOR LOOP; UBB:-RH, JUMP INTO LOOP 
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CVAD 


-- ASCII 


ro DECIMAL CONVERSION 














RtCORD 


C S. 




* * * * 


* * * * * 


»• ALU A « 




A * A A 


* * A * * 


A A A A 


^LU B 


A A A A 


A A A A A 


A A A A 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


197S6 






























19757 






























19758 






























19759 








CADA 


, CADB, 4 CADC COMPRISE THE ASCII RUNOUT/ 


LEADING 




19760 








BLANKS INNER LOOP IN THE CASE OF 


^SCII 


RUNOUT 






19761 








( RA 


< RC 


1 . ZERO FILL IS 


PLACED IN 


THE 


TARGET FIELD. 




19762 








IN THE CASe OF 


BLANKS. EACH SUBSEQUENT ASCII BYTE 


IS 




19763 








CHECKED TO MAKE SURE THAT 


IT ALSO IS A BLANK. 


AND 






19764 








ZERO 


FILL 


IS PLACED IN THE TARGET FIELD. 










19765 






























19766 






























19767 


1442 


CADA 






JSB 


CADC 


NF2 




OPB 


ADD 


LRZ 


RH 


CF4B 


F4B 


19769 






























19770 


1443 






RE 


ADD 


SWAB 






SREG 


ADD 


RRZ 


RH 


SF4B 


UWC 


19772 






























19773 


1444 








ADD 






SPSS 




CAD 




SP3B 


ROD 




19775 


1445 


CADB 




RE 


ADD 


SWAB 




RH 


SP4A 


JSB 


AD14 






NZRO 


19777 


1446 


CADC 


UBA 


UBA 


ADD 


LSL 




UBA 


UBA 


LINK 






DCTR 




19779 


1447 




USA 


UBA 


ADD 


LSL 


RE 


UBB 


UBB 


LINK 










19781 


1448 






XRO 


INC 




XRO HBF2 




XRO 


JSBI 


CAD8 


XRO 




ZERO 


19783 






























19784 


1449 




FFEO 




ADDL 




SP4A 




CTRS 


ADD 


LSR 




LBF5 


NF5B 


19786 






























19787 


144A 






RF 


ADD 




WRD 






JSL 


CADA 






UNC 


19789 


144B 






RE 


ADD 




DATA 






ADD 




RE 


SF5B 




19791 


144C 




RF 




CAD 




RF ROD 




RG 


JSL 


CADA 


CTR 




UNC 


19793 






























19794 




'1 


























19795 




" 


























19796 




" 




CADti 


4 CAD9 WRITE THE LAST 1 - 


4 DECIMAL 


DIGITS 






19797 




" 




( IN 


RE ) 


TO THE APPROPRIATE 


TARGET ADDRESS. 








19798 




i« 


























19799 




i< 


























19800 


144D 


CADS 




RE 


ADD 


SWAB 






CTRS 


JSL 


CAD9 






EVEN 


19802 


144E 




UBA 


UBA 


ADD 


LSL 




UBA 


UBA 


LINK 






DCTR 




19804 


144F 




UBA 


UBA 


ADD 


LSL 


RE 


UBB 


UBB 


LINK 










19806 


1450 


CAD 9 




OPA 


ADD 


LRZ 






RF 


ADD 






WRD 


CTRCI 


19808 






























19809 


1451 




SPOA 




ADD 




NZRO 


UBA 


RE 


ADD 


SWAB 




DATA 


UNC 


19811 






























19812 


1452 








ADD 




CCA 




RE 


ADD 






DATA 




19814 
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JUMP FOR ZERO FILL IF ASCII RUNOUT; 

RH(8:8) :«OPB(0:8) , F4B:=0, SKIP IF F4B 

CBAO => AOCB; 

RH(8.8) :=OPBt8:8) IF R BYTE NEXT , F4B : =1 , SKIP 

; IF LEFT BYTE NOW, GET NEXT WORD 

CBAO => AOCB; TRAP IF NOT BLANK 

SHIFT UBA, UBA LEFT TWO BITS; DEC DIGIT COUNT 

RE:> OCBA (ZERO HAS BEEN SHIFTED IN) 

INC ASCII DIGIT CNT, F2 : =0 IF ASCII RUNOUT; 

INCREMENT DECIMAL DIGIT COUNT, JUMP IF DONE 

SP4A;=-X40 (BLANK) ; 

FSB: •(RE LACKS > 1 DIGITS), SKIP IF RE FULL 

YRA:=TARG ADDR; LOOP IF RE NOT FULL 

WRITE RE TO MEMORY IF FULL; RE:=0, F5B:=1 

DEC TARG ADDR, OPA : =WORD AT TARGET ADDRESS; 

CTR: =4 (NIBBLES TO GO), JUMP TO LOOP 



CBAO => AOCB: JUMP IF UNFILLED NIBBLES EVEN 
SHIFT UBA, UBA LEFT 2 BITS; DEC DIGIT COUNT 
RE:=0CBA (ZERO HAS BEEN SHIFTED IN) 
UBA(8:8) :»POSSIBLE EXTRA TARGET BYTE; 
YRB:=TARGET ADDRESS, SKIP IF RE FULL 
SKIP IF RESULT NONZERO; 

IF RE NOT FULL, WRITE EX. BYTE 4 DIGS TO MEM 
COND CODE:- "-O" IF RESULT IS ZERO; 
WRITE RE TO MEMORY IF FULL 
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RECORD 


C S. 


NO 


ADDR 


19816 




19817 




19818 




19819 




19320 




19BJ1 




10822 




19823 




19824 




19825 


1453 


19827 


1454 


19829 


1455 



DECIMAL -- SD24 10/ 2/86 9:27 AM 

........... ALU A •*••«.**•«» *....*......« ALU B **••««••••••»• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



• SD24 --- WILL POP THE STACK TWO OR FOUR TIMES. 

IF CIR ( 11 1 ) := , DECREMENT BY 2 , OR 
'1 , DECREMENT BY 4. 

SD24 0010 CIR ANDL ADD EPP2 CHECK CIR ( 11:1 ); P0P2 

ADD UBA ADD CRF ZERO ; SKIP IF CIR ( 11:1 ) :« 

JSZ NEXT UNC ADD EPPZ JUMP FOR NEXT; POP TWO MORE IF SDEC=1 
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DECIMAL 


-- CHECK SOURCE & TARGET ADDRESSES 










RECORD 


C S. 




A * A A 


A A A A 


••• ALU A • 


A A 


tAAAAAA A A A * A A A A A A A A A 


ALU B 


A A A A « 


A A A A 


A A A A 


NO 


ADDR 


LABL 


RREQ 


SREG tFUNC 


SFNC 


STOR SPSK RREG SREG FUNC 


SFNC 


STOR 


SPEC 


SKIP 


19832 




* 






















19833 




* 




ROUTINE TO DO BOUNDS CHECKING ON TARGET 


FIELD 









19834 




* 






















19835 




* 




ON 


ENTRY 
















19836 




» 






















19837 




* 








RD 


; = 


TARGET BYTE ADDRESS ( 


DB REL 1 






19838 




* 








RH 


; s; 


TARGET DIGIT COUNT 










19839 




* 








Fl 


■ K 


0, IF SPLIT STACK ( ELSE :- 


1 ) 






19840 




* 








F3 


; s 













19841 




* 






















19842 




* 




ON 


EXIT 
















19843 




* 






















19844 




* 








SPOA 


; = 


TARGET MSW ADDRESS 










19845 




* 








SPIB 


■ E 


TARGET WORD COUNT - 1 










19846 




* 








Fl 


; = 


F3 










19847 




* 






















19848 


1456 


CKCD 




RD 


ADD 


LSR 


RH 


NFl RD ADD 






LBF5 




19850 


1457 






SM 


ADD 






SF3A RH ADD 


LSR 


SPIB 


LBF5 


NF5B 


19852 


























19853 


1458 




UBA 


DB 


SUB 






NFl UBB INC 




SPIB 


LBF5 




19855 


























19856 


1459 




RH 


UBA 


CAD 






CTFl ADD 










19858 


145A 






RD 


ADD 


LSR 




FIHB SPIB ADD 


LSR 


SPIB 






19860 


145B 




UBA 


DB 


ADD 




SPOA UBB SM RSUB 










19862 


























19863 


145C 




UBA 


DL 


!BNDE 






UBB UBA BNDE 










19865 


145D 








ADD 






ADD 








RSB 


19867 


























19868 


























19869 


























19870 








ROUTINE TO DO BOUNDS CHECKING ON SOURCE 


FIELD 









19871 


























19872 








ON 


ENTRY 
















19873 


























19874 












RG 


; M 


SOURCE BYTE ADDRESS ( 


DB REL 1 






19875 












RH 


\ : 


SOURCE DIGIT COUNT 










19876 












F3 


; E 


0, IF SPLIT STACK ( ESLE :- 


1 ) 






19877 


























19878 








ON 


EXIT 
















19879 


























19880 












SP4A 


; E 


SOURCE MSW ADDRESS 










19881 












SP3B 


; a 


SOURCE WORD COUNT - 1 










19882 


























19883 


145E 


CKAB 




RG 


ADD 


LSR 


RH 


RG ADD 






LBF5 




19885 


145F 






SM 


ADD 






RH ADD 


LSR 


SP3B 


LBF5 


NF5B 


19887 


























19888 


1460 




UBA 


DB 


SUB 






NF3A UBB INC 




SP3B 


LBF5 




19890 


























19891 


1461 




RH 


UB/H 


CAD 






CTFl ADD 










19893 


1462 






RG 


ADD 


LSR 




FIHB SP3B ADD 


LSR 


SP3B 






19895 


1463 




UBA 


DB 


ADD 




SP4A UBB SM RSUB 










19897 


























19898 


1464 




UBA 


DL 


BNDE 






UBB UBA BNDE 










19900 


1465 








ADD 






ADD 








RSB 


19902 



























10/ 2/86 9:27 AM 



RH:-DB REL WORD ADDR; FSB : =LSB( BYTE ADDR) 
UBA:-SM, F3A:»1 IF Fl-1; 

SPIB: "BYTE CNT - 1 , SET FSB IF SIGN WD FULL 
UBA:»SM-DB, SKIP IF SPLIT STACK; 
INC SPIB IF LSB(8YTE ADDR).l 
F1:.(PTR > (SM-DB)) AND (NOT SPLIT STACK) 
UBA:=PTR+32K IF Fl; SP3B:=W0RD COUNT - 1 
SPOA :=MSW ADDR; UBB:=SM-SP3B 
TICB TO SLOW DOWN RSB (1000 

(1010) 

BNDV IF MSW ADDR < DL IN USER MODE; 
BNDV IF LSW ADDR > SM IN USER MODE 



RH:=DB REL WORD ADDR; FSB : =LSB(BYTE ADDR) 

UBA:=SM; 

SP3B:"BYTE CNT - 1, SET FSB IF SIGN WD FULL 

UBA:»SM-DB, SKIP IF SPLIT STACK; 

INC SP3B AND CORRECT FSB IF LSB(BYTE ADDR ) = 

F1:-(PTR > (SM-DB)) AND (NOT SPLIT STACK) 

UBA:=PTR+32K IF Fl; SP3B : =WORD COUNT • 1 

SP4A:-MSW ADDR; UBB:-SM - SP3B 

TICB TO SLOW DOWN RSB (1000 

(1010) 

BNDV IF MSW ADDR < DL IN USER MODE ; 

BNDV IF LSW ADDR > SM IN USER MODE 
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RECORD 

NO 

19904 
19905 
19906 
19907 
19908 
19909 
19910 
19911 
19912 
19913 
19914 
19915 
19916 
19917 
19918 
19919 
19920 
19921 
19922 
19923 
19924 
19925 
19926 
19927 
19928 
19929 
19930 
19931 
19932 
19933 
19935 
19936 
19938 
19939 
19941 
19942 
19944 
19946 
19947 
19949 
19951 
19952 
19954 
199^,6 
19957 
19959 
19961 
19963 
19964 
19966 
19967 
19969 
19971 
19972 
19974 
19976 



C.S 
ADDR 



1466 

1487 

1468 

1469 
146A 

146B 
146C 

146D 
146E 

146F 
1470 
1471 



CVDA -- DECIMAL TO ASCII CONVERSION 

..*.......> ALU A •*•««•«*«•• ............. ALU B •••••••••«•••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 



DECIMAL TO ASCII CONVERSION 



10/ 2/86 9:27 AM 



SR 

RA 
RB 
RC 



SOURCE BYTE ADDRESS ( DB REL ) 

SOURCE DIGIT COUNT 

TARGET BYTE ADDRESS ( DB REL ) 



TARGET ADDR := PACKED DECIMAL CONVERTED TO ASCII. 
OP CODE BIT 9 & 10 AFFECT THE SIGN OF THE RESULT 
AS FOLLOWS : - 



BIT 9 BIT 10 



TARGET SIGN 

SAME AS SOURCE 

NEG IF SOURCE IS NEG , ELSE UNSIGNED 

UNSIGN 



AN UNSIGNED RESULT IS CONSIDERED POSITIVE WHEN SETTING 
THE CONDITION CODE, RESULTING THE CCG OR CCE . LEADING 
ZEROS ARE CONVERTED TO ZEROS. THE SOURCE IS ASSUMED 
TO HAVE THE SAME NUMBER OF DIGITS AS THE TARGET. IF 
THE DIGIT COUNT IS ZERO, ONLY SDEC IS PERFORMED. 





RB 


J SB 




DB 


ADD 




RB 


SUB 


RB 
RB 


UBA 


CAD 
ADD 


SPOA 


RB 


ADD 
ADD 


E700 




ADD 
ADDL 




SP4A 
RC 


ADD 
ADD 
ADD 


0030 


UBB 


lORL 


0001 
FFF6 




ADDL 
ADDL 


SPOA 


RB 


ADD 
JSB 





ZERO 


RB 


SPIB 


JSB 


DA17 






CRRY 




NFSS 


Z 


DB 


SUB 






CFl 


NCRY 




CFl 


UBA 


DL 


SUB 






CTFl 




RH 




RC 


UBA 
SREG 


XFRR 

JSL 


CKCD 


RD 
SP2B 




UNC 


RH 


ROBD 




RA 


ADD 

JSL 


CKAB 


RG 

CTX 




UNC 


RD 
XR3 




3030 


SP4A 


INC 
ADDL 




XRO 
XR3 


ROAD 






ROBD 
EVEN 


RC 


UBB 
OPB 
SREG 


ADD 

XFRR 

ADD 


LLZ 


RE 


CF2 
SF2 


EVEN 


RE 




0004 




ADDL 




CTR 






RG 
XRO 






RA 
OPB 


ADD 
ADD 


RLZ 


RH 


CFl 


EVEN 
UNC 




WRD 

ODD 


0002 


SREG 


ADD 
ADDL 




RH 
CTR 




UNC 



DEC STACK & EXECUTE NEXT INSTR IF RB=0; 
TRAP IF RB>«29 

UBA:-DB, SKIP IF NOT SPLIT BANKS; 
Fl-O, SKIP IF Z<DB 

UBA:--RB; Fl SET IF NOT SPLIT STACK: 
( (NFSS) AND (Z>-DB) AND (DB>=DL) ) 
UBA:>RB»1; RD : «RC (TARGET BYTE ADDRESS) 
RH:"TARGET NIBBLE COUNT (2RB-1); 
SP2B:»-RB (DIGIT CNT ) , GO CHECK TARG ADDRS 
OPB:«FRST TARG WD; RG:«RA (SOURCE BYTE ADDR) 
RH:>RB( SOURCE NIBBLE CNT), COND CODE : = ">0"; 
CTX:-0, GO CHECK SOURCE ADDRESSES 
RD:»0(CCE IND); OPA : -SEC SRCE WD, XRBO : =ADDR 
XRA3:-E700 (FOR USE AFTER DA1-DA3 LOOP): 
XRB3:=^3030 (FOR USE IN DA1-DA3 LOOP) 
OPB:=FRST SRCE WD; RE : =303O( EXTA ASCII BITS) 
; F2:=0("L ASCII BYTE"), SKIP/TARG ADDR EVEN 
SKIP IF TARGET ADDRESS EVEN; 

IF TARG ADDR ODD, F2:=l ("RIGHT ASCII BYTE") 
IF TARG ADDR ODD, RE ( : 8 ) : =EXTRA BYTE; 
CTR: =4 (DIGITS FROM SOURCE WORD TO GO) 
RG:»1(F0R CTR CHECKS); F1:=0,SRCE ADDR EVEN? 
XRA0:=-10 (USED FOR DIGIT VALIDITY CHECKS): 
IF SOURCE ADDRESS ODD, RH ( : 8 ) : =OPB ( 8 8) 
YRA:=TARG ADDR, IF SRCE ADDR EVEN, RH =OPB 
JUMP IF DIGIT COUNT ODD; 
IF SOURCE ADDRESS ODD, CTR ; =2 (DIGITS TO GO) 
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CVDA 


-- DECIMAL TO / 


^SCII 


CONVERSION 










RECORD 


c.s. 




* A ft A 1 


II A * A * 


** ALU A •' 


* A A A A 


A A A A A 


A A A A 1 


II A A A A 


AAAA ALU B 


AAAA 


AAAAAAAAAII 


NO 


ADDR 


LAEIL 


RREG 


SREQ 


FUNC 


SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC SFNC 


STOR 


SPEC SKIP 


19977 


1477 






RG 


INC 










RH 


ADD SWAB 


RH 


DCTR 


19978 


1478 






RG 


JSBI 


DA2 




MEDJ 


UBA 


CTRS 


SUB 




CTFl 


19980 




























19981 


1479 




GOOF 


RH 


ANDL 








UBA 


CTRS 


SUB 






19983 




* 
























19984 




* 
























19985 




* 




DAI- 


3 COMPRISE 


THE 


MAIN " 


INNER LOOP " OF THE 


CVDA 




19986 




* 




ROUTINE. 


EACH 


DECIMAL SOURCE DIGIT 


IS LOADED 


OR SHIFTED 


19987 




* 




INTO 


THE UPPER 


4 BITS OF 


RH, SHIFTED LEFT 4 BIT POSITIONS 


19988 




* 




INTO 


SP4A 


, CHECKED 


FOR VALIDITY, AND OR ' ED INTO RE 




19989 




* 




( WHICH CONTAINS THE EXTRA ASCII BITS ) TO OBTAIN 


ITS 


19990 




* 




ASCII REPRESENTATION. WHEN RE 


IS FULL. IT IS 


WRITTEN 


19991 




* 




TO THE APPROPRIATE 


TARGET 


LOCATION. 








19992 




* 
























19993 




* 
























19994 


147A 


DAI 






ADD 


LSL 






RH 


RH 


LINK 






19996 


147B 




UBA 


UBA 


ADD 


LSL 


SP4A 




UBB 


UBB 


LINK 


RH 




19998 


147C 


DA2 


UBA 


XRO 


JSB 


DA15 




CRRY 


UBA 


RD 


lOR 


RD 


DCTR 


20000 




























20001 


147D 




RREG 


RE 


ADD 


SWAB 


RE 


NF2 




SP2B 


JSBI DA4 


SP2B 


ZERO 


20003 




























20004 


147E 






UBA 


ADD 


SWAB 




DATA 




CTRS 


ADD 


RF 


SF2 NF2 


20006 




























20007 


147F 








ADD 










XR3 


ADD 


RE 


CF2 


20009 


1480 


DA3 


RG 


RF 


SUB 






CTFl 






JSL DAI 




NFl 


20011 




























20012 


1481 






OPA 


ADD 




RH 


CFl 




XRO 


INC 


XRO 


ROAD 


20014 




























20015 


1482 








JSB 


DAI 




UNC 


0004 




ADDL 


CTR 




20017 




























20018 




























20019 








DA4- 


7 GENERATE 


THE 


APPROPRIATE 


( SIGNED ) REPRESENTATION 


20020 








FOR 


THE LOW ORDER ASCII. 


WRITE 


THE 1 


LAST i-2 ASCII 1 


3IGITS 


20021 








I WH 
AND 


ICH IS IN 1 


»E ). 


TO THE APPROPRIATE TARGET 


ADDRESS. 


20022 








SET THE CONDITI 


ON CODE . 










20023 




























20024 




























20025 


1483 


DA4 


SPOA 


SPIB 


ADD 






ROBD 


FOOD 


RH 


ANDL 


RH 




20027 


1484 




RB 




ADD 






CCA 


FOOO 




ADDL 






20028 


1485 




0040 


CIR 


ANDL 








UBB 


RH 


JSBS DA6 




ZERO 


20030 


1486 






UBA 


JSB 


DA6 




NZRO 


DOOO 


RH 


SUBL 


RF 




20032 


1487 




1900 


RE 


ADDL 




RE 








CAD 




CCA 


20034 


1488 




0020 


CIR 


ANDL 










RF 


JSL DAS 




ZERO 


20036 


1489 




RE 


XR3 


ADD 




RE 


CCA 




UBA 


JSL DA6 




NZRO 


20038 




























20039 


148A 




1000 


UBA 


ADDL 




RE 




3100 




ADDL 






20041 


148B 


DA5 




SP4A 


JSB 


DA6 




NZRO 


UBB 


RE 


SUB 




NCRV 


20043 


148C 




3400 


RE 


ADDL 




RE 




3B00 


RE 


ADDL 


RE 




20045 


1480 


DA6 






ADD 












JSL DA7 


SP2B 


F2 


20047 
20049 
20050 


148E 






RE 


ADD 


LRZ 


RE 






OPB 


ADD RLZ 


SP2B 




148F 


DA7 






ADD 










RD 


ADD 




NZRO 


20052 


1490 




RE 


SP2B 


ADD 


SWAB 




DATA 






ADD 




CCA 


20054 




























20055 




$WARN 























10/ 2/86 9:27 AM 



UBA:»RG+l-2. JUMP (MEDIUM, SO UBA:»DIGIT); 
IF DIG COUNT EVEN, RH : -SWABI RH) , CTR:»CTR-1 
UBA(12:4) :«FRST DIG; Fl:=l IF LAST DIG IN WD 



UBA, UBB: -RH SHIFTED LEFT 2 BITS 
UBA,SP4A(12:4) :=DEC DIG; RH(0:12) 



=RH(4:12) 



TRA^ IF DIGIT 

CAPTURE NONZERO BITS IN RD , CTR:«CTR-1 

RE:-SWAB(RE+DIGIT) , SKIP IF LEFT BYTE; 

SP2B:«SP2B+1 (NEG DIG CNT), JUMP IF LAST DIG 

IF RIGHT BYTE, WRITE ASCII WORD TO TARGET; 

RF:=CTR, F2:"i, SKIP IF NOT RIGHT BYTE 

; IF RIGHT BYTE, RE:«3030, F2:=0 

Fl:=l IF NEXT DIGIT LAST IN SOURCE WORD; 

JUMP IF MORE DIGITS LEFT IN SOURCE WORD 

RH:=NEXT SOURCE WORD; 

XRB0:=XRB0+1(SRCE ADDR ), OPA : =SRCE WD AFT NXT 

JUMP BACK TO LOOP; CTR : =4 (DIGITS TO GO) 



OPB:-DATA AT LAST TARG LOC ; RH(0 : 4 ) : =SIGN 

UBA(9) :-CIR(9) ; JUMP IF SIGN-F (UNSIGNED) 
JUMP IF CIR(9J:-1 (UNSIGNED); RF:.D000-RH 
ASSUME NEG, ADJUST RE; COND CODE : = "<0" 
UBA(IO) :"CIR(10) ; JUMP IF SIGN^=D (MINUS) 



ASSUME POS/UNSGND, ADJ RE, COND CODE 
JUMP IF CIR(10):.l (UNSIGNED) 
ASSUME POS/SIGNED, ADJUST RE; UBB: =3100 
JUMP IF LAST DIGIT NOT ZERO; SKIP IF -0 
ADJUST RE IF -0. ADJUST RE IF +0 
; JUMP IF LAST TARGET WORD FULL, SP2B:=0 
SAVE ASCII BYTE IN RE(8;8), F1;=NF2; 
GET EXTRA BYTE IN SP2B(0:8) 
; SKIP IF RESULT NOT ZERO 
WRITE DATA TO TARGET ADDRESS; 
COND CODE = "=0" IF RESULT IS ZERO 



>0" 
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RECORD 

NO 

20057 
20058 
20059 
20060 
20061 
20062 
20063 
20064 
20065 
20066 
20067 
20069 
20071 
20073 
20074 
20075 
20076 
20077 
20078 
20079 
20080 
20081 
20082 
20084 
20086 
20087 
20088 
20089 
20090 
20091 
20092 
20093 
20094 
20095 
20096 
20097 
20099 
20101 
20103 
20105 



c s. 

ADDR 



DECIMAL -- TRAP ROUTINES FOR CVAD 4 CVDAA SD13 

..«..*...«. f^n] ft ..*...«««.. ......*...*.. ALU B *..«.«.*••*••. 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNG SFNC STOR SPEC SKIP 



SD13 WILL POP THE STACK ONCE OR THREE TIMES. 



10/ 2/86 9:27 AM 



IF CIR ( 11:1 



1491 
1492 
1493 



SD13 0010 CIR 



ANDL 

ADO 

JSZ NEXT 



DECREMENT BY 1, 
DECREMENT BY 3. 



ADD 
ADD 
ADD 



EPOP 

CRF ZERO 

EPP2 



CHECK CIR ( 11:1 ) ; POP 1 
; CRF, SKIP IF CIR ( 11:1 ) 
DO NEXT; POP 2 



TRAP ROUTINES FOR CVAD -- 



CFl 
SFl 



INVALID ASCII DIGIT. 

INVALID DECIMAL OPERAND LENGTH. 



1494 AD14 

1495 AD17 



ADD 
ADD 



CFl 
SFl 



JSL 
JSL 



BDER 
BDER 



UNC CFl; JSB BDER FOR INVALID ASCII DIGIT 

UNC SFl; JSB BDER FOR INVALID DECIMAL OPER LEN 



1496 
1497 
1498 
1499 
149A 



TRAP ROUTINES FOR CVDA --- 

1. CFl IF INVALID DECIMAL DIGIT. 

2 SFl IF INVALID DECIMAL OPERAND LENGTH. 

IF USER TRAP IS DISABLED, SET OVERFLOW & JSB SD13. 



DA 15 ADD 

DA17 2000 STA ANDL 

UBA JSB «+2 ZERO 
JSZ TRPD UNC 
0800 STA lORL STA 



ADD 




CFl 


UNC 


ADD 




SFl 




ADD 




CRF 




JSZ 


TRPR 




Fl 


JSB 


SD13 




UNC 



; CFl, SKIP 

CHECK STA ( 2:1 ), USER TRAP; SFl 
JSB IF USER TRAP DISABLED; CRF 
TRAP TARGETS 
SET OVERFLOW; DO STACK ADJUSTMENT 
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RECORD 


C S 


NO 


ADDR 


20108 




20109 




20110 




20111 




20112 




20113 




20114 




20115 




20116 




20117 




20118 




20119 




20120 




20121 




20122 




20123 




20124 




20125 




20126 




20127 




20128 


149B 


20130 


149C 


20132 


149D 


20134 


149E 


20136 


149F 


20138 


14A0 


20140 


14A1 


20142 


14A2 


20144 


14A3 


20146 


14A4 


20147 


MAS 


20149 


14A6 


20151 




20152 


14A7 


20154 


14A8 


20155 


14A9 


20156 


14AA 


20158 


14AB 


20159 


14AC 


20160 


14AD 


20161 


14AE 


20163 




20164 




20165 


14AF 



CV8D -- CONVERT 4 BINARY WORDS 

....»»».»»» ALU A .......*».. 

LABL RREG SREG FUNC SFNC STOR SPSK 



• •....<,....«. ALU Q »..,....,«*»»« 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



CVBD ( CONVERT 4 BINARY WORDS ) --- 

ON ENTRY : 

BINARY WORDS ARE STORED IN XRA6 - XRA9 . 

ON EXIT 

DECIMAL DATA ARE STORED INTO TWO SETS AT 
XRA5 - XRA9, & XRB4 - XRB8. 

1. FOUR BINARY WORDS CAN BE CONVERTED TO A 
MAXIMUM OF 20 DECIMAL DIGITS. 

2. THE ALGORITHM IS SAME AS CONVERTING 3 BINARY 
WORDS TO DECIMAL DIGITS. 



XR6 ADD 

XR8 ADD 

XR7 ADD 

UBB ADD 

XR9 ADD 

SP4A ADD 

UBA ADD 

SP4A ADD 

UBA XRO XFRS 

RREG UBB XFRS 

RREG ADD 

UBA ADD 

SP4A ADD 
UBA ADD 
UBB ADD 
RG ADD 
XR6 ADD 
UBB XR8 XFRS 
RREG XR13 XFRR 
SREG CSR 



SPOA 
SPOA 

XRO 

SPOA 

RG 

SPOA 

XR9 

XR8 

SPOA 

RG 
XR6 
XR7 
SPOA 

SP4A 
XR5 



UBA 



ADD 



ADD SP2B 

UBA JSL DlOO SP3B 

UBA ADD SP2B 

SP3B ADD XRO 

UBA JSL DlOO SP3B 

OOIE ADDL CTR 

SP2B JSL BTOD SP3B 
UBB ADD BKX5 
RG ADD SP3B 

XRO JSL DlOO SP2B 

OOIE ADDL CTR 

SP2B JSL BTOD SP3B 
UBB ADD XR6 
OOOE ADDL CTR 

JSL BTOD SP3B 
UBB ADD XR4 
UBA ADD XR5 
UBA ADD XR7 

ADD 



BKX5 JSL BD3S XR8 



UNC 
UNC 



SETUP TO DIVIDE BY lOOM 
DIVIDEND ( SP2B, SPOA, SP3B ) 
DO DIVISION 

REMAINDER ( SPOA, SP2B 1 
QUOTIENT :» ( XRBO, XRAO ), 
, DO DIVISION 

(Remainder := ( spoa, sp2b i ; 

CONVERT REMAINDER TO DECIMAL 
SETUP FOR NEXT DIVISION 



REPEAT LOOP 
( LSD'S ) 



DIVIDEND :• ( SP2B, SPOA, SP3B ) 
REMAINDER ;• ( SPOA, SP2B ) 
REPEAT LOOP COUNT 
CONVERT REMAINDER TO DECIMAL DIGITS 



CONVERT THE QUOTIENT TO DECIMAL ( MSD ' S ) 

SET F2 IF SIGN MASK :■ OOOF ; RETURN IF F4 
STORE OUT DATA 
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RECORD 


C.S. 


NO 


ADDR 


20168 




20169 




20170 




20171 




20172 




20173 




20174 




20175 




20176 




20177 




20178 




20179 




20180 




20181 




20182 




20183 




20184 




20185 




20186 




20187 


14B0 


20188 


14B1 


20189 


14B2 


20190 


14B3 


20191 


14B4 


20192 


14B5 


20193 


14B6 


20194 


14B7 


20195 


14B8 


20196 


1489 


20197 


14BA 


20199 


14BB 


20200 


146C 


20202 


14BD 


20203 


14BE 


20204 


14BF 


20206 




20207 




20208 




20209 


14C0 


20210 


14C1 


20211 


14C2 


20212 


14C3 


20213 


14C4 


20214 


14C5 



CVBD -- CONVERT 5 BIANRY WORDS 

*•...»•.••• ALU A ••*»•»•••*• »«.».».••«•«. ALU B ••••*••••••••• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SRE6 FUNC SFNC STOR SPEC SKIP 



CVBD ( CONVERT 5 BINARY WORDS ) --- 

ON ENTRY . 

BINARY WORDS ARE STORED IN XRA5 - XRA9 . 

ON EXIT 

DECIMAL DATA ARE STORED INTO TWO SETS AT 
XRA3 - XRA9, & XR62 - XRB8 . 



10/ 2/86 9:27 AM 



1. FIVE BINARY WORDS CAN BE CONVERTED TO A 
MAXIMUM OF 25 DECIMAL DIGITS. 

2. REFER TO BD3 FOR ALGORITHM. 



XR5 ADD 

XR7 ADD 

XR6 ADD 

UBB ADD 

XR8 ADD 

SP4A ADD 

UBB ADD 

XR9 ADD 

SP4A ADD 

UBA ADD 

SP4A ADD 

UBA RQ XFRS 

RREG ADD 

ADD 

UBA ADD 

ADD 



SPOA 
SPOA 

XR7 
SPOA 

XR8 

SPOA 

XRg 

XR6 

RF 

XR4 



SAVE DECIMAL DIGITS 



UBB XR5 XFRR 
SREG ADD 
UBB ADD 
RF ADD 
UBB ADD 
RG ADD 



XRe 
XR3 
XR5 
XR8 
XR7 
XR9 



UBA 


ADD 




SP2B 




UBA 


JSL 


0100 


SP3B 


UNC 


UBA 


ADD 




SP2B 




SP3B 


ADD 




RG 




UBA 


JSL 


DlOO 


SP3B 


UNC 


UBA 


ADD 
ADD 




SP2B 




UBA 


JSL 


DlOO 


SP3B 


UNC 


OOIE 


ADDL 




CTR 




SP2B 


JSL 


BTOD 


SP3B 


UNC 


UBB 


ADD 




BKX4 SF4B 






JSL 


BD4 




UNC 


XR5 


ADD 
ADD 




XR3 




SP4A 


JSB 


BDeR 


XR5 


FSB 


BKX4 


ADD 




RG CF4B 




XR6 


ADD 




XR4 




UBA 


ADD 




XR2 




BKX5 


ADD 




XRe 




UBA 


ADD 




XR7 




RG 


JSL 


BD3S 


XR8 


UNC 



CONVERT THE REMAINDER TO BE THE LSD'S 
LSD'S :- ( RF, BKX4 ); CONVERT THE 4 WORDS 

RETURN IF FROM BD6 



; STORE OUT DATA 



PAGE 413 CVBD -- CONVERT 6 BINARY WORDS 10/ 2/86 9:27 AM 

RECORD C.S «...«...»«. f^n) /^ *,,,*.»*„*, «**.....«««». ftLU B ••••«*•*•«*•»• 

NO ADDR LABL RREG SREG l-UNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

20217 • 

2021?. 

20219 * 

20220 * CVBD ( CONVERT 6 BINARY WORDS ) --- 

20221 • 

20222 • ON ENTRY : 

20223 • 

20224 • BINARY WORDS ARE STORED IN XRA4 - XRA9 . 

20225 • 

20226 • ON EXIT 

20227 • 

20228 * DECIMAL DATA ARE STORED INTO TWO SETS AT 

20229 • XRA2 - XRA9 , 4 XRBl - XRB8 

20230 • 

20231 • 1. SIX BINARY WORDS CAN BE CONVERTED TO A 

20232 - MAXIMUM OF 29 DECIMAL DIGITS. 

20233 « 2. REFER BD3 FOR ALGORITHM. 

20234 • 

20235 • 

20236 14C6 BD6 

20237 14C7 XR6 .ADD UBA ADD SP2B SF5B ; SET F5 FOR BD5 RETURN 

20239 14C8 XR5 ADO SPOA " " "~ 

20240 14C9 UBB ADD SPOA 

20241 14CA 

20242 14CB UBB ADD XR5 

20243 14CC SP4A ADD XR6 

20244 14CD UBB ADD SPOA 



XR4 


ADD 


XR6 


ADD 


XR5 


ADO 


UBB 


ADD 


XR7 


ADD 


UBB 


ADD 


SP4A 


ADD 


UBB 


ADD 


XR8 


ADD 


SP4A 


ADD 


UBB 


ADD 


XR9 


ADD 


SP4A 


ADD 


UBA 


ADD 


SP4A 


ADD 


UBA 


ADD 







ADD 








UBA 


ADD 




SP2B SF5B 


UBA 


UBA 


JSL 
ADD 


DlOO 


SP3B 
SP2B 


SP3B 




ADD 








UBA 


ADD 
JSL 


DlOO 


SP3B 




UBA 


ADD 
ADD 




SP2B 




UBA 


JSL 


0100 


SP3B 




UBA 


ADD 
ADD 




SP2B 




UBA 


JSL 


DlOO 


SP3B 


OOIE 




ADDL 




CTR 




SP2B 


JSL 


BTOO 


SP3B 




UBB 


JSB 


BD5 


SPIB 



20245 MCE 

20246 14CF SP4A ADD XR7 

20247 1400 UBB ADD SPOA 

20248 14D1 

20249 14D2 SP4A ADD XR! 

20250 14D3 UBA ADD SPOA 

20251 14D4 SP4A ADD XR9 SP2B JSL BTOO SP3B UNC CONVERT THE REMAINDER TO BE THE LSD'S 
20253 14D5 UBA ADD RH UBB JSB BD5 SPIB UNC LSD'S :» ( RH, SPIB ); JSB TO CONVERT 

20255 THE 5 BINAR' 

20256 

20257 • SAVE DECIMAL DATA 

2025 8 

2025 . 14Dr BD6R XR8 ADD 0080 XR31 ADDL CTR 

20260 1.;D7 UBA XR6 XFRS REGN 

20761 .4D8 RREG UBB XFRS REGN 

20262 14D9 RREG ADD REGN 

20263 14DA UBB ADD REGN 

20264 14DB RF ADD REGN 

20265 14DC UBB ADD REGN 

20266 140D RH ADD REGN 

20267 14DE UBB ADD REGN 

20268 • 

20269 14DF ADO RA JSB BDTR ODD JSB IF CONVERTING 7 BINARY WORDS 
202 71 14L0 ADD 



XR6 


ADD 




XR2 


ICTR 




UBA 


ADD 




XRl 


ICTR 




BKX5 


ADD 




XR4 


ICTR 




UBA 


ADD 




XR3 


ICTR 




BKX4 


ADD 




XR6 


ICTR 






ADD 




XR5 


ICTR 




SPIB 


ADD 




XR8 


ICTR 




UBA 


ADD 




XR7 






RA 


JSB 


BDTR 




ODD 


JSB IF CONVERTING 




JSL 


BD3S 




UNC 


, STORE OUT DATA 
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RECORD 


C S 


NO 


ADDR 


20274 




20275 




20276 




20277 




20278 




20279 




20280 




202 81 




20282 




20283 




20284 




20285 




20286 




20287 




20288 




20289 




20290 




20291 




20292 




20293 


14E1 


20294 


14E2 


20295 


14E3 


20296 


14E4 


20297 


14E5 


20298 


14EG 


20299 


14E7 


20300 


14E8 


20301 


14E9 


20302 


14EA 


20303 


14EB 


20304 


14EC 


20305 


14ED 


20306 


14EE 


20307 


14EF 


20308 


14F0 


20309 


14F1 


20310 




20311 




20312 




20313 


14F2 


20314 


14F3 


20315 


14F4 


20316 


14F5 


20317 


14F6 



CVBD -- CONVERT 7 BINARY WORDS 

...«..*.**« ALU A •••*»••««•• *.«.....*.... ALU B ••«»••««•••••* 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CVBD ( CONVERT 7 BINARY WORDS ) --- 

ON ENTRY : 

BINARY WORDS ARE STORED IN XRA3 - XRA9 . 

ON EXIT 

DECIMAL DATA ARE STORED INTO TWO SETS AT 
XRA2 - XRA9, i XRBl - XRB8 . 



10/ 2/86 9:27 AM 



1. SEVEN BINARY WORDS CAN BE CONVERTED TO 
32 DECIMAL DIGITS. 

2. REFER BD3 FOR ALGORITHM. 



XR4 


ADD 


SPOA 




UBA 


JSL 


DlOO 


SP3B 


UNC 


UBB 


ADO 


SPOA 




UBA 


ADD 




SP2B 




XR6 


ADD 




3P3B 




ADD 








UBS 


ADD 


XR4 




UBA 


ADD 




SP3B 




SP4A 


ADD 


XR5 






JSL 


DlOO 




UNC 


UBB 


ADD 


SPOA 




UBA 


ADD 




SP2B 




XR7 


ADD 








ADD 








SP4A 


ADD 


XR6 




UBA 


JSL 


DIDO 


SP3B 


UNC 


UBB 


ADD 


SPOA 




UBA 


ADO 




SP2B 




XR8 


ADD 








ADD 




XR31 




SP4A 


ADD 


XR7 




UBA 


JSL 


DIOD 


SP3B 


UNC 


UBB 


ADD 


SPOA 




UBA 


ADD 




SP2B 




XR9 


ADD 








ADD 








SP4A 


ADD 


XR8 




UBA 


JSL 


DlOO 


SP3B 


UNC 


UBA 


ADD 


SPOA 


OOIE 




ADDL 




CTR 




SP4A 


ADD 


XR9 




SP2B 


JSL 


BTOD 


SP3B 


UNC 




ADD 


XRIO 




UBB 


JSB 


BD6 


XR15 


NCRY 


SAVE 


DECIMAL 


DATA IN BOTH 


EXTENDED 


REGISTERS 






XRIO 


ADD 


XR8 




XR15 


ADD 




RG 






ADDL 


RH 




UBA 


ADD 




XR7 




REGN 


ADD 






RG 


ADD 




XR8 DCTR 






CAD 


RH CTFl 




UBA 


JSB 


*-l 


REGN 


Fl 


RG 


ADD 


XR9 






JSL 


BD3S 




UNC 



STORE OUT DATA 
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RECORD 


C.S. 


NO 


ADDR 


20320 




20321 




20322 




20323 




20324 




20325 




20326 




20327 




20328 




20329 




20330 




20331 




20332 




20333 




20334 




20335 




20336 




20337 




20338 


14F7 


20340 


14F8 


20342 


14F9 


20344 




20345 




20346 




20347 




20348 




20349 




20350 




20351 




20352 




20353 




20354 




20355 




20356 




20357 




20358 




20359 




20360 




20361 




20362 




20363 




20364 


14FA 


20366 


14FB 


20368 


14FC 


20370 




20371 


14FD 


20373 


14FE 



CVBD -- CONVERSION ROUTINES 

><,••«••••>,• ALU A ••«•«•••««• 

LABL RREG SREQ FUNC SFNC STOR SPSK 



*.«*.>*•..>,•* ALU B •*••*•••»*•*•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



ROUTINE TO CONVERT TWO ' S-COMPLEMENT BINARY WORDS 
TO PACKED-DECIMAL DIGITS. 



UBA 

UBA 



ON ENTRY : 










SPOA 

SP3B 

CTR 


: " 


UPPER BINARY WORD 
LOWER BINARY WORD 
« OF BINARY BIT - 1 


ON EXIT 










UBA 
UBB 


; = 


UPPER DECIMAL WORD 
LOWER DECIMAL WORD 


ADD 
UBA BTOD 
ADD 






REPC 
UBB UBB LINK 
UBB ADD 



DCTR CTRO 
RSB 



; REPEAT LOOP 

CONVERT BINARY TO DECIMAL 

DECIMAL RESULT ( UPPER, LOWER ); 



ROUTINE TO DIVIDE BY lOOM FOR CVBD 





( RRGA, 


RRGB, SPOA 


, SP3B 


) / ( XRA15, 




ON ENTRY 












SPOA :» 

SP3B := 

XRA15 := 

XRB14 := 


UPPER 
LOWER 
I05F5 
!E100 


BINARY WORD 
BINARY WORD 




ON EXIT 












SP3B :- 
SP4A := 


UPPER 
LOWER 


QUOTIENT 
QUOTIENT 


UBA 
UBA 


ADD 
XR15 DVSB 
ADD 


SP4A 
LSR 


CFl SP2B REPN 
UBB XR14 LINK 
UBB LINK 




ADD 
ADD 






ADD 
ADD 



20 
DCTR CTRO 
SP2B RSB 



CFl; SETUP REPEAT LOOP 

DIVIDE ( RRGA, RRGB ) BY ( XRA15, XRB14 ) 

REMAINDER :« ( UBA, UBB ) 

QUOTIENT ;= ( SP3B, SP4A ) 

NOP to keep system happy (2555) 

NOP to keep system happy (2555) 
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RECORD 

NO 

20377 
20378 
20379 
20380 
20381 
20382 
20383 
20384 
20385 
20386 
20387 
20388 
20389 
20390 
20391 
20392 
20393 
20394 
20395 
20396 
20397 
20398 
20399 
20400 
20401 
20403 
20405 
20407 
20409 
20411 
20413 
20415 
20417 
20419 
20421 
20423 
20425 
20427 
20429 
2O4J0 
20431 
20432 
20433 
20434 
20435 
20437 
20438 
20440 
20441 
20442 



C.S 
ADDR 



1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
150A 
150B 
150C 
150D 



150E 
150F 



SLD -- DECIMAL LEFT SHIFT 
*..•••••••• ALU A «««••««•••• 

LABL RREG SREG FUNG SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



DECIMAL LEFT SHIFT & DECIMAL NORMALIZING LEFT SHIFT --- 



SHIFT COUNT 

SOURCE DIGIT COUNT 

SOURCE BYTE ADDRESS ( DB REL 

TARGET DIGIT COUNT 

TARGET BYTE ADDRESS ( DB REL 

( VALID AFTER PULM ) 



TARGET ADDR ;« SOURCE ADDR SHIFTED LEFT X ( 11 ;5 ). 
THE SIGN IS PRESERVED WITH THE EXCEPTIONS THAT -0 
BECOMES +0 AND ALL NON-NEGATIVE SIGNS RESULT IN 
POSITIVE SIGNS. IF ALL SIGNIFICANT DIGITS DO NOT 
FIT INTO THE TARGET FIELD, THE RESULT IS LEFT- 
TRUNCATED AND CARRY ( STA (5:1) ) IS SET. HIGH 
ORDER NON-SIGNIFICANT DIGITS ARE FILLED WITH ZEROS. 



JSZ PULM 



RH 
X 



ADDL 

SP4A AND 

ADD 

ADD 

CIR JSB 

XR13 ADD 

XRll ADD 

XR15 ADD 

XR13 ADD 

ADD 

ADD 

CAD 



SP4A 
X 

XRll 
XR15 



SPOA 
RH 



XR14 
RG 



UBA JSZ TRP XR5 



RA 



JSL 
JSL 
JSL 
JSL 
ADD 
JSL 
RQ JSL 
0002 SP4A ADDL 
RREG UBA ADD 
RREG UBA XFRS 
RREG RH RSUB 

JSL 
RH CSR 



CKLN XR7 
CKBA XR8 
SPLT XRll 
MASK XR9 

RG 
LEN XRIO 
FCHB XR29 

RH 



NZRO 

UNC 

UNC 

F2 

UNC 

CCRY 

UNC 
UNC 
EVEN 

LBF5 

SF4B EVEN 

LBF5 

UNC 



EFFECTIVE SHIFT COUNT IS NEGATIVE 



1510 SL5D 



JSB 


SRD2 ZERO 


RG 


CTRS JSB SRDl CTR 


JSB 


SLDN UNC 




ADD 


REGN ADD 


XR14 




XR13 JSBI SLST CTR 



PULM FOR RD; TRAP IF CIR ( 9:1 ) :- 1 
MASK; CHECK FOR VALID OPERAND LENGTHS 
SHIFT COUNT; CHECK FOR SOURCE/TARGET ADDR 
SOURCE WD-ADDR; CHECK SPLIT STACK IF PRIV 
XRA15 := X; GET SOURCE/TARGET MASKS 
JSB IF NSLD; SAVE RA, CLEAR CARRY 

, DETERMINE ACC LENGTH 

SOURCE WD-ADDR ; GET SOURCE DATA 

SHIFT COUNT; SKIP IF SOURCE SIGN MASK : -OFOO 

TARGET SIGN MASK; UBB := SHIFT COUNT + 2 

; SKIP IF TARGET SIGN MASK := OFOO 

XRA14 := 0; UBB :» SHIFT COUNT - 2 

-1; 

JSB IF EFFECTIVE SHIFT COUNT IS POS ; 

SET F2 IF NEGATIVE 



DO SHIFT RIGHT 1 DIGIT IF F5 ; 

ESLE DO SHIFT RIGHT 2 DIGITS ( SLOW JUMP 

END OF SHIFTING 



5-DIGIT SHIFT 
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RECORD 


C.S. 


NO 


ADDR 


20445 




20446 




20447 




20448 




20449 




20450 




20451 




20452 




20453 




20454 




20455 




20456 




20457 




20458 




20459 




20460 




20461 


1511 


20463 




20464 


1512 


20466 


1513 


20468 




20469 


1514 


20471 


1515 



NSLD -- DECIMAL NORMALIZING LEFT SHIFT 
LABI RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



DECIMAL NORMALIZING LEFT SHIFT --- 

THE ENTRY POINT FOR NSLD IS SLD. 

TARGET ADDR ;= SOURCE ADDR SHIFTED LEFT X ( 11:5 ). 
IF ALL SIGNIFICANT DIGITS WOULD NOT FIT INTO THE 
TARGET ADDR FIELD, TARGET ADDR := SOURCE ADDR LEFT 
JUSTIFIED, X := X - ACTUAL SHIFT COUNT, AND CARRY 
IS SET. IF TARGET ADDR WILL NOT HOLD SOURCE ADDR 
EVEN WITH A SHIFT COUNT OF ZERO, NO DATA IS MOVED 
AND DECIMAL OVERFLOW IS SET. LEADING ZEROS WILL 
BE FILLED AND THE SIGN WILL BE PRtSERVED AS SLD. 



10/ 2/86 9:27 AM 



NSLD F3FF STA ANDL 



RH 
RC 



RC 
UBB 



XR15 ADD SP4A 

RH JSBS EE13 NEQ 



RH 
RC 



JSL SCNB 



JSB NSLl RG 
JSBS NSLl 



ZERO 
PCS 



RG 
UBA 



SUB 
SUB 



XR15 
X 



SP4A RSUB 

JSB NSLl 



CLEAR OVERFLOW A CARRY; 

DO SCAN FOR LEADING ZEROS 

» OF SHIFT; JSB IF ZERO LENGTH 

JSB IF TARGET FIELD IS NOT LARGE ENOUGH; 

OK TO DO SHIFT 

EFFECTIVE SHIFT COUNT; SET CARRY 

REMAINING SHIFT COUNT; DO SHIFT 



PAGE 418 




RECORD 


C S 


NO 


AODR 


20474 




20475 




20476 




20477 




20478 




20479 




20480 




20481 




20482 




20483 




20484 




20485 




20486 




20487 




20488 




204o9 




20490 




20491 




20492 




20493 




204?4 




20495 


1516 


20497 


1517 


20499 


1518 


20501 


1519 


20603 


151A 


20505 


151B 


20507 


151C 


20509 


151D 


20511 




20512 


151E 


20514 


151F 


20516 


1520 


20518 


1521 


20520 


1522 


20522 




20523 




20524 




20525 


1523 


20527 


1524 


20529 


1525 


20531 




20532 




20533 


1526 



SRD -- DECIMAL RIGHT SHIFT 

.,.,. »,*»,* ALU f^ ••«•.*••«•« 

LABL RREG SREQ FUNC SFNC STOR SPSK 



DECIMAL RIGHT LEFT 



»»«*.*•».«*<• ALU B •*••*••»«••••• 
RREG SREQ FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9;27 AM 



SHIFT COUNT 

SOURCE DIGIT COUNT 

SOURCE BYTE ADDRESS ( DB REL ) 

TARGET DIGIT COUNT 

TARGET BYTE ADDRESS ( DB REL ) 

( VALID AFTER PULM ) 

TARGET ADDR : • SOURCE ADDR SHIFTED RIGHT X ( 11:5 ). 
THE SIGN IS PRESERVED IN THE SAME WAY AS SLD. ZEROS 
ARE SHIFTED IN FROM THE LEFT AND LEADING NON- 
SIGNIFICANT DIGITS ARE FILLED WITH ZEROS. 





JSZ 


PULM 






ADDL 




SP4A 


SP4A 


AND 




X 


RH 


ADD 




XRll 




ADD 




XR15 


XR13 


ADD 






XRll 


ADD 




SPOA 


XR15 


ADD 




RH 



UBA JSZ TRP XR5 



RG 



XR13 ADD 
0002 ADDL 

ADD XR14 
0005 ADDL RG 
RH JSB SRD3 POS 



JSL 
JSL 
JSL 
JSL 
RA JSL 
JSL 
FFFE SP4A ADDL 

RREG UBA ADD 
UBA ADD 
UBA RH ADD 
0088 BKX3 SUBL 
RH CSR 



CKLN XR7 
CKBA XR8 
SPLT XRll 
MASK XR9 
LEN RG 
FCHB 



NZRO 

UNC 

UNC 

F2 

UNC 

UNC 

UNC 

EVEN 



RH LBF5 

CTR 

XR12 HBF2 



EFFECTIVE SHIFT COUNT IS NEGATIVE 



ADDL 

ADD 

ADD 



RA JSB SLDl SPIB 

BKX3 JSBS SLD2 CTR 

JSB SRDN 



F5B 

NF5B 

UNC 



PULM FOR RD; JSB IF CIR ( 9:1 ) := 1 

SHIFT COUNT MASK; CHK FOR VALID LENGTHS 

SHIFT COUNT; CHK OPERAND ADDRESSES 

SOURCE ADDR; CHK FOR SPLIT STACK IF PRIV 

SHIFT COUNT; GET OPERAND MASKS( MSW & SIGN ) 

; DETERMINE TARGET LENGTH 

SOURCE WD-ADDR; GET SOURCE DATA 

SHIFT COUNT; 

SKIP IF SOURCE SIGN MASK :« OFOO 

TARGET SIGN MASK; UBB := SHIFT COUNT - 2 

2, SKIP IF TARGET SIGN MASK :- OFOO 

XRA14 :> 0; UBB :- SHIFT COUNT + 2 

; MSW REGN POINTER 

JSB IF SHIFT COUNT >• 0; SET F2 IF ODD 



UNC 0088 BKX3 SUBL 



DO LEFT SHIFT 1 
DO LEFT SHIFT 2 
END OF SHIFTING 



5-DIGIT SHIFT 



DIGIT IF F5 
DIGITS IF NFS 
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SRD 


-- DEf 


:iMAL 


RIGHT SHIFT 












RECORD 


C S 




A A A A 1 


A A A * A 


«• ALU A <" 




A A A A I 


k A A A A 1 


«*•* ALU B 


A A A A ) 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


20536 




• 






















20537 




* 






















20638 




* 






















20539 




* 






















20540 


1527 


SRD3 


RH 




ADD 


LSR 


XR15 CFl 




RA 


JSB 


SRD5 


SPIB 


20542 


1528 








JSB 


SRD2 


UNC 




XR12 


JSB 


SRD7 




20544 


1529 








ADD 










JSB 


SRD7 




20546 




* 






















20547 




* 






















20548 


152A 


SRD5 




XR15 


JSB 


SR3D 


ODD 




XR12 


JSB 


SRDl 




20550 




* 






















20551 




* 






















20552 


152B 




RG 


RH 


JSBS 


SR5D 


ZERO 






ADD 






20554 


152C 


SRD7 




XR15 


ADD 


LSR 


RH CFl 


0089 




ADDL 




CTR 


20556 




* 






















20557 




* 






















20558 


152D 


SRD4 


0089 




ADDL 




SP4A 




BKX3 


INC 




RG 


20560 


152E 




RH 




JSB 


SRDN 


ZERO 


RH 




CAD 




RH 


20562 


152F 




RG 




CAD 




RG CTFl 






CAD 






20564 


1530 






REGN 


ADD 




REGN 


UBB 


CTRS 


JSB 


«-l 


CTR 


20566 


1531 








ADD 








SP4A 


JSB 


A-4 


CTR 


20568 




* 






















20569 




* 






















20570 


1532 


SRDN 


GOOF 


CIR 


ANDL 






OOOC 




ADDL 






20572 


1533 




UBA 


UBB 


JSBS 


MPYS 


ZERO 


0005 




ADDL 






20574 


1534 




RREG 


UBB 


JSBS 


MPYS 


ZERO 


0089 


BKX3 


SUBL 




CTR 


20576 




* 






















20577 




* 




STORE OUT 


DATA 














20678 




* 






















20579 


1535 


SRST 






ADD 




CFl 




XRll 


JSL 


STOA 


SP2B 


20581 


1536 








ADD 










JSL 


S024 





10/ 2/86 9:27 AM 



F2 SHIFT COUNT; SRD5 IF SHIFT COUNT IS ODD 
EVEN DO SHIFT RIGHT 2 DIGITS; JSB IF 00 
UNC JSB SRD7 



EVEN DO 3-DlGIT SHIFT; DO 1-DIGIT SHIFT 



5-DIQIT SHIFT 

SHIFT COUNT; LSW REGN POINTER 



; UBB :« ACC WD LEN 
DCTR DONE SHIFTING; DEC REGN POINTER 
ICTR SET Fl IF DONE; -1, ICTR 

Fl STORE SHFITED DATA BACK ; LOOPBACK 
UNC DO ANOTHER 4-DIGIT SHIFT 



MASK CIR ( 12:4 ) ; MASK 

FOR MPVD RETURN; MASK 

FOR CVDB RETURN; MSW REGN POINTER 



UNC STORE DATA TO TARGET, UBB 
UNC DO SDEC 



TARGET WD-ADDR 
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SLD 


-- DECIMAL 


LEFT 


SHIFT 
















RECORD 


C S 




* * * * 


* * A A A ) 


•• ALU A •' 


K A A A * 1 


A A A A A 


A A A A 1 




h * A A t 


4LU B 


A A A A J 


k A A A A 1 




NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


20B84 




< 




























205 f^S 




* 




























20586 




* 




























20587 




* 




























20588 


1537 


SLD3 


RH 




ADD 


LSR 


XR15 


CF2 




XR29 


JSB 


SLD5 


SPIB 




F2 


20590 


1538 








JSB 


SLD2 




UNC 




XR12 


JSB 


SLD7 






EVEN 


20592 


1539 








ADD 












JSB 


SLD7 






UNC 


20594 




« 




























20595 




* 




























20596 


153A 


SLD5 




XR15 


JSB 


SL3D 




ODD 




XR12 


JSB 


SLDl 






EVEN 


20598 


153B 




RH 


RG 


JSBS 


SL5D 




ZERO 




XR13 


ADD 




CTR 






20600 


153C 


SLD7 




XR15 


ADD 


LSR 


RH 






XR13 


ADD 




CTR 


CF4B 




20602 


153D 






UBA 


JSB 


« + 7 




ZERO 






ADD 










20604 




* 




























20605 




• 




























20606 


153E 


SL04 






ADD 










BKX3 


ADD 




RG 


ICTR 




20608 


153F 






REQN 


ADD 






F2 




RH 


JSB 


SLDN 






ZERO 


20610 


1540 




UBA 


XR14 


I OR 




XR14 








ADD 










20612 


1541 


SL3J 


RG 




CAD 




RG 


CTFl 






ADD 






DCTR 




20614 


1542 






REGN 


ADD 




REQN 






CTRS 


JSBI 


•-1 


CTR 




Fl 


20616 


1543 




RH 




CAD 




RH 


CF2 




XR13 


JSB 


•-5 


CTR 




UNC 


20618 




* 




























20619 




* 




























20620 


1544 


SLDN 


OOOF 


CIR 


ANDL 








OOOC 




ADDL 










20622 


1545 




UBA 


UBB 


JSBS 


MPYS 




ZERO 


0089 


BKX3 


SUBL 




CTR 






20624 




* 




























20625 




* 




























20626 


1546 


SLST 




XR14 


ADD 






ZERO 






ADD 










20628 


1547 








ADD 






SF3A 




XRll 


JSL 


STOA 


SP2B 




UNC 


20630 


1548 








ADD 






NF3A 


0400 




ADDL 










20632 


1549 




UBB 


STA 


lOR 




STA 


CF3A 






JSL 


S024 






UNC 



10/ 2/86 9:27 AM 



SHIFT COUNT; SLD5 IF SHIFT COUNT IS ODD 
JSB TO SHIFT LEFT 2 DIGITS, JSB IF 00 



LEFT SHIFT 3-DIGIT, LEFT SHIFT 1-DIGIT 

DO SHIFT 5-DIGIT IF ZERO; REGN POINTER 
SHIFT COUNT; 

JSB TO SHIFT LEFT 3 DIGITS; 



; ACC WD LENGTH, ICTR 

SKIP IF FROM SL3D; SLDN IF DONE 

SAVE LOST DIGIT; 

SET Fl IF DONE ALL SHIFTING; DEC CTR 

STORE SHIFTED WORDS; LOOPBACK IF NOT DONE 

DEC INT( X/4 ); NEXT 4-DIGIT SHIFT 



MASK CIR ( 12:4 ) ; MASK 
FOR MPYD; MSW REGN POINTER 



SKIP IF NOT DIGIT LOST; 

F3 IF DIGIT LOST; GO STORE RESULT, TARG 

SKIP IF NO DIGIT LOST; MASK 

SET CARRY IF DIGITS LOST; DO DEC & EXIT 
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RECORD 


C.S 


NO 


ADDR 


20635 




20636 




20637 




20638 




20639 




20640 




20641 




20642 




20643 




20644 




20645 




20646 




20647 




20648 


154A 


20650 


154B 


20652 


154C 


20654 


154D 


20656 


154E 


20658 


154F 


20660 


1550 


20662 


1551 


20664 


1552 


20666 




20667 




20668 




20669 


1553 


20671 


1554 


20673 


1555 


20675 


1556 


20677 


1557 


20679 


1558 


20681 


1559 


20683 


155A 



SLD -- SHIFT LEFT 1 DIGIT 
LABL RREQ SREQ FUNC SFNC STOR SPSK RREQ SREG FUNC SFNC STOR SPEC SKIP 



DATA ARE STORED IN TWO SETS OF DATA 
BUFFERS XRAl - XRA9 , & XRBO - XRB8 , 
SPIB := DIGIT COUNT. 



10/ 2/86 9:27 AM 



SHIFTED RESULT ( SHIFTED LEFT 1 DIGIT 
WILL BE STORED IN XRAl - XRA9 IF » OF 
DIGITS >= 16; ELSE WILL BE STORED IN 
XRA5 - XRA9 ONLY. 





XR9 


ADD 


SP4A 




F800 




ADDL 




XR7 


ADD 


SPOA 




FOOO 




ADDL 


UBB 


REGN 


AND 




ZERO 




XR7 


ADD 




XR5 


ADD 




SF3A 




XR5 


REPN 




UBA 


OASL 


XR5 






UBB 


LINK 




UBB 


ADD 


XR6 




OOOF 


UBA 


ANDL 


SPOA 




ADD 


XR7 




SP3B 




ADD 


UBB 




ADD 


XR8 




FFFO 


SPIB 


ADDL 




SP4A 


ADD 


XR9 






XR4 


ADD 






DO 


SHIFT IF (t OF DIGITS 


>= 16 




UBB 


ADD 


SP4A 






XR3 


ADD 




XR3 


ADD 


SPOA 




RG 


XRO 


ADD 




XRl 


ADD 




FIHB 




XRl 


REPN 




UBA 


QASL 


XRl 






UBB 


LINK 




UBB 


ADD 


XR2 








ADD 


SPOA 




ADD 


XR3 




SP3B 




ADD 




UBB 


ADD 


XR4 






SP2B 


ADD 


UBB 


SP4A 


lOR 


XR5 








ADD 



RG 






SETUP FOR OASL; MASK 
SETUP FOR QASL; MASK 


SP3B 






SKIP IF DIGIT WILL BE LOST; 






03 


SETUP REPEAT LOOP 




DCTR 


CTRO 


DO LEFT SHIFT 1 DIGIT 


SP2B 






RESULT; SAVE UPPER MOST DIGIT 
RESULT 






PCS 


RESULT; SKIP IF » OF DIGITS >- 16 






rs;b 


RESULT; RETURN 


SP3B 






SETUP FOR OASL 




CTFl 




SET Fl IF THE UPPERMOST BIT IS SET 






03 


SETUP REPEAT LOOP 




DCTR 


CTRO 


DO LEFT SHIFT 1 DIGIT 

RESULT 

RESULT 






CRRY 


RESULT; SLOW RETURN 






RS8 


RESULT; RETURN 
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RECORD 


C.S. 


NO 


ADDR 


20686 




20687 




20688 




20689 




20690 




20691 




20692 


155B 


20694 




20695 




20696 




20697 




20698 




20699 




20700 




20701 




20702 




20703 




20704 




20705 




20706 


155C 


20708 


155D 


20710 


155E 


20712 


155F 


20714 


1560 


20716 




20717 


1561 



SLD -- SHIFT LEFT 2 DIGITS 
..•**••«..* ALU A ••••«»••«.. 
LABL RREG SREG FUNC SFNC STOR SPSK 



• «*<,. .int..*** ALU B ••••••**•••••* 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/8 



DECIMAL OVERFLOW FOR NSLD 
155B EE13 0400 STA lORL STA 



UNC SET CARRY; JSB ER13 



ON ENTRY 



REGN ADD 

REGN ADD 

UBB lOR 

CAD 

ADD 

ADD 



CTR :> REGN POINTER AT MSW 

DATA ARE STORED IN 2 SETS OF DATA BUFFERS 

XRAl - XRAg, & XRBO - XRB8 . 

SHIFTED DATA ( LEFT SHIFT 2 DIGITS ) 
WILL BE STORED IN BOTH XRAl - XRA9 , & 
XRBO - XRB9. 



LLZ 
RLZ 



REGN 

RG CTFl 
ZERO 



BKX3 INC 

REGN ADD 

INC 

UBB UBA XFRS 

RREG CTRS JSB 



LRZ 
LSL 



REGN 
CTR 



JSB MPYS 



MASK UPPER DIGITS; ACC WD-COUNT - 1, 

SWAP BYTES 

STORE INTO REGN; 2. DEC COUNTER 

DEC WORD-LENGTH; STORE INTO REGN 

SKIP IF NO DIGIT WILL BE LOST; 

NEW REGN POINTER, LOOPBACK IF Fl 

SET F3 IF DIGITS WILL BE LOST; RETURN 
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RECORD 


C.S 


NO 


ADDR 


20720 




20721 




20722 




20723 




20724 




20725 




20726 




20727 




20728 




20729 




20730 


1562 


20732 


1563 


20734 


1564 


20736 


1565 



SLD -- SHIFT LEFT 3 DIGITS 10/ 2/86 9:27 AM 

..••.*•*.•• ALU A ••••••••••* »..•*..*..... ALU B •»*«•••*•«••«* 

LABL RREQ SREG FUNG SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



SHIFT LEFT 3 DIGITS -- 



1. FIRST, SHIFT THE DATA RIGHT 1 DIGIT 

2. THEN, SHIFT THE DATA LEFT 1 WORD 

3. SET F3 IF ANY DIGIT WILL BE LOST, 



XR15 ADD 


LSR RH 


ADD 


JSB 


SRDl MEDJ 


OFFF ADDL RG 


REGN AND 


XR14 ZERO 


BKX3 INC RG 


ADO 


SF3A 


RH JSBI SL3J RH 



SHIFT COUNT ; ADJUST RAR 

DO RIGHT SHIFT 1 DIGIT; MASK 

MASK DIGIT LOST; INC WD COUNT, SF2 

SET F3 IF DIGIT LOST; JSB FOR 1-WD SHIFT 
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RECORD 


C.S. 


NO 


ADDR 


20739 




20740 




20741 




20742 




20743 




20744 




20745 




20746 




20747 




20748 




20749 




20750 




20751 




20752 




20753 




20754 




20755 




20756 


1566 


20758 


1567 


20759 


1568 


20761 


1569 


20763 


156A 


20765 


156B 


20767 


156C 


20769 


156D 


20771 


156E 


20773 




20774 




20775 




20776 


156F 


20778 


1570 


20779 


1571 


207S1 


1572 


20783 


1573 


20785 


1574 


20787 


1575 


20789 


1576 



SRD -- SHIFT RIGHT 1 DIGIT 

* A A ft A ft *A ft ft ft fi^\_{j A *********** 

LABL RREG SREQ FUNC SFNC STOR SPSK 



SHIFT RIGHT 1 DIGIT --- 
ON ENTRY : 



•••ft********* ALU B ********••••«• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



DATA ARE STORED IN TWO SETS OF DATA 
BUFFERS XRAl - XRA9 , & XRBO - XRB8 . 
SPIB ;- DIGIT COUNT 

SHIFTED RESULT ( SHIFTED RIGHT 1 DIGIT ) 
WILL BE STORED IN XRAl - XRA9 IF 8 OF 
DIGITS >■ 17; ELSE WILL BE STORED IN 
XRA5 - XRA9. 





XR9 


ADD 


SP4A 








ADD 




XR7 


ADO 


SPOA 






XR7 


ADD 




XR5 


ADD 








XR5 


REPN 




UBA 


QASR 


XR5 






UBB 


LINK 


UB6 


UBA 


XFRR 


XR6 






UBA 


ADD 


SPOA 


SREG 


XFRR 


XR7 


NF2 




XR13 


ADD 


OFFF 


SREG 


ANDL 


XR5 




SP3B 




ADD 


UBB 




ADD 


XR8 




FFEF 


SPIB 


ADDL 




SP4A 


ADD 


XRQ 






XR4 


ADD 




DO SHIFT IF ( 


t OF DIGITS 


>• 17 








UBB 


ADD 


SP4A 






XR3 


ADD 




XR3 


ADD 


SPOA 








ADD 




XRl 


ADD 








XRl 


REPN 




UBA 


QASR 


XRl 






UBB 


LINK 




UBB 


ADD 


XR2 






XR13 


ADD 


SPOA 




ADD 


XR3 




SP3B 




ADD 




UBB 


ADD 


XR4 








ADD 




SP4A 


ADD 


XR5 








ADD 



03 
DCTR CTRO 
HBF2 



POS 
RSB 



03 
DCTR CTRO 



NZRO 
RSB 



SETUP QASR; 

SETUP REPEAT LOOP 

DO RIGHT SHIFT 1 DIGIT 

RESULT; SET F2 IF NEG 

RESULT, SKIP IF POS; 

MASK OFF THE ONES FROM QASR 

RESULT; SKIP IF « OF DIGITS 

RESULT; RETURN 



SETUP FOR QASR 

SETUP REPEAT LOOP 

DO RIGHT SHIFT 1 DIGIT 

RESULT 

RESULT 

RESULT; SLOW RETURN 

RESULT; RETURN 
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RECORD 


C.S. 




NO 


ADDR 


LABL 


20792 




A 


20793 




* 


20794 




* 


20795 




« 


20796 




* 


20797 




* 


20798 


1577 


Af;i3 


20800 




* 


20801 




* 


20802 




* 


20803 




* 


20304 




* 


20805 




* 


20806 




* 


20807 




* 


20808 




• 


20809 




* 


20810 




* 


20811 




* 


20812 




* 


20813 




* 


20814 




* 


20815 




* 


20816 


1578 


S(tD2 


20818 


1579 




20820 


157A 




20822 


157B 




20824 


157C 




20826 


157D 





-- SHIFT RIGHT 2 DIGITS 
*.....* ALU A <.*«•«*••••« 
LABL RREG SREG FUNC SFNC STOR SPSK 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



DECIflAL OVERFLOW FOR ADDD & SUBD 

ADD JSL ER13 



SHIFT RIGHT 2 DIGITS --- 

ON ENTRY : 

CTR ;= REGN POINTER AT MSW 

DATA ARE STORED IN 2 SETS OF DATA BUFFERS 

XRAl - XRA9, & XRBO - XRB8 . 

ON EXIT SHIFTED DATA ( RIGHT SHIFTED 2 DIGITS 1 
WILL BE STORED INTO BOTH XRAl - XRA9 , i 
XRBO - XRBS. 



UNC ; JSB ER13 



REGN ADD 

ADD 

SPOA ADD 

REGN ADD 

UBB ADD 

ADD 



SPOA 
SPOA 
REGN 





BKX3 


INC 




RH 


PSHR 






REGN 


ADD 


LRZ 


SPIB 


ICTR 




RH 




CAD 




RH 


DCTR 




UBA 


SPIB 


lOR 




REGN 


ICTR 




RH 




JSB 
JSB 


•-3 
MPYS 






POS 

UNC 



MSW; ACC WD -COUNT - 1 

; m6vE LEFT BYTE TO RIGHT BYTE, ICTR 

MOVE RIGHT BYTE TO LEFT: DEC WD-COUNT & DCTR 

NEXT DATA WORD; MERGE DATA A STORE INTO REGN 

STORE INTO REQN ( A ) ; LOOPBACK IF NOT DONE 

RETURN SUBROUTINE 
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RECORD 

NO 

20829 
20830 
20831 
20832 
2G833 
20834 
20.S35 
2nS3S 
20S37 
208J8 
20840 
20r42 
20844 
20846 



C,S. 
ADDR 



157E 
157F 
1580 
1581 
1582 



SRD -- SHIFT RIGHT 3 DIGITS 
LABL RREG SREG FUNC SFNC STOR SPSK 



SHIFT RIGHT 3 DIGITS 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



1. FIRST, SHIFT THE DATA LEFT 1 DIGIT 

2. THEN, SHIFT THE DATA RIGHT 1 WORD. 



XR15 ADD 
JSB 
JS8 
ADDL 
ADD 



LSR 

SLDl 

SRD4 



MEDJ 
UNO 



ADD 

INC 

ADDL 

ADD 

ADD 



POPR NZRO 
RSB 



« OF SHIFTS ( WORD ) ; 
DO LEFT SHIFT 1 DIGIT 
00 RIGHT SHIFT 1 WORD; 
MASK FOR SRD5; POPR 
RETURN 



MSW REGN POINTER 
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RECORD 


OS 


NO 


ADDR 


20849 




20850 




20851 




20852 




20853 




20854 




20855 




20856 




20857 




20858 




20859 




20860 




20861 




20862 




20863 




20864 




20865 




20866 




20867 




20868 




20869 


1583 


20871 


1584 


20873 


1585 


20875 


1586 


20877 




20878 


1587 


20880 


1588 


20882 


1589 


20884 


158A 


20886 


158B 


20888 




20889 


158C 


20891 




20892 


158D 


20894 


158E 


20896 


158F 


20898 


1590 


20900 


1591 


20902 





ADDD -- DECIMAL ADD 
•••••***•*• ALU A • 
LABL RREG SREG FUNG SFNC STOR SPSK 



COMPARE , & SUBTRACT 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



DECIMAL ADD, COMPARE, & SUBTRACT 



RA ;> OPERAND-1 DIGIT COUNT 

OPERAND-1 BYTE ADDRESS { DB REL ) 
OPERAND-2 DIGIT COUNT 
OPERAND-2 BYTE ADDRESS ( DB REL ) 
( VALID AFTER PULM ) 

OPERAND-2 ADDR ;= OPERAND-2 + OPERAND-1. THE LEFT 
TRUNCATED RESULT IS STORED AND DECIMAL OVERFLOW OCCURS 
IF ALL SIGNIFICANT DIGITS OF THE RESULT DO NOT FIT IN 
THE OPERAND-2 FIELD. 





JSZ 


PULM 




UNC 




UBA 


JSZ 


TRP 


XR5 




NZRO 




ADD 




XR14 








JSL 


CKLN 


XR7 




UNC 




ADD 












JSL 


CKBA 


XR8 




UNC 


RH 


ADD 




XRll 






RG 


JSL 


SPLT 


XRll 




F2 


RA 


ADD 




RG 








JSL 


MASK 


XR9 




UNC 


XR13 


ADD 




SP4A 








JSL 


LEN 


XRIO 




UNC 


XR12 


ADD 




RE 






XRll 


JSL 


FCHA 






UNC 


XRll 


ADD 




SPOA 






XR31 


JSL 


FCHB 


XR30 




UNC 


XR13 


JSBS 


•+3 




ZERO 




XR30 


ADD 




SP3B 


CCA 




XR12 


JSB 


SLD2 




ODD 




XR13 


ADD 




CTR 






XR12 


JSB 


SRD2 




EVEN 


FFFF 


XR13 


AODL 




CTR 






CIR 


ADD 


LSR 




EVEN 


SP3B 


XR31 


ADD 






HBF2 




UBB 


CAD 






HBF2 


0098 




ADDL 




CTR 






CIR 


ADD 




SPAA 






BKX3 


ADD 




RH 




NF2 




JSB 


SUBM 




F2 


SP3B 




ADD 




RG 


ICTR 





PULM FOR RD; TRAP IF CIR ( 9:1 ) NOT ZERO 
LOST DIGIT BUFFER; CHECK VALID OPERAND LEN 
; CHECK OPERAND-1/2 ADDR 
OPERAND-1 WD ADDR; 

CHK SPLIT STACK IF PRIV, OPERAND-2 WD ADDR 
; GET SOURCE/TARGET MASKS ( MSW i SIGN ) 
OP-2 SIGN MASK; DETERMINE ACC LENGTH 
OP-1 SIGN MASK; GET OPERAND-2 DATA 
; GET OPERAND-2 DATA, NEG/POS INDICATOR 
JSB IF OP-1 & OP-2 SIGNS ALIGHN; 
SET CCA 

LEFT 2-DIGIT SHIFT IF OP-1 := OOOF 
MSW REGN POINTER 

ELSE RIGHT 2-DIGIT SHIFT; MSW REGN POINTER 
SKIP IF ADDD; SET F2 IF EITHER ONE IS NEG 
TOGGLE SIGN; REGN POINTER 
SP4A :» CIR, WD-COUNT - 1, SKIP IF NF2 
DO SUBD IF 'A' & 'B' HAVE DIFF SIGNS 
OPERAND-2 SIGN INDICATOR 
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DECIMAL ADD 








RECORD 


c s 






k K « « > 


•• ALU 


A • 


• •**• 


« A « A 


NO 


ADDR 


LABL 


RREQ 


SREQ 


FUNC 


SFNC 


STOR 


SPSK 


20904 


















20905 


















20906 


















20907 








DeCIMAL ADD -- 


- 




20908 


















20909 








DO DECIMAL 


ADD 


IF BOTH 


20910 








HAVE 


THE SAME 


SIQN. 




20911 


















20912 


















20913 


1592 


ADDM 




REQN 


ADD 




SPOA 




20915 


1593 




0002 




ADDL 




RE 




20917 


1594 




RH 


UBA 


SUB 




RH 


HBF2 


20919 


1595 




SPOA 


REQN 


DADD 




REQN 


CTFl 


20921 


1596 




UBB 




ADD 




REQN 




20923 


1597 








JSB 


•+5 




F2 


20925 




« 














20926 




* 














20927 


1598 






REQN 


ADD 




SPOA 




20929 


1599 




RH 


RE 


SUB 




RH 


HBF2 


20931 


159A 




SPOA 


REQN 


DADD 




REQN 


FITC 


20933 


159B 






UBB 


ADD 




REQN 




20935 




• 














20936 




* 














Z0937 


159C 








ADD 






NFl 


20939 


1590 








ADD 






SF3A 


20941 


159E 






REQN 


ADD 




XR14 




20943 




* 














20944 




• 














20945 


159F 


ADDE 






ADD 








20947 


15A0 








JSB 


AE13 




F3A 


20949 


15A1 








ADO 









..*.......... ALU B ••••••♦«•••••• 

RREG SREQ FUNC SFNC STOR SPEC SKIP 



-1 AND OPERAND-2 



FFFO CTRS ADDL 
REQN ADD 
UBB ADD 
UBB REQN LINK 
OOOE CTRS ADDL 
OOOE ADDL 



10/ 2/86 8:27 AM 



CTR 
RF 



CTR 



FFFO CTRS ADDL 

REQN ADD 
UBB REQN LINK 
RF CTRS JSB '-a 



FFFF XR13 ADDL CTR 
SP4A JSB CMPD 
XR13 ADD CTR 



XRll JSL 
ADD 
JSL 



STOA SP2B 



EVEN 



UNC 
UNC 



CO^WENT 



OP-2 DATA; REQN POINTER AT OP-1 C 

2; OP-2 dATA 

SET F2 IF WD COUNT < 2 

DO DECIMAL ADD: INC REQN POINTER 

RESULT, OP-2 p6INTER 

JSB IF DONE; RF :• OOOE 



REPEAT DECIMAL ADD 

SET F2 IF DONE • 

DECIMAL ADD; NtXT REQN POINTER 

L00P8ACK IF NOT DONE 



, MSW POINTER 

SKIP IF F3 ( DIGIT LOST 1: JSB IF CMPD 

LOST DIGIT BUFFER; MSW p6tNTER 



, DO STORAGE, OPERAND-2 WD COUNT ADDR 
iSB IF DECIMAL OVERFLOW; CRF 
DO SDEC 
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RECORD 

NO 

20S52 
20953 
20954 
20955 
20956 
20957 
20958 
20959 
20960 
20961 
20963 
20965 
20967 
209B8 
20969 
20970 
20971 
20973 
20975 
2037/ 
20'- ■'B 
2007) 
20'if, I 
?.0(i'.:: 
209 fib 
20987 
20989 
20990 
20991 
20993 
20995 



C.S. 
ADDR 



15A2 
15A3 
15A4 



15A5 
15A6 
15A7 
15A8 



i5A9 
r.AA 
I'jAB 
15AC 
i5AD 



15AE 
15AF 
15B0 



DECIMAL SUBTRACT 
.....<,•••«>, ALU A •••«••••*** 
LABL RREQ SREQ FUNC SFNC STOR SPSK 



DECIMAL SUBTRACT 



.••«.<,....... ALU B **<•»**»****»** 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



DO DECIMAL SUBTRACT IF OPERAND-1 AND OPERAND-2 
HAVE DIFFERENT SIGNS. 



REGN ADD 
RH CAD 
SPOA REGN DSUB 



ADD 
REGN ADD 
RH CAD 
SPOA REGN DSUB 



CIR JSB 
ADD 

RG CAD 
CAD 

REGN DSUB 



CAD 
REQN DSUB 
ADD 



SPOA CF2 FFFO CTRS ADDL CTR 
RH HBF2 OOOF ADDL SP3B 
REQN CTFl UBB CTRS JSB '+5 CTR 



SPOA 

RH 
REGN 


HBF2 
FITC 


FFFO 
SP3B 


CTRS 
CTRS 


ADDL 

ADD 

JSB 


•-2 


CTR 
CTR 


RH 
REGN 


EVEN 

CCA 

CTFl 


UBB 


BKX3 
XR13 
BKX3 


ADD 
JSB 
ADD 
ADD 
ADD 


ADDE 


RH 

CTR 

CTR 


REGN 


FITC 


RH 
UBA 


CTRS 
XR13 


CAD 
JSB 
JSB 


ADDE 


RH 

CTR 

CTR 



NF2 
UNO 



OP-2 DATA; OP-1 POlf 
DEC WD COUNT, 
DO DECIMAL SUBTRACT 
JSB IF DONE 



OP-1 DATA; OP-2 POINTER 

DEC WD COUNT 

DO DECIMAL SUBTRACT; LOOPBACK IF NF2 



JSB IF CMPD; WD COUNT - 1,SF5B 
JSB IF NO NEGATE NEEDED 
TOGGLE CCA; LSW REGN POINTER 
DEC WD COUNT 
DO NEGATE 



-1; DEC WO COUNT 

DO NEGATE; DO NEXT SET 

DO STORAGE 
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DECIMAL COMPARE 








RECORD 


c s 




ft A A A 


ft * ft «« 


«• ALU A •••••«•.•«• 


ALU B ••••' 


t * . . ft 1 


ft . ft ft * 


NO 


ADDR 


LA8L 


RREG 


SREG 


FUNC SFNC STOR SPSK 


RREG SREG FUNC SFNC STOR 


SPEC 


SKIP 


?0998 




. 














20999 




* 














21000 




• 














21001 




* 




OPERAND-2 IS COMPARE WITH 


OPERAND-! AND SET 






21002 




• 




CCG, 


CCL, OR CCE IF OP-2 


> OP-1, OP-2 < OP-1 OR 






21003 




* 




OP-2 


• OP-1 








21004 




* 














21005 




* 














21006 




* 














21007 


15B1 


CMPO 






ADD SPOA 


BKX3 INC SP3B 




FSB 


21009 


15B2 








CAD RH 


BKX3 JSL S024 




Fl 


21011 


15B3 








JSB '+2 Fl 


UBB XR13 JSB '+2 CTR 




NF5B 


2 1013 


15B4 






RG 


CAD CCA 


JSL S024 




UNC 


2 1015 


1585 


CMPE 


SPOA 


REQN 


lOR SPOA 


SP3B CAD SP3B 


CTFl 




21017 


15B6 




UBA 




ADD NZRO 


RH CTRS JSB •-! CTR 




Fl 


21019 


15B7 








ADD CCA 


JSL S024 




UNC 



10/ 2/86 9:27 AM 



COMMENT 



; ACC WD-LEN - 1, SKIP IF JUST ' SUB ' 

JSB JUST 'ADD' & OP-1 <> OP-2 <> 

JSB IF OP-1 =■ OP-2 

TOGGLE CC; DO SDEC 

CALCULATE IF 0P-2/0P-1 - 

SKIP IF NZRO; LOOPBACK 

SET CCE IF OPERAND-2 :« OPERAND-1; DO SDEC 
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RECORD 


C.S. 


NO 


ADDR 


21022 




21023 




21024 




21025 




21026 




21027 




21028 




21029 




21030 




21031 




21032 




21033 




21034 




21035 




21036 




21037 




21038 




21039 




21040 




21041 




21042 




21043 




21044 




21045 


15B8 


21047 


15B9 


21049 




21050 


15BA 


21052 


ISBB 


21054 


15BC 


21056 


15BD 


21058 


15BE 


21060 


15BF 


21062 


15C0 


21064 


15C1 


21066 


15C2 


21068 


15C3 


21070 


15C4 


21072 


15C5 


21074 


15C6 


21076 


15C7 


21078 




21079 


15C8 


21081 




21082 


15C9 


21084 


15CA 


21086 


15CB 


21088 


15CC 


21090 




21091 


15CD 


21093 


15CE 


21095 


15CF 


21097 


15D0 


21099 


15D1 


21101 


15D2 


21103 


15D3 



CVBD -- BINARY TO DECIMAL CONVERSION 

• *«••>,. ••!,• ALU ft *.....«.•.« «.*..,.,,«,,» ftLu B •««,•...*..«,«« 

LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



BINARY TO DECIMAL CONVERSION -- 
ON ENTRY ; 



10/ 2/86 9:27 AM 



SR 

RA 
RB 
RC 
RD 



SOURCE WORD COUNT 

SOURCE WORD ADDRESS ( DB REL ) 

TARGET DIGIT COUNT 

TARGET BYTE ADDRESS ( DB REL ) 

( VALID AFTER PULM ) 



TARGET ADDR := TWO'S COMPLEMENT SOURCE CONVERTED 
TO PACKED DECIMAL DIGITS. <= WORD COUNT <= 6, 
<= DIGIT COUNT <- 28. THE TARGET FIELD IS FILLED 
WITH LEADING ZEROS IF NECESSARY. IF THE SOURCE FIELD 
OVERFLOWS THE TARGET FILED, THE LEFT TRUNCATED RESULT 
IIS STORED AND A DECIMAL OVERFLOW OCCURS. IF EITHER 
COUNT IS ZERO, ONLY TOS ADJUSTMENT IS PERFORMED. 







JSZ 


PULM 




UNC 




UBA 


JSZ 


TRP 


XR4 


FFE3 


RC 


ADDL 
ADD 




RH 
XR3 


CFl 


FFF9 


RA 


ADDL 
JSL 


BDER 








ADD 




XR5 


SFl 




RH 


JSL 


BDER 








ADD 




XR6 


CFl 




RA 


JSL 


SD24 








ADD 




XR9 


SF3A 




RC 


JSL 


SD24 








ADD 












JSL 


CKBA 


XR5 


05F5 




ADDL 




XR15 






RG 


JSL 


SPLT 


XRll 


RA 




ADD 




RH 






BKX6 


JSL 


MASK 


BKX3 


RA 




CAD 




SP4A 


CF3A 


0089 




ADDL 




CTR 


RB 


DB 


ADD 




SPOA 


ROD 


0089 


BKX3 


SUBL 




XR31 


UBA 


SP4A 


ADD • 




SPOA 


ROD 


UBA 


DL 


BNDE 








OPA 


ADD 




SP4A 


HBF2 


RE 


UBA 


BNDE 






RH 


OPA 


CAD 
ADD 




RH 
REGN 




RH 




JSB 
ADD 


»+3 




SPOA 




CAD 




SPOA 


ROD 




UBA 


JSB 


*-2 


REGN 




XR13 


ADD 










RA 


JSL 


LEN 


RG 


RA 


SP4A 


I OR 






CCA 




RA 


SUB 




SP3B 


FFFC 


RA 
REGN 


ADDL 
JSB 


«+2 


RH 


NZRO 


ElOO 




ADDL 
ADD 




XR14 






JSB 


•-1 




UNC 


SP3B 




JSBI 


CVZO 


SP3B 


RA 




JSBC 


BDl 




ZERO 






CAD 






RH 




JSB 


BD3 




NEG 


UBA 


UB6 


JSB 


BD2 


SP2B 




XR5 


ADD 




SP4A 






XR6 


JSL 


NEG6 


RG 


RH 




CAD 










RH 


JSL 


BD4 


XR31 


UBA 


XR3 


CSR 
ADD 






HBF2 




UBA 


JSL 
JSL 


BD5 
BD8 






XR5 


ADD 






SF3A 




UBA 


JSL 


BD7 


SP2B 



NZRO 
NCRY 

UNC 

POS 

ZERO 

ZERO 

UNC 

F2 

UNC 



ZERO 

F2 

ZERO 

ZERO 

F2 

UNC 



PULM FOR RD; TRAP IF CIR ( 9:2 ) NOT ZERO 
CHECK TARGET DIGIT COUNT i SOURCE WORD COUNT 

CFl; BDER IF INVALID SOURCE WORD COUNT 

SFl; BDER IF INVALID TARGET DIGIT COUNT 

CFl; DO TOS ADJUSTMENT IF RA := 

SF3A; DO TOS ADJUSTMENT IF RC :■ 

CHECK TARGET ADDRESS 

MASK; CHECK SPLIT STACK IF PRIV MODE 

RH := RA; GET TARGET OPERAND MASKS 

WORD COUNT - 1, CF3A; LSW REGN POINTER 

READ SOURCE MSW; MSW REGN POINTER 

READ SOURCE LSW; CHECK BOUND, MSW ADDR >= DL 

SF2 IF NEG, < MSW >; CHECK IF SM >= LSW ADDR 

DECREMENT WORD COUNT: JSB IF WD COUNT := 

STORE INTO REGN; DECREMENT REGN POINTER 

NEXT READ; LOOPBACK 

TARGET SIGN MASK ;RG : "SOURCE WORD COUNT, 

DETERMINE TARGET LENGTH (2635) 

SET CCA; -( WORD COUNT ), ICTR 
WORD COUNT - 4; MASK 
JSB IF NOT ZERO; NEXT REGN POINTER 
CHECK NEXT SOURCE DATA; 

CHECK IF DATA ALL ZERO, INC WORD COUNT 
DO CONVERT 1 BINARY WORD; -1, CF5B 
CONVERT 3 OR 2 BINARY WORDS 
NEGATE THE BINARY WORDS, IF NECESSARY 
; CONVERT 4 BINARY WORDS 
; CONVERT 5 BINARY WORDS 
; CONVERT 6 BINARY WORDS 
;CONVERT 7 BINARY WORDS 
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RECORD 


C.S 




NO 


ADDR 


LA8L 


21106 






21107 






21108 






21109 






21110 






21111 






21112 






21113 






21114 






21115 






21116 






21117 






21118 






21119 






21120 






21121 






21122 


15D4 


BDl 


21124 


15D5 




21126 


15D6 




21128 


15D7 




21130 






21131 


1508 




21132 


15D9 




21134 


15DA 




21135 


15DB 




21137 






21138 






21139 






21140 






21141 






21142 






21143 


15DC 


BDEN 


21145 


15DD 




21147 


15DE 




21149 




* 


21150 




« 


21151 




* 


21152 




* 


21153 




* 


21154 


15DF 


BD3S 


21156 






21157 


15E0 




21159 


15E1 




21161 


15E2 




21163 


15E3 




21165 






21166 






21167 






21168 






21169 






21170 


15E4 


CVZO 



-- CONVERT 1 BINARY WORD 
LA8L RREG SREG FUNC SFNC STOR SPSK 



.......*..... ALU B »«•••«••«»•••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



CVBD ( CONVERT 1 BINARY WORD ) --- 
ON ENTRY : 



XRA8 
XRA9 



BINARY WORD TO BE CONVERTED 



UPPER DECIMAL WORD 
LOWER DECIMAL WROD 



ONE BINARY WORD CAN BE CONVERTED TO A MAXIMUM 
OF 5 DECIMAL DIGITS. 



XR9 
XR13 
UBA 
UBA 


ADSB 
CSR 
ADD 
JSB 


«+3 


SPOA 


CF3A 
HBF2 
F2 
UNC 


OOOE 


BKX6 

UBB 

UBB 


ADDL 
JSL 
ADD 
REPN 


BTOO 


CTR 
BKX3 


UNC 
03 


UBA 
UBB 
UBA 
UBB 


ADD 
ADD 
CSR 
ADD 


LSI 


XR8 
XR9 
XR9 
XR8 




0089 


UBB 
XR31 
UBB 
BKX3 


LINK 
JSB 
LINK 
SUBL 


• +3 


DCTR 
CTR 

DCTR 
CTR 


CTRO 

UNC 

CTRO 



STORE DATA INTO MEMORY, AND IF DECIMAL OVERFLOWS 
TRAP OUT, OR ELSE DO STACK ADJUSTMENT AND NEXT, 



ADD 


XR14 CF3A 


XRll JSL 


STOA SP2B 


JSB 


BD33 F3A 


ADD 




ADD 




JSL 


SD24 



SHIFT CONVERTED DATA INTO PROPER FORMAT 

ADDL RH RC JSL SLDl SPIB 



XR9 ADD 

UBA ADO RLZ 

UBA UBA ADD LSL 

RG RG ADD LSL 



RG 
XRIO 



0089 BKX3 SUBL CTR 
UBA JSB BDEN XR8 
JSL SRDi 
RH BKX3 JSBS BDEN CTR 



F2 

UNC 
UNC 



CVBD ( CONVERT ZEROS TO DECIMAL ) 

JSB BDEN CCA 008A BKX3 SUBL 



COMMENT 



NEGATE DATA IF F2 SET; REPEAT COUNT FOR BTOD 
SF2 IF TARG SIGN :• 060F BYTE; DO CONVERT 
SKIP IF F2 SET; DECIMAL RESULT 
JSB IF SIGN ON LEFT BYTE; 
SHIFT TO PROPER FORMAT 

JSB DATA IF SIGN IS ON RIGHT BYTE 

; MSW REGN POINTER FOR STORING 



XRA14 :■ 0, CLEAR OVERFLOW FLAG; DO STORE 
JSB BD33 IF DECIMAL OVERFLOW; CRF 
DO STACK ADJUSTMENT, THEN NEXT 



REQN POINTER; SHIFT LEFT 1 DIGIT IF 

SIGN IS IN RIGHT BYTE 

MSW REGN POINTER 

DO STORE IF SIGN IN RIGHT BYTE 

SHIFT RIGHT IF SIGN IN LEFT BYTE 

DO STORE; 



DO STORE SET CCE ; REGN POINTER 
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RECORD 

NO 

21173 
21174 
2117S 
21176 
21177 
21178 
21179 
21180 
21181 
21182 
21183 
21184 
21185 
21186 
21187 
21188 
21189 
21190 
21191 
21192 
21193 
21194 
21195 
21197 
21199 
21201 
21203 
21205 
21207 
21209 



C S. 
ADDR 



15E5 
15E6 
15E7 
15E8 
15E9 
15EA 
15EB 
15EC 



CVBD -- CONVERT 2 BINARY WORDS 

.»...«««.«. ALU ft ...I,..*.... «..•..<,.•!,.<,« ALU B ••*«•••«••*«*« 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CVBD ( CONVERT 2 BINARY WORDS ) 
ON ENTRY ; 



10/ 2/86 9:27 AM 



BINARY WORDS ARE STORED IN TWO SETS, 
AND XRB7 - XRB8. 



XRA8 - XRA9, 



ON EXIT 

DECIMAL DATA ARE STORED INTO XRA7 



XRA9. 



FIRST, BINARY WORDS ARE DIVIDED BY lOOM TO GET 
THE UPPERMOST TWO DIGITS ( QUOTIENT ) 
THEN, CONVERT THE REMAINDER TO DECIMAL DIGITS 
CONVERT THE QUOTIENT TO BE THE UPPERMOST 2 DIGITS 
TWO BINARY WORDS CAN BE CONVERTED TO A MAXIMUM OF 
10 DIGITS. 



XR8 ADSB 

XR13 CSR 

UBA ADD 

SP4A ADD 

UBB ADO 

UBB ADD 

RG ADD 

UBB ADD 



SPOA 

SPOA 

RG 

XR9 

XR8 

SPOA 

XR7 



XR8 LINK SP3B 
JSL DIGO 
OOIE ADDL CTR 
SP2B JSL BTOD SP3B 
UBA ADD XR7 
OOOE ADDL CTR 
JSL BTOD SP3B 
JSB BD3S 



UNC 
UMC 



NEGATE IF F2 SET; 

SF2 IF SIGN IN RIGHT BYTE; DIVIDE BY lOOM 
BINARY WORDS ;« ( SPOA_, SP3B ); REPEAT COUNT 
CONVERT THE BINARY WOR6s TO DECIMAL 
DECIMAL DATA :• ( XRA8 , XRA9 ) 
; REPEAT COUNT 

DO CONVERSION FOR THE UPPERMOST 2 DIGITS 
STORE DATA 
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RECORD 


C S. 


NO 


ADDR 


21212 




21213 




21214 




21215 




21216 




21217 




21218 




21219 




21220 




21221 




21222 




21223 




21224 




21225 




21226 




21227 




21228 




21229 




21230 




21231 




21232 




21233 




21234 




21235 




21236 


15ED 


21238 


15EE 


21240 


15EF 


21242 


15F0 


21244 


15F1 


21246 


15F2 


21248 




21249 


15F3 


21251 


15F4 


21252 


15F5 


21254 


15F6 


21256 


15F7 


21258 


15F8 


21260 


15F9 



CVBD -- CONVERT 3 BINARY WORDS 

«..«.*.•>.« ftLU A •••*•*•*••» •«...«.«.•... ALU B «••««••««•••«• 
LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



CVBD ( CONVERT 3 BINARY WORDS ) --- 

ON ENTRY ; 

BINARY WORDS ARE STORED IN TWO SETS. XRA7 
& XR66 - XRB8. 



DECIMAL DATA ARE STORED INTO XRA6 - XRA9 ,& 
XRB5 - XRB8. 

1. THREE BINARY WORDS CAN BE CONVERTED TO A MAXIMUM 
OF 15 DECIMAL DIGITS. 

2. FIRST, DIVIDE THE BINARY WORDS BY lOOM TO GET THE 
UPPER 2 DECIMAL WORDS ( IN BINARY ) 

3. CONVERT THE REMAINDER TO DECIMAL DIGITS ( LOWER WORDS ) 

4. THEN, CONVERT THE QUOTIENT TO BE THE UPPER DECIMAL 
DIGITS. 



10/ 2/86 9:27 AM 



XR7 ADD 
XR8 ADD 
ADD 
UBA ADD 
SP4A ADD 
XR13 CSR 

UBB ADD 
UBB ADD 
SP2B ADD 
UBB ADD 
UBB ADD 
ADD 
ADD 



RG 

SPOA 

XR5 

SPOA 

RG 



XR9 

XR8 

SPOA 

XR7 

XR6 







JSL 


NEGB 






XR8 


ADD 




SP3B 




RG 


JSL 


DlOO 


SP2B 


OOIE 




ADDL 




CTR 


SP3B 




ADO 




SP28 




SP2B 


JSL 


BTOD 


SP3B 




UBA 


ADD 




XR7 


DOIE 




ADDL 




CTR 




RG 


JSL 


BTOD 


SP3B 




UBA 


ADD 




XR5 




UBA 


JSB 
ADD 
ADD 


BD3S 


XR6 



F2 
NCRY 



UNC 
UNC 



BINARY WORD; DO NEGATE IF F2 IS SET 

SETUP FOR DIVIDE BY lOOM 

DIVIDE BY lOOM 

SETUP FOR CONVERSION 

QUOTIENT :> ( RG , SP2B ) 

SF2 IF SIGN := OOOF ; 

CONVERT THE REMAINDER ( SPOA, SP3B ) 

LOWER DECIMAL WORDS 

CONVERT THE QUOTIENT TO UPPER DECIMAL WORDS 

DECIMAL DATA 

DECIMAL DATA; DO STORE DATA INTO MEMORY 

NOP to keep system happy 

NOP to keep system happy 
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RECORD 


C.S. 


NO 


AODR 


21265 




21266 




21267 




21268 




21269 




21270 




21271 




21272 




21273 




21274 




21275 




21276 




21277 




21278 




21279 




21280 




21281 




21282 




21283 




21284 




21285 




21286 




21287 




21288 




21289 




21290 




21291 




21292 




21293 




21294 


1600 


21296 


1601 


21298 


1602 


21300 


1603 


21302 


1604 


21304 




21305 


1605 


21307 


1606 


21309 


1607 


21311 




21312 


1608 


21314 


1609 


21316 


160A 


21318 


160B 


21320 


160C 


21322 




21323 




21324 




21325 


160D 


21327 


160E 


21329 




21330 




21331 




21332 


160F 


21334 


1610 


21336 


1611 


21338 


1612 



CVDB -- DECIMAL TO BINARY CONVERSION 

*..*,*»..„« ALU A ••«•«•«•••« .«...«*«««*,. ALU B »••••••»••*•*• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



DECIMAL TO BINARY CONVERSION 
ON ENTRY : 



10/ 2/86 9.27 AM 



RA 



SOURCE DIGIT COUNT 
SOURCE BYTE ADDRESS ( DB REL ) 
TARGET WORD ADDRESS ( DB REL ) 
SOURCE DATA CONVERTED TO TWO'S 

COMPLEMENT BINARY <= DIGIT COUNT <= 28; 

THE LENGTH OF THE RESULT DEPENDS ON THE NUMBER 

01- SOURCE DIGITS AS FOLLOWS .= 



RC 
TARGET ADDR 



SOURCE DIGIT COUNT 

1 THROUGH 4 

5 THROUGH 9 

10 THROUGH 18 

19 THROUGH 28 

29 THROUGH 32 



TARGET WRODS 



IF THE DIGIT COUNT IS ZERO, ONLY SDEC PORTION OF THE 
INSTRUCTION IS PERFORMED. THE 2 SOURCE PARAMETERS 
ARE DELETED IF SDEC .=0; ELSE DELETED ALL 3 ON TOS . 



RB 
RA 


SM 

RH 
SPIB 


ADD 
ADD 
ADD 
ADD 
ADD 


LSR 


XR8 
RE 

XRll 


CTFl 


OFFF 


UBA 
RA 


JSZ 

ADDL 

JSL 

JSL 

JSB 


TRP 

CKB 

MSKB 

DBZR 


XR3 
BKX5 
XR5 
XR6 


RC 

FFF6 

RREG 


DB 
RA 


ADD 

ANDL 

ADD 




RG 
XR7 


HBF2 


0004 


RA 
RG 


JSL 

SUBL 

JSB 


DBER 
CKAl 


XR7 
SPIB 


0012 
RREG 
0002 


RA 
UBB 


ANDL 

JSBS 

ADDL 

ADD 

ADD 


CKAl 


XR3 

XR6 
XR2 


POS 


0002 
OOIC 

0002 


RG 

UBB 

RA 

UBA 

UBB 


JSBI 

ADDL 

SUBL 

JSB 

ADDL 


CKAl 
CKAl 


SPIB 
SPIB 

SPIB 
SPIB 




BOUNDS CHECKING 














RE 


STA 
SPIB 


ADD 
BNDE 




RE 




002F 
RG 


DL 


ADDL 
BNDE 




XR16 


RC 


XRU 

DB 

XR12 


ADD 
ADD 
ADD 
CSR 




SPOA 


WRD 
HBF2 




RE 

BKX4 

UBA 


JSL 
JSL 
ADD 
JSB 


SPLT 
FCHB 

•+4 


BKX3 
XR14 



UNC 
UNC 
ZERO 

Fl 

NEG 

UNC 



NEG 
UNC 



NEG 
UMC 
NF2 
UMC 



; TRAP IF CIR ( 9:2 ) NOT ZERO 
UBA :- SM; MASK 

SOUCE WORD ADDR; CK SOURCE ADDR 
SOURCE WD-ADDR; GET SOURCE MASKS 
SET Fl IF SOURCE DIGIT COUNT > 28 
JSB IF SOURCE DIGIT COUNT := 
TARGET AODR; JSB IF SOURCE COUNT 
-10; SKIP IF RA < 5 
SET F2 IF 5 <« RA <» 9; 
JSB FOR RA < 5, TARGET ADDR 



18; JSB IF RA 
JSB IF RA < 19: 
TARGET LSW ADDR; 
;JSB IF RA < 29 
TARGET LSW ADDR 



10, TARGET LSW ADDR 
TARGET LSW ADDR 
SKIP IF RA > 28 



STATUS; LOOPCOUNT 

BOUNDS CHECKING; SM > ■= LSW ADDR, 

DL <« MSW ADDR 



CK SPLIT STACK IF PRIV MODE 
SOURCE WD ADDR; FETCH SOURCE DATA, WD COUNT 
MSW ADDR WRITE; STATUS, SKIP IF RA > 9 
SF2 IF SOURCE SIGN := OOOF ; JSB IF RA <= 9 
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RECORD 


C.S. 


NO 


ADDR 


21340 


1613 


21342 


1614 


21344 




21345 


1615 


21347 




21348 




21349 


1616 


21351 


1617 


21353 


1618 


21355 


1619 


21357 




21358 


161A 


21360 




21361 




21362 


161B 



CVDB -- DECIMAL TO BINARY CONVERSION 

•*.*•*«.... ALU A ••.«••*••*« .........*... ALU B •*•••*••••••«« 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



FFE3 


RA 
STA 


ADDL 
ADD 


LSR 


RE 
XR14 


FEED 


RA 


ADDL 




RH 


2710 


XR9 
UBB 


ADD 
ADD 
ADDL 
SUB 




SPOA 
RG 


RH 




JSB 
JSB 


DB4 
DBS 





UBA 
RA 



CF3A 0004 RA 
UBA XR7 
0009 RA 

CTFl 



NEG 



ADD 
JSL 



LBF5 
SRDl SPIB FSB 



JSL SLDl XR19 



SUBL 

JSB DBl RG 

SUBL 

JSB DB2 XR19 



0003 DB ADDL 



XR31 



NEG 
UNC 
NEG 
UNC 



10/ 2/88 9:27 AM 

COMMENT 

UBA :« RA - 29: SF5B IF SOURCE SIGN :• OOOF 

SHIFT RIGHT STATUS; 

SHIFT RIGHT 1 DIGIT IF F5 

UBA :• RA - 19; SHIFT LEFT 1 DIGIT IF NF5B 



SOURCE DATA; SKIP IF RA > 4 

SPOA ;• 0; JSB FOR 1 TARGET WD CONVERSION 

lOK; SKIP IF RA > 9 

SFl IF RA <• 9; XR19 :■ 0, 

JSB FOR 2 TARGET WD CONVERSION 

JSB FOR 4 WD CONVERSION; UBB : ■ DB + 3 



FOR 8 OR 6 WO CONVERSION 
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RECORD 


C S, 


NO 


ADDR 


21365 




21366 




21367 




21368 




21369 




21370 




21371 




21372 




21373 




21374 




21375 




21376 




21377 




21378 




21379 




21380 




21381 




21382 


161C 


21384 


161D 


21386 


161E 


21388 


161F 


21390 


1620 


21392 


1621 


21394 


1622 


21396 


1623 


21398 




21399 


1624 



CVDB -- CONVERT 1 - 4 DIGITS 10/ 2/88 9:27 AM 

««.*«...*,.. ALU A ««•••«•*•*• .««.....«.«». ALU B **•••••••••**• 

LA8L RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



CVDB ( CONVERT 1 - 4 DIGITS ) -- 
ON ENTRY : 



RQ :■ SOURCE DATA TO BE CONVERTED 
F2 := 1, IF SOURCE SIGN MASK IS OOOF 



DATA WILL BE STORED INTO THE TARGET WD 
ADDRESS, NEGATED IF NECESSARY. 



RG 


CSR 








RG 


CSL 




UBA 


CSR 








UBB 


CSL 




UBA 


CSR 








UBB 


CSL 




UBA 


CSR 




SP4A F2 




UBB 


CSL 




UBB 


ADD 




SP4A 


RC 


DB 


ADD 


WRD 


DB 


ADD 




WRD 






ADD 




SP4A 


ADD 




CF2 






JSB 


DTOB XR19 UNC 


UBB 


ADD 




DATA 




XR14 


ADD 


SWAB EVEN 




JSB 


SD23 


UNC 




UBA 


SUB 


DATA 



CIRCULAR 

SHIFT 

TO RIGHT 

JUSTIFY 
SP4A :■ PROPER FOMRAT ; TARGET WD ADDR 
TARGET WD ADDR 
DO CONVERSION 
CORRECT DECIMAL DATA; 
SKIP IF NOT CCL 
DO SDEC; STORE DATA 
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CVDB 


-- CONVERT 


■ 5 - 


^9 DIGITS 












10/ 2/86 9:27 


AM 


RECORD 


C.S. 




* * * « 


* * * «* 


•• ALL 


I A • 




'••• ALU B 


***ti 


i****! 


* ** • * 






NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR SPSK RREG SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


COMMENT 




21402 






























21403 






























21404 






























21405 








CVDB 


( CONVERT 


5 - 9 DIGITS ) --- 
















21406 






























21407 








ON ENTRY : 




















21408 






























21409 








TWO SETS OF 


DECIMAL DATA ARE STORED IN XRA7 - XRA9 . 








21410 








& 


XRB6 


- XRB8; AS 1ST. 2ND. 4 3RD DECIMAL WORDS 


RESP 








21411 








1 


. CONVERT 


THE UPPERMOST WORD, IF ANY 


. TO 1 


3INARY. 








21412 








2 


. MPY 


THE 


BINARY BY lOK. AND ADD WITH THE 


BINARY 








21413 










WORD 


1 CONVERTED FROM THE 2ND DECIMAL WORD 










21414 








3 


. AGAIN, MPY THE RESULT BY lOK, 


AND ADD WITH THE 








21415 










BINARY WORD CONVERTED FROM THE 3RD 


DECIMAL WORD. 








21416 






























21417 






























21418 


1625 


DB2 




STA 


ADD 


LSR 


XR14 XR6 


JSB 


*+6 


SPIB 




F2 


SHIFT SIGHT STATUS; JSB IF 


SIGN := OOOF 


21420 






























214^1 








LEFT 


SHIFT 


■ DECIMAL DATA IF SOURCE SIGN MASK : 


= OFOO 








21422 






























21423 


1626 






UBB 


ADD 




XR7 


REPN 






CF4B 


03 


RIGHT JUSTIFY THE DATA 




21425 


1627 






UBA 


ADD 


LSL 


XRS UBB 


LINK 




SP2B 


DCTR 


CTRO 






21426 


1628 






SPIB 


ADD 




XRS 


REPN 








03 






21427 


1629 






UBA 


CSL 




UBB 


CSL 






DCTR 


CTRO 






21428 


162A 




OOOF 


UBA 


ANDL 




SP4A UBB SP2B 


JSB 


*+6 






UNC 






21429 




* 


























21430 




• 




RIGHT SHIFT DECIMAL DATA IF SOURCE ; 


SIGN MASK 


:■ OOOF 








21431 




* 


























21432 


162B 






XR8 


ADD 




XRS 


REPN 






CF4B 


03 


RIGHT JUSTIFY THE DATA 




21434 


162C 






UBA 


ADD 


LSR 


UBB 


LINK 




SP2B 


DCTR 


CTRO 






21435 


162D 






XR7 


ADD 




XR7 


REPN 








03 






21436 


162E 






UBA 


ADD 


LSR 


SP4A UBB 


LINK 






DCTR 


CTRO 






21437 


162F 






UBB 


ADD 




XRS SP2B 


ADD 














21438 




* 


























21439 




• 




CONVERT THE UPPERMOST WORD ( IF ANY 


) 














21440 




* 


























21441 


1630 




UBB 




ADD 




XR9 


JSB 


*+5 


SP2B 




NFl 


LSW; JSB IF NFl ( RA <= 8 ) 




21443 


1631 






SP4A 


JSB 


•+4 


ZERO FFFF SP4A 


ADDL 




CTR 






JSB IF UPPERMOST WORD :« 0: 


DEC COUNTER 


21445 


1632 








ADD 






REPC 




SP3B 


DCTR 


CTRO 


REPEAT ADD 




21447 


1633 






UBA 


ADD 




RG UBB 


LINK 






DCTR 


CTRO 






21448 


1634 






UBB 


ADD 




SPOA UBA 


ADD 




SP2B 






BINARY DATA ( LOWER, UPPER 


) 


21450 




* 


























21451 




* 


























21452 


1635 


DB2B 




XRS 


ADD 




SP4A 


JSB 


DTOB 






UNC 


CONVERT 2ND WORD: 




21454 


1636 




SPOA 




ADD 




UBA UBB 


ADD 














21455 


1637 






SP2B 


ADD 




RE UBA UBB 


LINK 














21456 


1638 




2710 




ADDL 




SP4A UBB 


JSB 


X1W2 


RG 




UNC 


MPAD DATA BY lOK 




21458 


1639 






XR9 


ADD 




SP4A 


JSB 


DTOB 






UNC 


CONVERT 3RD WORD; 




21460 


163A 




SPOA 




ADD 




SP4A UBA UBB 


ADD 




RG 










21461 


163B 






XR14 


ADD 


SWAB 


HBF2 


JSB 


DB48 






F4B 


SF2 IF CCL; RTN IF FOR 4 WC 


1 CONVERSION 


21463 


163C 








ADD 




RC DB 


INC 






WRD 




; MSW ADDR 




21465 


163D 






SP2B 


ADD 




RG SP4A 


LINK 














21466 


163E 






UBA 


ADSB 




UBB 


LINK 




SPIB 


DATA 








21467 


163F 






UBA 


ADD 




DATA 


JSB 


SD23 






UNC 


DO SDEC 
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RECORD 


OS. 


NO 


ADDR 


21470 




21471 




21472 




21473 




21474 




21475 




21476 




21477 




21478 




21479 




21480 




21481 




21482 




21483 


1640 


21484 


1641 


21485 


1642 


21486 


1643 


21488 




21489 




21490 




21491 


1644 


21492 


1645 


21493 




21494 




21495 




21496 


1646 


21497 


1647 


21498 


1648 


21499 


1649 


21500 




21501 


164A 


21502 


164B 


21503 




21504 


164C 


21505 


164D 


21507 




21508 




21509 




21510 


164E 


21511 


164F 


21512 




21513 


1650 


21514 


1651 


21515 


1652 


21516 


1653 


21517 


1654 


21518 


1655 


21520 




21521 




21522 




21523 


1656 


2J5::'4 


1657 


215:"^. 


lfi58 


215:'R 


1659 


2152 7 


165A 


21528 


1658 



CVDB -- CONVERT 10 - 18 DIGITS 
.!,..*••»«•« ALU A *«••«**•«•» 
LABL RREQ SREG FUNC SFNC STOR SPSK 



****,»*»**»** ALU B ••«»•••••*•*»• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



CVDB ( CONVERT 10 
ON ENTRY : 



18 DIGITS ) --- 



DATA ARE STORED IN XRA4 - XRA8 IF SIGN ;» OFOO, 
IN XRA5 - XRA9 IF SIGN :• OOOF , 

REFER DB2 FOR CONVERSION ALGORITHM, 





XR5 ADD 

XR4 ADD 

CAD 

REGN ADD 


SP4A 
SP4A 

REGN 


0088 

RG 

UBA 


BKX3 
CTRS 


JSBI *+A 

ADDL 

CAD 

JSB --1 


RG 
CTR 
RG 
CTR 


ICTR 


FSB 

ZERO 
UNC 




CONVERT THE UPPERMOST WORD TO 1 


BINARY, & X lOK 










SP4A JSB DTOB 
ADD 


UNC 
SPOA 


UBA 


UBB 


ADD 

JSB XIWD 


SP2B 

RG 




NZRO 




CONVERT NEXT WORD TO BINARY, ADD, & 


X 10**12 








SPOA 
UBA 


XR8 ADD 
ADD 
SP2B ADD 
UBB JSB •+3 


SPAA 

RE 

ZERO 


UBA 
UBA 


XR16 
UBB 
UBB 
UBB 


JSB DTOB 
ADD 
LINK 
JSB •+3 


CTR 

SPIB 
SP3B 




UNC 
ZERO 


DOES 
1000 


ADDL 
ADDL 


SPOA 
SPAA 


0AA5 


SPIB 


ADDL 
JSB DDD 


SP3B 
RG 




UNC 


SPOA 


UBB ADD 

ADD 


XRl 


SP3B 


SPAA 


ADD 
ADD 


XRA 
SPIB 








CONVERT NEXT WORD TO BINARY, ADD, & 


X 10**8 








05F5 


XR7 ADD 
ADDL 


SPAA 
RE 


UBA 
UBA 


UBB 


JSB DTOB 
JSB X2WD 


BKX7 




UNC 
UNC 


SPOA 

RG 
UBA 


ADD 
ADD 
ADD 
ADD 
XRl ADD 
ADD 


XRl 
SPOA 


RC 

UBA 

UBA 

UBB 

UBA 


XR31 

XRA 

SP2B 

SPIB 

BKX7 


ADD 

LINK 

LINK 

LINK 

LINK 

JSB DB2B 


XRA 

XR3 
XR2 
SP2B 


WRD 
SFAB 


UNC 




ADD ALL BINARY 


RESULT, & 


STORE 


INTO 


MEMORY 










SP2B ADD 

UBA ADD 
ADD 
XRl ADD 
UBB ADD 
SP2B ADD 


SPAA DATA 
DATA 
DATA 


RG 

UBB 

UBA 

UBA 

RC 


SPAA 

XRA 

XR3 

XR2 

XR31 


LINK 

LINK 

LINK 

LINK 

ADD 

JSB SD23 


RG 

SP2B 

SPIB 


DATA 
WRD 


NF2 



MOVE DATA TO XRA5 



JSB TO CONVERT THE LAST 2 DECIMAL WORDS 
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RECORD 


C.S 


NO 


ADDR L 


21530 




21531 




21532 




21533 




21534 




21535 




21536 




21537 


185C 


21538 


16SD 


21539 


165E 


21540 


165F 



IVOB -- CONVERT 10 - 18 DIGITS 

* * * A * « « 4 A « ALU A *********** ************ ft ALU B ************** 
LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREQ FUNC SFNC STOR SPEC SKIP 



10/ 2/86 8:27 AM 



CC»1MENT 



NEGATE RESULT IF NEEDED. & STORE INTO MEMORY 



SP2B SUB 
DB ADD 
SP4A CAD 
UBA JSB 



RQ CTFl 
WRD 

SP4A FITC 
DATA 



RQ LINK 
DB INC 
SPIB LINK 
RG ADD 



DATA 
WRD 
DATA 
DATA 
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RECORD 

NO 

21542 
21543 
21544 
21545 
21546 
21547 
21548 
21549 
21550 
21551 
21552 
21553 
21555 
21557 
21558 
21560 
21582 
21563 
21564 
21566 
21567 
21568 
21570 
21571 
21572 
21573 
21575 
21577 
21579 
21580 
21581 
21582 
21583 
21585 
21587 
21589 
21591 
21592 
21593 
21594 
21595 
21597 
21599 
21601 



C.S. 
ADDR 



1661 

1662 
1663 
1864 
1665 
1666 
1667 
1668 
1669 



leeA 

1668 
166C 



166D 
166E 
166F 
1670 



1671 
1672 
1673 
1674 



CVDB -- CONVERSION ROUTINES 

• •••*it**ii*« ALU A •*•««•««•** 
LABL RREQ SREQ FUNC SFNC STOR SPSK 



••«••.*«««••• ALU B •••••••••«•**• 

RREQ SREQ FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



CVDB ( CONVERT 1 DECIMAL WORD TO BINARY ) --- 
DECIMAL WORD :• A*1000 + B'lOO + C*10 + D 



BINARV WORD 



1660 DTOB USA 



UBB ADD 

UBA ADD 

UBA UBB ADD 

UBA UBB ADD 

UBA ADD 

UBA UBB ADD 

UBA UBB ADD 

UBA ADD 

UBA UBB ADD 



A*1000/2**12 + B*100/2*«8 + 
C*io/2*«4 + D. 



NZRO FOOD UBA ANDL 
RSB UBA XR19 lOR 



LSR 
LSR 
LSR 
LSR 
LSR 
LSR 
LSR 
LSR 



DOD 



MULTI:PLY ( RE, 

ADD 
UBA MPAD 
SREQ ADD 



mult:i:ply i osfs, 



UBA 
UBA 



ADD 
ADD 
MPAD 
ADD 



SP4A 
SPOA 



MULTIPLY ( 0, RQ ) BY ( 0, 



XIWD 2710 
X1W2 

RE UBA 
UBA 



ADDL 
ADD 
MPAD 
ADD 



SP4A 
SPOA 



UBA 

OFOD 

UBA 

OOFO 
UBA 

OOOF 


SP4A 

UBB 

UBB 

SP4A 

UBB 

UBB 

SP4A 


ADD LSL 

ANDL 

ADD 

ADD 

ANDL 

ADD 

ADD 

ANDL 


!POA, 


SP3B 


, SP4A ) 


RQ 


UBB 
SREQ 


REPC 
LINK 
ADD 


' ( 


, 0, 1 


5P4A ) 


ElOO 
RQ 


UBB 
UBB 


ADDL 
REPN 
LINK 
ADD 


0, : 


2710 


) 


RQ 


UBB 
UBB 


ADD 
REPN 
LINK 
ADD 



DCTR CTRO 
SP2B RSB 



SKIP IF DECIMAL IS NZRO; UBB ;• LEFTMOST DIQ 

RIGHT SHIFT. RTN IF DECIMAL IS ZERO; 

SAVE ACC DidiT 

RIGHT SHIFT; UBB :« AOOO 

UBA :• ( A'lO )/18; UBB :> OBOO 



UBA ;■ (( A«10 )/ie + B )«10/16;UBB :• OOCO 
UBA ;• ((( A*10 1/16 + B )*10/16 + C )*10/16 



REPEAT LOOP 
DO MPY 
PRODUCT ( RQ, 



SP2B, SPOA, SP3B ) 



RG DECIMAL WORD; RQ :> ElOO 

SP3B OF REPEAT LOOP 

DCTR CTRO DO MPY 

SP2B RSB PRODUCT ( RQ, SP2B, SPOA, SP3B ) 



RE SP4A ;« 2710; RE ;- 

SP3B OF SPOA ;» 0; REPEAT LOOP 

DCTR CTRO DO MPY 

SP2B RSB PRODUCT ( RQ, SP2B, SPOA, SP3B ) 
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RECORD 


c s. 


NO 


ADDR 


21604 




21605 




21606 




21607 




21608 




21609 




21610 




21611 




21612 




21613 




21614 




21615 


1675 


21616 


1676 


21617 


1677 


21618 


1678 


21619 




21620 




21621 




21622 


1679 


21623 


167A 


21624 




21625 




21626 




21627 


167B 


21628 


167C 


21629 


167D 


21630 




21631 


167E 


21632 


167F 


21633 


1680 


21634 




21635 


1681 


21636 


1682 


21637 


1683 


21638 




21639 




21640 




21641 


1684 


21642 


1685 


21643 




21644 




21645 




21646 


1686 


21647 


1687 


21648 


1588 


21649 


1689 


21650 


168A 


21651 




21652 


msB 


21653 


168C 


216^4 




21655 


16 80 


21656 


168E 


21657 


168F 


21B58 


1690 


21659 


1691 



CVDB -- CONVERT 19 - 28 DIGITS 10/ 2/8 

«««••••*•*« ALU A •••«••*•••• »««*..«»••«»» ALU B •*••••••*••**• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COKMENT 



CONVERT 19 - 28 DIGITS ) 





DATA ARE STORED IN XRA3 - 
IN XRA2 - 


■ XRA9 IF SIGN • OOOF , OR 

■ XRA8 IF SIGN :» OOOF. 






REFER DB2 FOR CONVERISON 


ALGORITHM. 










XR3 ADD 

XR2 ADD 

CAD 

REGN ADD 


SP4A 
SP4A 

REGN 


8KX3 
0088 
RG 
UBA CTRS 


JSBI *+A 

ADDL 

CAD 

JSB •-! 


RG 
CTR 
RG 
CTR 


FSB 

ICTR ZERO 
UNC 




CONVERT THE 1 


JPPERMOST WORD TO BINARY, 4 lOK 






UBA 


SP4A ADD 
UBB ADD 


RG 


SPAA 


JSL DTOB 
JSL XIWO 


SP2B 


UNC 
NZRO 




CONVERT NEXT 


WORD TO BINARY, ADD, 4 


X 10«*8 






SPOA 


XR4 ADD 

ADD 

SP2B ADD 


SP4A 

SFl 
RE 


UBA UBB 
UBA UBB 


JSL DTOB 

ADD 

LINK 


SPIB 


UNC 


UBA 
ElOO 


UBB lOR 
ADD 
ADDL 


ZERO 
SPOA CFl 
SPAA 


05F5 
OOIF 

SPIB 


ADDL 
ADDL 
JSL ODD 


SP3B 

CTR 

RG 


NFl 


SPOA 


SREG ADD 

SP2B ADD 

ADD 


XRO 
XRl 


XR14 
SP3B 


ADD SWAB 

ADD 

ADD 


XR3 
XR3 


LBF5 

Fl 




CONVERT NEXT 


WORD TO BINARY, ADD, 4 


X lOK 






UBA 


XR5 ADD 
UBB ADD 


SP4A 
RG 


UBA 


JSL DTOB 
JSL XIWD 


BKX7 


UNC 
UNC 




CONVERT NEXT 


WORD TO BINARY, ADD, 4 


X 10«'12 






SPOA 


XR6 ADD 
ADD 
SP2B ADD 
UBA ADD 
XRl ADD 


SP4A 

XRl CTFl 


UBA UBB 
UBA UBB 
UBB XR3 
UBA BKX7 


JSL DTOB 

ADD 

LINK 

LINK 

LINK 


RG 
RE 


UNC 


1000 
00E8 


ADDL 
ADDL 


SP4A 
SPOA 


D4A5 

XR16 


ADDL 
JSL DDD 


SP3B 
CTR 


UNC 


SPOA 


UBB ADD 
ADD 
XRO ADD 
XRO INC 
XRl ADD 


XR3 

Fl 
RE UNC 
RE 
RG 


SP4A 
SP38 

UBA 
RG 
D4A5 


ADD 
ADD 
ADD 
ADD 
ADDL 


XR6 

XR5 

XR4 

BKX6 

SP3B 
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CVDB 


-- CONVERT 


■ 19 


- 28 DIGITS 
















RECORD 


C.S. 


* * * * ] 


«••**•" ALL 


) A 


* 


AAAlKAAAAA* 


* ft * A 


ft ft ft ft A 1 


»••* ALU B 


ft ft ft ft ] 


k ft ft ft ft ) 


« ft ft ft ft 


NO 


ADDR 


LABL RREG 


SREG l-UNC 


SFNC 


STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


21660 


1692 


GOES 


ADDL 






SPOA 


RC 


XR31 


ADD 






WRD 




21661 




* 
























21662 


1693 


1000 


ADDL 






SP4A 




XR16 


JSL 


ODD 


CTR 




UNC 


21663 




* 
























21664 


1694 




SP4A ADD 










BKX6 


ADD 




RF 






21665 


1695 




XR3 ADD 






NCFY 


UBA 


XR4 


LINK 




XR4 






21666 


1696 




RF XNC 






RF 


UBA 




ADD 










21667 


1697 


SPOA 


ADD 






RF 




UBB 


ADD 










21668 


1698 




RF ADD 








SP3B 


UBB 


LINK 




XR3 






21669 


1699 




SP2B ADD 






RF 


UBA 


RF 


LINK 




BKX3 






21670 




* 
























21671 




• 


CONVERT NEXT 


WORD TO BINARY, & 


X lOK 










21672 




* 
























21673 


169A 




XR7 ADD 






SP4A 






JSL 


DTOB 






UNC 


21674 


169B 


UBA 


UBB ADD 






RG 






JSL 


XIWD 






UNC 


21675 




* 
























21676 




'i 


CONVERT NEXT 


WORD TO BINARY. ADD, & 


X lOK 








21677 




* 
























21678 


169C 




XR8 ADD 






SP4A 






JSL 


DTOB 






UNC 


21679 


169D 


SPOA 


ADD 








UBA 


UBB 


ADD 










21680 


1B9E 




SP2B ADD 






RE 


UBA 


UBB 


LINK 










21681 


169F 


2710 


ADDL 






SP4A 




UBB 


JSL 


X1W2 


RG 




UNC 


21682 




























21683 




• 


CONVERT LAST 


WORD TO BINARY, & 


ADD 












2 If' 84 




* 
























21b85 


16A0 




XR9 ADD 






SP4A 




XR3 


JSL 


DTOB 


SPIB 




UNC 


216Sfj 




* 
























216S7 




* 


ADD ALL THE 1 


3INARY RESULT 


, & STORE 


INTO MEMORY 






21688 




* 
























21689 


16A1 


SPOA 


ADD 








UBA 


UBB 


ADD 










21690 


16A2 




SP2B ADD 






RE NCRY 


UBA 


UBB 


LINK 










21691 


16A3 




RG INC 






RG 




UBB 


ADD 










21692 


16A4 




RE ADD 






NCRY 


UBB 


XR6 


LINK 




RE 






21693 


16A5 




RG INC 






RG 




UBA 


ADD 










21694 


16A6 




ADD 








UBB 




ADD 










21695 


16A7 




RG ADD 








UBB 


XR5 


LINK 




RH 






21696 


16A8 




SPIB ADD 






XRO CTFl 


UBA 


XR4 


LINK 




SP2B 


DATA 




21697 


16A9 




INC 








UBA 




ADD 




SPIB 




NFl 


21698 


16AA 




RF ADD 






RE DATA 


UBA 


BKX3 


LINK 




BKX3 






21699 


16AB 




RE ADD 






SP4A 




RH 


ADO 






DATA 




21700 


16AC 




ADD 










BKX3 


ADO 










21702 


16AD 




UBB ADD 






DATA 




SP4A 


ADD 






DATA 




21703 


16AE 




SPIB ADD 






DATA 






JSB 


SD23 






NF5B 


21705 




* 
























21706 




* 


DO NEGATE 


IF 


NECESSARY, THEN STORE : 


INTO MEMORY 






21707 




* 
























21708 


16AF 




JSB 


DBNE 


UNC 


RC 


DB 


ADD 






WRD 




21709 


16B0 




SP2B ADD 






DATA 




RE 


ADD 






DATA 




21710 


16B1 




RH ADD 






DATA 




BKX3 


ADD 






DATA 




21711 


16E2 




SP4A JSB 


SD23 


DATA 




SPIB 


ADD 






DATA 





10/ 2/86 9:27 AM 



DO SDEC IF NF5B 
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RECORD 


C S. 




NO 


ADDR 


LABL 


21713 






21714 






21715 






21716 






21717 






21718 






21719 






21720 






21721 






2172Z 






21723 






21724 


16B3 


DB8 


21725 


18B4 


SRDX 


21726 


16B5 




21727 


1686 




21728 




* 


21729 




* 


21730 




• 


21731 


16B7 


DBNE 


21732 


16B8 




21733 


1669 




21734 


16BA 




21735 


16BB 




21736 


16BC 





I -- COHVERT 29 - 32 DIGITS 
•• ALU A ••••••*«••• 

LABL RREG SREQ FUNC SFNC STOR 5PSK 



............. ALU B ••««•••«••••«« 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



CVDB ( CONVERT 29 - 32 DIGITS ) --- 

ON ENTRY : 

DECIMAL DATA ARE STORED IN XRA2 
REFER DB2 FOR THE ALGORITHM 
'"•« THIS IS NOT SUPPORTED ON 364 •• 



XRA9, & 



DIAG 
ADD 
ADD 
ADD 



ADD 
XR13 ADD 
XR29 ADD 

ADD 



NEGATE THE DATA, 4 STORE OUT TO MEMORY 



RH SUB 

SPIB CAD 

SPIB ADD 

RE CAD 

RQ CAD 

0007 DB ADDL 



RH CTFl 
FITC 
SP4A 

RE FITC 
RQ FITC 



SP4A LINK 
SP2B LINK 
UBA ADD 
8KX3 LINK 
XRll LINK 
ADD 



CTR 
SPIB 



SPIB 
SP2B 
SPIB 
BKX3 
XRll 
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RECORD 

NO 

21738 
217T9 
21740 
21741 
21742 
21743 
21744 
21745 
21746 
21747 
21749 
21750 
21761 
21753 
21755 



C S 
ADDR 



STACK ADJUSTMENT FOR CVDB 

...*.*.».». ALU A •••••«*•*•« 

LABL RREG SREG FUNC SFNC STOR SPSK 



«,.**•.*<.<.•••• ALU B •••••••••••••K 

RREG SREG FUNC SFNC STOR SPEC SKIP 



SD23 --- WILL POP THE STACK TWO OR THREE TIMES 



IF CIR ( 11:1 ) ;« 



DECREMENT BY 2 , OR 
DECREMENT BY 3, 



16BD SD23 



ADD 



16BE ADD 

16BF DBZR 0010 CIR ANDL 

16C0 UBA ADD 

16C1 ADD 



ZERO 
EPOP 



ADD 
ADD 
ADD 
JSZ NEXT 



CCA 

EPP2 

CRF 



10/ 2/86 9;27 AM 



; SET CCE IF XR819 :» NZRO 
XRB19 :- ACC DIGITS 



CHECK CIR ( li;l ) ; 
SKIP IF CIR (11:1 
POP ONE; DO NEXT 



P0P2 
) :« 0; 
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RECORD 


C S 


NO 


ADDR 


21758 




21759 




21760 




21761 




21762 




21763 




21764 




21765 




21766 




21767 




21768 




21769 




21770 




21771 




21772 




21773 




21774 




21775 




21776 




21777 




217 7 8 


16C2 


217 80 


16C3 


21782 


16C4 


21784 


16C5 


21786 


16C6 


21788 


16C7 


21790 


16C8 


21792 


16C9 


21794 


16CA 


21796 


16CB 


21798 


16CC 



DMPY -- DOUBLE LOGICAL MULTIPLY 

•...•**>*.« ALU A ••••••••••• ............. ALU B «»*.••«•**•*«* 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



DOUBLE LOGICAL MULTIPLY --- 



LOW-ORDER END OF OPERAND-1 

HIGH-ORDER END OF OPERAND-1 

LOW-ORDER END OF OPERAND-2 

HIGH-ORDER END OF OPERAND-2 

( VALID AFTER PULM ) 

THE TWO DOUBLE-WORD OPERANDS ON THE TOP OF STACK 
ARE LOGICALLY MULTIPLIED. THE TWO OPERANDS ARE 
REPLACED BY THE FOUR-WORD LOGICAL PRODUCT. CARRY 
IS CLEARED IF THE HIGH-ORDER 32-BITS ARE ALL ZEROS, 
OTHERWISE, CARRY IS SET. 



10/ 2/86 9:27 AM 







JSZ 


RC 




ADD 
ADD 


RB 


UBA 


MPAD 




UBA 


ADD 


UBA 


UBB 


lOR 


0400 


STA 


lORL 


SPOA 




ADD 
ADD 
ADD 
INC 





UNC 




UBA 


JSZ 


TRP 






NZRO 


SP4A 


CFl 




UBA 


ADD 




SP3B 






SPOA 








REPN 






CCRY 


IF 






RA 


UBB 


LINK 






DCTR 


CTRO 


SP4A 


CCA 




UBB 


ADD 




RC 








ZERO 


SP3B 




ADD 




RA 


CRF 




STA 






SP4A 


ADD 




RD 




ZERO 


RB 








JSZ 


NEXT 






UNC 




CCA 


UBA 


RC 
RA 


lOR 
JSZ 


NEXT 






NZRO 
ZERO 




CCA 






JSZ 


NEXT 






UNC 



PULM FOR RD; TRAP IF CIR ( 9:3 ) NOT ZEROS 
SET UP FOR MPAD 

; CLEAR CARRY, REPEAT LOOP FOR MPAD 
DO MPAD 
SET CC ■ 

SKIP IF HIGH-ORDER 32 BITS ARE ALL ZEROS; 
SET CARRY; SKIP IF HIGH-ORDER 16 BITS ZEROS 
DO NEXT 

SET CCE; SKIP IF NZRO 
DO NEXT IF ALL ZEROS 
SET CCG; THEN DO NEXT 
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RECORD 


C.S. 


NO 


ADDR 


21801 




21802 




21803 




21804 




21805 




21806 




21807 


16CD 


21808 


16CE 


21809 


16CF 


21810 


16D0 


21811 


16D1 


21812 


1602 


21813 


16D3 


21815 


16D4 



CVBD -- NEGATE THE BINARY WORDS 10/ 2/86 9:27 AM 

«...••••».. ftLy A ««•**..«««. ».«•..•..««.. ALU b •••••«««*•*«•* 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



ROUTINE TO NEGATE BINARY WORDS FOR CVBD 



XR8 


SUB 


XR8 


UBB 


ADD 


XR9 


UBB 


CAD 


XR6 


UBB 


ADD 


XR7 


UBB 


CAD 


XR4 


UBB 


ADD 
ADD 


XR5 


XR3 


CAD 


XR3 



XR8 


LINK 


XR5 


ADD 


RG 


LINK 


XR3 


ADD 


XR4 


LINK 


RA 


ADDL 


SPIB 


ADD 




ADD 



POS 

RSB iRETURN IF RA <= 6 

RSB 
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RECORD 

NO 

21817 
21818 
21819 
21820 
21821 
21822 
21823 
21824 
21826 
21828 
21830 
21832 
21833 
21834 
21835 
21836 
21837 
21838 
21839 
21841 
21843 
21844 
21846 
21848 
21850 
21851 
21852 
21853 
21854 
21855 
21856 
21857 
21858 
21860 
21862 
21864 
21866 



C S 
AODK 



16D5 
16D6 
1607 
16D8 



I6D9 
16DA 

16DB 
16DC 
16DD 



16DE 
16DF 
16E0 
16E1 
16E2 



DECIMAL TRAP ROUTINES FOR CVDB, & CVBD 

<,.......*.« ALU A «*•••*••«*• ............. ALU 8 «•••••••»••««• 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



TRAP ROUITNES FOR CVDB 



10/ 2/86 9:27 AM 



DBER 2000 STA ANDL 
ADD 

3SZ TRPR UNC 
0800 STA lORL STA 



TRAP ROUTINES FOR CVBD & CVAD 



BDER 2000 STA ANDL 

JSZ TRPO F3A 

0002 DSPL XORL 

JSZ TRPS UNC 
0800 STA lORL STA 



ADD 

UBA JSB *+2 

JSZ TRPD 

JSB SD23 



ADD 

UBA JSB "+3 

JSZ TRPR 

UBA JSZ TRPA 

JSL SD24 



USER TRAP ENABLED? CRF 
ZERO , JSB IF USER TRAP NOT ENABLED 
NFl TRAP TARGETS 
UNC SET OVERFLOW; DO STACK ADJUSTMENT 



Fl 

ZERO 

UNC 



ROUTINE FOR MPYD PRODUCT >- 29 DIGITS, TESTING 
IF OVERFLOW OCCURS 



ADD 
ADD 
XRIO ADD 
ADD 
ADD 



FFFO XRi 


ANDL 


NZRO 




ADD 


RSB 


XR26 


JSL ER13 RC 

ADD 

ADD 


UNC 



USER TRAP ENABLED? CRF 

DECIMAL OVERFLOW TRAP; 

JSB IF USER TRAP NOT ^NABLED 

IS IT FROM CVAD; INVALID DECIMAL LEN TRAP 

TRAP TARGETS 

SET OVERFLOW, DO STACK ADJUSTMENT 



; SKIP IF PRODUCT >■ 29 DIGITS 

pr TMP M 

RESTORE STATUS; TRAP FOR DECIMAL OVERFLOW 
NOP to keep system happy 
NOP to keep system happy 
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RECORD 

NO 

21871 
21872 
21873 
21874 
21875 
21876 
21877 
21878 
21879 
21880 
21881 
21882 
21883 
21884 
21885 
21886 
21887 
21888 
21889 
21890 
21891 
21892 
21893 
21894 
21895 
21896 
21897 
21899 
21901 
21903 
21905 
21906 
21908 
21909 
21911 
21913 
21914 
21915 
21917 
21918 
21920 
21921 
21922 
21923 
21925 
21927 
21928 
21930 
21932 
21933 
21935 



C.S 
ADDR 



1700 
1701 
1702 
1703 

1704 

1705 
1706 



1707 
1708 



1709 
170A 



170B 
170C 



170D 
170E 



MPYD -- DECIMAL MULTIPLY 
LABL RREQ SREG FUNC SFNC STOR SPSK 



DECIMAL MULTIPLY 
ON ENTRY : 



RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



OPERAND-1 DIGIT COUNT 
OPERAND-1 BYTE ADDR ( DB REL ) 
OPERAND-2 DIGIT COUNT 
OPERAND-2 BYTE ADDR ( DB REL ) 
( VALID AFTER PULM ) 



OPERAND-2 ADDR :» PRODUCT OF THE OPERAND-1 DATA 
TIMES THE OPERAND-2 DATA. THE MAXIMUM LENGTH ALLOWED 
FOR OPERANDS IS 28 DIGITS, THE MINIMUM IS ZERO. IF NOT 
WITHIN THESE RANGES, TRAP WILL OCCUR WITH INVALID DIGIT 
COUNT. IF EITHER DIGIT COUNT IS ZERO, ONLY SDEC IS 
PERFORMED. IF THE RESULT DOES NOT FIT INTO THE OPERAND- 
ADDR, THEN AN OVERFLOW TRAP OCCURS. THE RESULT IN THIS 
CASE WILL BE LEFT TRUNCATED UNLESS THE ACTUAL RESULT IS 
GREATER THAN 28 DIGITS, IN WHICH CASE NOTHING WILL BE 
STORED, CCA IS SET ON THE RESULT 



RH 




JSZ 
ADD 
ADD 
ADD 


PULM 


XRll 


UNC 




STA 


ADD 




XRIO 






XR13 


ADD 
ADD 








0020 




ADDL 




SPOA 




SPOA 


RH 


SUB 




SPOA 




RH 
0003 


RE 
RC 


SUB 
ADDL 






HBF 


SPOA 


USA 
UBB 


JSBS 
ADD 


ER13 
LSR 


SP4A 


NEG 




XR12 
XRll 


ADD 
JSB 


MSWP 


SPOA 


NF2 
UNC 



UBA 
RG 


JSZ 
JSL 
JSL 
JSL 


TRP 
CKLN 
CKBA 
SPLT 


XR5 
XR7 
XR8 
XRll 


NZRO 

UNC 

UNC 

F2 


BKX6 


JSL 


MASK 


XR22 


UNC 


XRll 
BKX7 


ADD 
ADD 




XR20 
XR23 




UBA 


JSL 


SCNB 


XR21 


UMC 


RH 


JSL 


SCNA 


RE 


UNC 


RE 


ADD 
ADD 






CF4B ZERO 

n/:ro 



UBA 
UBA 



ADD 
ADD 



BKX6 ADD 
XRll ADD 



PULM FOR RD; TRAP IF CIR ( 9:1 ) NOT ZERO 

CK OPERAND-1/2 LENGTHS 

CK OPERAND-1/2 ADDRESSES 

OPERAND-1 ADDR; CK SPLIT STACK IF PRIV MODE 

OPERAND-2 ADDR 

SAVE STATUS: GET OPERAND-1/2 MASKS 

SAVE OPERAND-2 WD COUNT -1 

: SAVE OPERAND-2 WD ADDR 

; SAVE OPERAND-2 MSW MASK 



32; SCAN FOR OPERAND-1 LEADING ZEROS, 
SAVE OPERAND-2 SIGN MASK 

SPOA :- 32 - ACTUAL OPERAND-1 DIGIT COUNT 
SCAN FOR OPERAND-2 LEADING ZEROS, RE : = RH 



SF2 IF RE < RH; SKIP IF RE :• 
UBA :« ACTUAL OP-2 DIGIT COUNT + 3; 
SKIP IF ACUTAL OP-2 DIGIT COUNT := 
TRAP IF RESULT ) 28; SF4 IF EITHER OP := 
ACC LENGTH - 1; 

RF :» SAVE FOR TESTING RESULT > 28 
OPERAND-1 SIGN MASK; OPERAND-2 WD COUNT 
JSB IS DIGIT COUNT OF OP-2 > OP-1 



PAGE 450 




RECORD 


C S. 


HO 


ADDR 


21938 




21939 




21940 


170F 


219«2 


1710 


21944 


1711 


21946 




21947 




21948 




21949 


1712 


21951 


1713 


21953 


1714 


21955 


1715 


21957 




21958 




21959 




21960 


1716 


21962 


1717 


21964 


1718 


21966 


1719 


21968 


171A 


21970 


171B 


21972 


171C 


21974 




21975 




21976 




21977 


171D 


21979 


171E 


21981 


171F 


21983 


1720 


21985 


1721 


21987 




21988 




21989 




21990 




21991 


1722 


21993 


1723 


21995 


1724 


21997 


1725 


21999 


1726 



MPYD -- DECIMAL MULTIPLY 
.«..«*.•>,.• ALU A <.•««•••«••. 

LABL RREG SREQ FUNC SFNC STOR SPSK 



• .•..<i. ...... ALU B ««••••*••••••« 

RREG SREG FUNC SFNC STOR SPEC SKIP 



RE 
UBA 




CAD 
ADO 
ADD 


LSR 
LSR 


XR14 




FFFF 
0008 
FFFE 


SP4A 
SREG 
SREG 


ADDL 
SUBL 
ADDL 




XR15 
XR15 




POS 




FETCH MULTIPLIER 




















XRll 
XR12 


ADD 
CSR 
ADD 
ADD 




SPOA 

RG 

XR15 


HBF2 
CF2 




BKX4 
RE 

XR31 
RG 


JSL 
JSB 
JSL 
JSL 


FCHB 
« + 3 
SRDl 
SR3D 


6KX3 
SPIB 
XR30 




UNC 
F4B 
F2 
EVEN 




SAVE 


THE 1 


MULTIPLIER 




















)(R12 

XR6 

XR7 

XR8 

XR9 

XR12 

XRll 


ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
JSB 


MSWP 


SPOA 
SPOA 


CF3A 

CFl 

UNC 


00C3 

OOCO 

UBA 

UBA 

UBA 

UBA 


XRll 
SREG 
SREG 
SREG 
SREG 


ADDL 
ADDL 
XFRR 
XFRR 
XFRR 
XFRR 
ADD 




XR14 

CTR 

REGN 

REGN 

REGN 

REGN 

SPIB 


ICTR 
ICTR 
ICTR 






FETCH MULTIPLICAND 




















SPIB 
XR12 


ADD 
ADD 
CSR 
ADD 
ADD 




SPOA 

RG 
XR15 


HBF2 
CF2 


UBB 


BKX4 

XR30 

XR31 

RE 

RG 


JSL 
JSB 
INC 
JSL 
JSL 


FCHB 
MZRO 

SRDl 
SR3D 


BKX3 
SPIB 


CCA 


UNC 
F4B 

F2 
EVEN 




MOVE 
ZERO 


DATA 
OUT 


FROM 
XRAl 


XRAl - XRA9 TO : 
- XRA9 AND XRBl 


XRA19 - XRA27, & 
- XRB9 






0013 

FFFE 
RG 


REGN 
SREQ 


ADDL 

ADDL 

CAD 

AND 

ADD 




SP4A 

SPOA 

RG 

REGN 

REGN 


HBF2 


0089 

0012 
UBB 


XR15 

CTRS 
SP4A 


INC 

ADDL 

ADD 

ADDL 

JSBS 


•-2 


RG 

CTR 

REGN 

CTR 

CTR 




F2 
UNC 



MULTIPLIER Vro LEN; ACC WD LEN -1 
MULTIPLIER WD LEN - 1, 
; UBB :• PRODUCT LEN -1 ( TO 7 



M'lER ADDR; FETCH DATA, M'lER WD COUNT - 1 
SF2 IF SIGN MASK ;• OOOF . JSB IF EITHER = 
XRA15 - 0; SHIFT DATA RIGHT IF F2 
;SHIFT RIGHT 3 DIGITS IF SIGN MASK := OFOO 



SIGN MASK; REGN POINTER FOR LSW MULTIPLIER 
MSW MULTIPLIER; MSW MULTIPLIER POINTER 
NEXT MULTIPLIER; SAVE IN XRB64, ICTR 
NEXT MULTIPLIER; SAVE IN XRB65 , ICTR 
LSW MULTIPLIER; SAVE IN XRB66 , ICTR 
OP-1 SIGN MASK: XRB67 :« LSW MULTIPLIER 
SWAP FOR MULTIPLICAND; SPIB := OP-2 WD ADDR 



MCAND ADDR; FETCH DATA.M'CAND WD COUNT - 1 

JSB IF EITHER := 

SF2 IF SIGN MASK := OOOF; SET CCA 

XRA15 = 0; SHIFT DATA RIGHT IF F2 

;SHIFT RIGHT 3 DIGITS IF SIGN MASK := OFOO 



19; PRODUCT LENGTH 

-2; REGN POINTER 

SF2 IF DONE; REGN :- 

REGN :== 0; REGN POINTER, SKIP IF DONE 

REGN ;- 'MOVED' DATA; LOOPBACK IF NOT DONE 
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MPYD 


RECORD 


C.S. 




A A « A 


NO 


ADDR 


LABL 


RREG 


22002 




« 




22003 




* 




22004 




* 




22005 




* 




22006 




* 




22007 




* 




22008 


1727 


MPYR 


009B 


22010 


1728 




00A7 


220i;' 


1729 




0083 


22014 




* 




22015 




* 




22016 




* 




22017 


172A 






22019 


172B 






22021 


172C 






22023 


172D 






22025 


172E 






22027 


172F 






22029 


1730 






22031 




* 




22032 




• 




22033 




* 




22034 


1731 






22036 


1732 






22038 


1733 






22039 


1734 






22040 


1735 






22042 


1736 






22044 


1737 






22046 




* 




22047 




* 




22048 




* 




22049 


1738 


MYST 




22051 


1739 






22053 








22054 


173A 






22056 


173B 






22058 


173C 






22060 




* 




22061 




* 




22062 




* 




22063 


173D 


MZRO 




22065 


173E 






22067 


173F 






22069 


1740 






22071 




* 




22072 




* 




22073 




* 




22074 


1741 


ZREG 


0008 


22076 


1742 






22078 


1743 






22080 


1744 




RG 


22082 


1745 







DECIMAL MULTIPLY 

•••• ALU A •*«•*•« 



A*. AAA*. AAA.* /^HJ g A A A A A A A A A A A A A A 

RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



SETUP 2X, 4X, 8X OF THE MULTIPLICAND 



ADDL 
ADDL 
ADDL 

DO ADD & SHIFT 

INC SP4A 

ADD 

INC SPAA 

ADD 

INC SP4A 

ADD 

INC SP4A 

ADJUST THE DATA FOR 

RF 



BKX4 JSB MPYX RH 
BKX4 JSB MPYX RH 
BKX4 JSB MPYX RH 



XR3 
XR7 
XR9 
XRl 



ADD 

ADD 

ADD 

ADD 

JSB MYST 

ADD 

ADD 



STORE THE DATA 

SP2B CSL XR13 
ADD XR14 

ADD CF3A 

JSB ER13 F3A 
ADD 

EITHER OPERAND IS ZERO ( F4 

ADD CCA 

ADD 

ADD 

ADD 00 

ZERO OUT DATA BUFFERS 

RG 

REGN 



XR14 JSB 
UBA JSL 
XR14 JSB 
UBA JSL 
XR14 JSB 
UBA JSL 
XR14 JSB 

PROPER OUTPUT FORMAT 

RF JSL 

XR21 CSR 

UBA ADD 

RF ADD 

F2 RG ADD 

0089 BKX3 SUBL 

RH JSL 



MPYM CTR 
SRDl SPIB 
MPYM CTR 
SRDl SPIB 
MPYM CTR 
SRDl SPIB 
MPYM CTR 



UNC 
UNC 
UNC 



UNC 

UNC 
UNC 
UNC 
UNC 
UMC 
UMC 



0089 BKX3 SUBL 
XR26 ADD 

XR20 JSL 
ADD 
JSL 



MY29 ZERO 

SP2B HBF2 
XR6 
XR2 
XR8 

SLD2 XRO UMC 



CTR 
RC 



STOA SP2B UMC 
S024 UMC 



1 ) 

XR22 ADD 
XR23 ADD 
ADD 
ADDL 



BKX6 
BKX7 
BKX3 
CTR 



ADDL 

ADD 

ADD 

JSB •-! 

JSB MYST 



NZRO 
UNC 



XR21 CSR SP2B 
CTRS ADD XRO 

ADD REGN DCTR 

CAD RG 

XRO JSB FCH2 CTR NF4B 



SETUP 2X 
SETUP 4X 
SETUP 8X 



1; DO LSD'S OF THE MULTIPLIER 

SHIFT RIGHT 

1; DO NEXT DIGITS OF THE M'lER 

SHIFT RIGHT 

1; DO NEXT DIGITS OF THE M'lER 

SHIFT RIGHT 

1; DO MSD'S OF THE M'lER 



RF ;= XRA3; JSB TO TEST IF RESULT > 2{ 
SF2 IF SIGN ;= GOOF 



STORE DATA IF ALREADY ALIGN 
REGN POINTER AT MSW 
SHIFT LEFT 2 DIGITS 



TARGET SIGN MASK; REGN POINTER AT MSW 

XRA14 := 0, LOST DIGIT REGISTER; 

RESTORE RC 

CF3A FOR LOST DIGIT FLAG; STORE OUT DATA 

JSB IF LOST DIGIT 

DO SDEC 



SET CCE; TARGET WD COUNT - 1 
TARGET MSW MASK 
BKX3 :» 
LSW REGN POINTER 



« OF DATA BUFFERS; TARGET SIGN MASK 

SAVE INITIAL COUNTER 

REGN ;- 0; DCTR 

LOOPBACK IF NOT DONE 

STORE OUT ZEROS; RTN IF FROM FCHA 
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RECORD 


C.S. 


NO 


ADDR 


22085 




22086 




22087 




22088 




22089 




22090 


1746 


22092 


1747 


22094 


1748 


22096 


1749 


22098 


174A 


22100 


1748 


22102 


174C 


22104 


174D 


22106 


174E 


22108 


174F 


22110 


1750 


22112 


1751 


22114 


1752 


22116 


1753 


22117 


1754 


22118 


1755 


22119 


1756 


22121 




22122 




22123 




22124 


1757 


22126 




22127 




22128 


1758 


22130 


1759 


22132 


175A 


22134 


175B 


22136 


175C 


22138 


175D 


22140 




22141 




22142 


175E 


22143 


175F 


22144 


1760 



MPYD -- DECIMAL MULTIPLY 

1. <«><.>.•• ALU A ••«•••••••• 

LABL RREG SRE6 FUNC SFNC STOR SPSK 



**>*«. •>••.•• ALU B ••••«•**•«•••• 

RREG SREG FUNC SFNC STOR SPEC SKIP 



DO 1 DIGIT OF THE MULTIPLIER 





XR14 


ADD 


FFFF 


SP4A 


ADDL 


009B 




ADDL 




SP4A 


ADD 


00A7 




ADDL 
ADD 


00B3 




ADDL 
ADD 


OOBF 




ADDL 




SP4A 


ADD 


SPOA 




CAD 




XR2 


JSB 




XR4 


ADD 




XR5 


ADD 




XR6 


ADD 




XR8 


ADD 


RE 


RC 


ADD 




DO ADD 




SP4A 


ADD 


FFFE 


SP4A 


ADDL 




REGN 


ADD 




REGN 


ADD 


USA 


REGN 


XFRS 


RREQ 


REGN 


DADD 


UBS 




ADD 

ADD 
ADD 




XRH 


ADD 



SPOA 
SP4A 
RH 



SPOA HBF2 
NF2 



XR15 INC 
REGN JSB *+9 
REGN ADD 
XR15 JSB MPAA 
SPIB ADD LSR 
XR15 JSB MPAA 
SPIB ADD LSR 
XR15 JSB MPAA 
SPIB ADD LSR 
XR15 JSB MPAA 
00C3 UBA ADDL 

SPIB ADD LSR 
UBA ADD 
UBA ADD 
UBA ADD 
UBA ADD 
UBA ADD 



SP4A CAD LSL 

RG 0088 SP4A ADDL 

SP3B RH ADD 

SP3B SP2B ADD 

REQN FITC RG UBA LINK 

REGN RH JSB "-B 



BKX3 PSHR 

SPIB 

SPIB LBF5 

SP2B 

SPIB LBF5 

SP2B 

SPIB LBF5 

SP2B 

SPIB LBF5 

SP2B 

CTR 

REGN DCTR 

XRl POPR 

XR3 

XR4 

XR5 

XR7 



SP3B DCTR 
CTR 

RH DCTR 
SP2B HBF2 
ICTR 
CTR NF2 



10/ 2/86 9:27 AM 



M'lER WO LEN; PRODUCT LEN 
BIT POINTER; JSB IF THE M'lER 



SF5B IF BIT SET 
FSB 



IX M'CAND 

DO ADD IF 

2X M'CAND 

DO ADD IF 

4X MCAND 

DO ADD IF 

8X M'CAND 

DO ADD IF F5B 

SF2 IF DONE, NEXT M'lER POINTER 

JSB FOR NEXT M'lER. SAVE REMAINDING MIER 

SAVE DATA IN XRB'S 



TOTAL » OF DIGITS; RTN 



SAVE WORD POINTER; PROPER MCAND POINTER 



SP4A ; 
M ' CAND 
M'CAND 
RESULT 



SP4A 



-2, DCTR 



NEXT M'CAND POINTER 

SF2 IF DONE 
DO ADD & STORE RESULT; 
LOOPBACK IF NOT DONE 



CFl 
SPAA CF3A 



ADD 
ADD 
ADD 
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RECORD 


C S. 


NO 


ADDR 


22147 




22148 




22149 




22150 




22151 




22152 




22153 


1761 


22155 


1762 


22157 


1763 


22159 


1764 


22161 


1765 


22162 




22163 




22164 




22165 




22166 




22167 




22168 


1766 


22170 


1767 


22172 


1768 


22174 


1769 


22176 


176A 


22177 


176B 


22179 




22180 




22181 


176C 


22183 


176D 


22184 


176E 


22186 


176F 


22187 


1770 


22189 




22190 




22191 


1771 


22192 


1772 


22193 


1773 



MPYD -- DECIMAL MULTIPLY 
.«,.•..«<,<,.,• ALU A •••«•••••*• 
LABL RREG SREG FUNC SFNC STOR SPSK 



.•.««•*><,*..<, ALU B •*«*••••»«•«•• 
RREG SREG FUNC SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



SWAP OPERANDS 





UBB 


ADD 




RC 


ADD 


RE 


XR13 


XFRS 


RREG 




ADD 


SPOA 




ADD 



XRll 

RE 

XR12 

RC 

XR13 RSB 



UBA ADD 
BKX4 ADD 
BKX6 ADO 
BKX5 ADD 
BKX7 ADD 



DO 2:K, 4X, OR 8X OF THE MULTIPLICAND 



MPYX OOOB ADDL 

SPOA RH INC 

REGN ADD 

REGN ADD 

UBA UBA DADD 

UBB ADD 



OOOB ADDL 
REGN ADD 
REGN ADD 
UBA UBA DADD 
UBB ADD 



SP4A UBA ADD 

RH HBF2 XR23 ADD 

RG OOOB CTRS ADDL 

FFF2 ADDL 

REGN CTFl RG RG LINK 

REGN SP3B CTRS JSBI 



SP4A CAD 

RG UBA CTRS ADD 

RH XR29 ADD 

REGN FITC RG RG LINK 

REGN SP3B CTRS JSBI 



ADD 
ADD 
ADD 



REGN CF2 
REGN 



SP4A ADD 

ADD 

XR22 ADD 



XRll 
BKX6 
BKX4 
BKX7 
BKX5 



CTR PSHR 
BKX7 DCTR 
CTR 
SP3B 

ICTR 
CTR F2 



XR29 DCTR 
CTR 

RH HBF2 
ICTR 
CTR NF2 



CTR POPR 
ICTR 
BKX6 CFl RSB 



WD ADDR; 

DIGIT COUNT; WD COUNT 

SIGN MASK; 

; MSW MASK 



11; REGN POINTER 

SF2 IF DONE; TARGET MSW MASK 

DATA; NEW CTR 

DATA; MASK 

; JSB IF DONE 



SP4A :» OOOB; XRB29 :• 
; DEC WD COUNT BY 2 
; LOOPBACK IF NOT DONE 

; TARGET WD COUNT - 1 



PAGE 454 DECIMAL -- CHECK OPERAND LENGTHS 10/ 2/86 9:27 AM 

RECORD C S. ........... ALU A .«•.*••«.•« .»»«...»..... ALU B ••«•«»•••••••• 

NO ADDR LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

22196 * 

22197 * 

22198 * 

22199 * CHECK OPERAND LENGTHS FOR SLD , NSLD , SRD , ADDD , 

22200 * CMPD, SUED, & MPYD 

22201 • IF > OPERAND LENGTH >- 29 DIGITS, TRAP TO ER17, 

22202 • OR IF OPERAND LENGTH • , DO STACK ADJUSTMENT i NEXT. 

22203 * 

22204 • 

22205 1774 CKLN RC SP18 JSB ER17 CRRY RA SPIB JSB ER17 CRRY ER17 IF RA OR RC >=■ 29 OR < 
22207 1775 ADO XR2 
22209 1776 ADD XR3 RSB 



SPIB JSB 


ER17 


CRRY 


ER17 IF RA OR RC : 


RA JSL 


S024 


ZERO 


; JSB IF RA := 


RC JSL 


S024 


ZERO 


RETURN; JSB IF RC 



PAGE 455 

RECORD 

NO 

22212 
22213 
22214 
22215 
22216 
22217 
22218 
22219 
22220 
22221 
22222 
22223 
22224 
22225 
22226 
22227 
22228 
22230 
22232 
22234 
22236 
22238 
22240 
22242 
22244 
22245 
22246 
22247 
22248 
22249 
22250 
22251 
22252 
22253 
22254 
22255 
22256 
22257 
22258 
22259 
22261 
22263 
22265 
22267 
22269 
22271 
22273 
22274 
22276 



C.S. 
ADDR 



1777 
1778 
1779 
177A 
177B 
177C 
177D 
177E 



177F 
1780 
1781 
1782 
1783 
1784 
1785 

1786 
1787 



DECIMAL -- CHECK OPERAND ADDRESSES 

«.«>,**•>>.••• ALU A •»•*•••«•** «*««••«««.««. ALU B ••••••*••••*«• 

LABL RREQ SREQ FUNC SFNC STOR SPSK RREG SREQ FUNG SFNC STOR SPEC SKIP 



CHECK TARGET OPERAND ADDRESS 
ON ENTRY : 



10/ 2/86 9:27 AM 



RC :• TARGET DIGIT COUNT 

RD :=■ TARGET BYTE ADDRESS ( DB REL ) 



RG :- TARGET WORD ADDRESS 
BKX6 := TARGET WORD COUNT - 



UBA DB 
UBA DL 



RG 
RG 



ADD 
SUB 
SUB 
ADD 
ADD 
ADD 
BNDE 



RG 

XR4 
XR8 



NCRY 
CRRY 



RD 
RC 
UB6 



UBB 
NF3A RE 



SM ADD 

ADD 

ADD 

INC 

ADD 

BKX6 ADD 

RG ADD 

UBB BNDE 



RE 

LBF5 
BKX6 LBF5 NF5B 
BKX6 LBF5 
XR3 CF5B 
BKX6 



CHECK SOURCE OPERAND ADDRESS 
ON ENTRY : 









RA 








RB 




ON 


EXIT 


RH 
BKX4 


RB 




ADD 


LSR 


UBA 


DB 


ADD 




UBA 


DL 


SUB 




RE 


RH 


SUB 




RF 


RH 


ADD 
ADO 
ADD 




RH 


DL 


BNDE 
ADD 





SOURCE DIGIT COUNT 

SOURCE BYTE ADDRESS ( DB REL ) 



SOURCE WORD ADDRESS 
SOURCE WORD COUNT - 





RSB 




SM 


ADD 


RH 




RB 




ADD 




NCRY 


RA 




ADD 




CRRY 


UBB 




INC 


RH 








ADD 


XR5 






BKX4 


ADD 


XR9 




UBB 


RH 


ADD 






RE 


UBB 


BNDE 
ADD 



RE 

LBF5 
BKX4 LBF5 NF5B 
BKX4 LBF5 
XR4 CF5B 
BKX4 



TARGET WD-ADDR, RE : • SM 

TARGET WD ADDR; SET F5 IF BYTE ADDR IS ODD 

SKIP IF DL > WD ADDR; 

SKIP IF WO ADDR <- SM; TARGET WD COUNT 

WRAPAROUND ADDR; XRB3 :• 

XRA4 := 0; TARGET WD COUNT - 1 

XRA8 :» 0; LSW ADDR 

BOUNDS CHECK, DL <= MSW ADDR, SM <= LSW ADDR 



SOURCE WD-ADDR; RE :■ SM, RTN IF F3 SET 
SOURCE WD ADDR; SET F5 IF BYTE ADDR IS ODD 
SKIP IF DL > WO ADDR; 

SKIP IF WD ADDR <= SM; SOURCE WD COUNT 
WRAPAROUND ADDR; XRB4 :» 
XRA5 :■= 0; SOURCE WD COUNT - 1 
XRA9 ;« 0; LSW ADDR 
TICB TO SLOW DOWN RSB AVOID S KILL (1000 ) 



(10101 
BOUNDS CHECK, 



DL <■= MSW ADDR, SM <• LSW ADDR 
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DECIMAL 


-- CHECK SPLIT STACK 












RECORD 


C.S 




* *ft * 


••••*•* ALU A •«•••' 


1 « « « « * 


* t* 1 1 


********* i 


*LU B ««*•«••««••••• 


NO 


ADDR 


LABL 


RREG 


SREG FUNC 


SFNC STOR SPSK 


RREG 


SREG FUNC 


SFNC STOR 


SPEC 


SKIP 


22279 


























22280 


























22281 


























22282 








CHECK SPLIT STACK 














22283 


























22284 








ON 


ENTRY 
















22285 


























22286 












RB .« 


SOURCE 


BYTE 


ADDRESS ( 


DB REL ) 






22287 












RD -.' 


TARGET 


BYTE 


ADDRESS ( 


DB REL ) 






22288 


























22289 








ON 


EXIT 
















22290 


























22291 












XRAll :• 


SOURCE 


WORD 


ADDR 








22292 












XRBll ;• 


TARGET 


WORD 


ADDR 








22293 




* 






















22294 




* 






















22295 


1788 


SPLT 


RB 




ADD 


LSR RG 




RD 


ADD 


LSR SP3B 


PSHR 




22297 


1789 








JSB 


•+4 


FSS 




DL ADD 








22299 


17 8A 




USB 


DB 


JSBC 


•+3 


CRRY 


Z 


DB JSBS 


• + 3 




NCRY 


22301 


178B 








ADD 








ADD 




POPR 


NZRO 


22303 


178C 








ADD 








ADD 






RSB 


22305 


178D 




RQ 


DB 


ADD 


XRll 


SP3B 


DB JSB 


•-2 XRll 




UNC 



10/ 2/86 9:27 AM 



SOURCE WORD ADDR; TARGET WORD ADDR 
JSB IF SPLIT BANKS; 
JSB IF DL >• DB; OR DB > Z 
DO POPR 
;RETURN 
SOURCE WORD ADDR, TARGET WORD ADDR 



PAGE 457 DECIMAL -- OPERAND MASKS ( SIGN & MSW ) 10/ 2/86 9:27 AM 

RECORD C.S. »....«*.*«• ALU A •««•«•*«««• «..«»...«.«.* ^lU B •«•••••«•«•«** 

NO ADOR LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 

22308 • 

22309 • 

22310 ' 

22311 * GET TARGET OPERAND MASKS 

22312 • 

22313 • ON ENTRY : 

22314 « 

22315 • RC :- TARGET DIGIT COUNT 

22316 • RD :■= TARGET BYTE ADDRESS [ DB REL ) 
22317 

22318 * ON EXIT 

22319 * 

22320 • BKX7 ;= TARGET MSW MASK 

22321 « XRA13 := TARGET SIGN MASK 

22322 * 

22323 • 

22324 178r MASK RC CSR SP4A HBF2 OFFF ADDL BKX7 SET F2 IF DIGIT COUNT IS ODD; MASK 
22321=. 178F OFOO ADDL XR13 OFFF ADDL BKX5 NF2 MASKS; SKIP IF NF2 

22328 l-'90 RD SP4A ADD EVEN - CAD 8KX7 SKIP IF SIGN IN LEFT BYTE; MSW MASK 

22330 1791 XR13 ADD SWAB XR13 RD ADD EVEN SIGN MASK; SKIP IF BYTE ADDR IS EVEN 

22332 1792 ADD XR7 NF3A BKX7 ADD LRZ BKX7 ; UBB :• TARGET MSW MASK 

22334 • 

22335 

22337 ' GET SOURCE OPERAND MASKS 

223.!8 * 

22339 • ON ENTRY : 

22340 * 

22341 • RA :• SOURCE DIGIT COUNT 

22342 * RB :- SOURCE BYTE ADDRESS ( DB REL ) 

22343 • 

22344 * ON EXIT 

22345 • 

22346 • BKX5 ;• SOURCE MSW MASK 

22347 • XRA12 := SOURCE SIGN MASK 

22348 • 

22349 • 

22350 1793 ADD RSB ADD XR6 

22351 1794 MSKB OFOO ADDL XR12 RA CSR POS MASK; SKIP IF DIGIT COUNT IS EVEN 
22353 1795 RB UBB ADD EVEN CAD BKX5 SKIP IF SIGN IN LEFT BYTE; MSW MASK 
22355 1796 OOOF ADDL XR12 RB ADD EVEN SIGN MASK: SKIP IF BYTE ADDR IS EVEN 
22357 1797 ADD RSB BKX5 ADD LRZ BKX5 RETURN; UBB :« SOURCE MSW MASK 



PAGE 45 8 




RECORD 


C S 


NO 


ADDR 


22360 




22361 




22362 




22363 




22364 




22365 




22366 




22367 




22368 




22369 




22370 




22371 




22372 




22373 




22374 




22375 


1798 


22377 




22378 


1799 


22380 


179A 


22382 


179B 


22384 




22385 


179C 


22387 


179D 


22389 


179E 


22391 


179F 



DECIMAL -- ACCULMULATOR LENGTH 10/ 2/86 9:27 AM 

„*»***»»»,* ALU A ••••••••••• ............. ALU B •«........«... 

LABL RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP COMMENT 



CALCULATE THE ACC LENGTH 

ON ENTRY : 

XRA12 := SOURCE SIGN MASK 
XRA13 := TARGET SIGN MASK 

ON EXIT 

8KX3 := TARGET WORD COUNT - 1 

BKX3 PSHR EVEN SKIP IF SOURCE SIGN MASK := OFOO; 
SKIP IF TARGET SIGN MASK := OFOO 
RG ADD LSR RH UNC RC ADD LSR SP2B UNC UBA := SLEN; USB := TLEN 
UBA INC RH UBB INC SP2B UBA := SLEN + 1; UBB := TLEN + 1 

JSB IF SOURCE SIGN MASK := OFOO; 
JSB IF TARGET SIGN MASK : ■= OOOF 
UBA := SLEN + 2; 
;SHIFT RIGHT 

UBA :- SLEN (SHIFTED); SKIP IF RH 
RETURN; UBB :- TARGET WORD COUNT - 



XR12 


ADO 






EVEN 


UBA 




ADD 




8KX3 


PSHR 


EVEI 


XR12 


ADD 
INC 
ADD 


LSR 


RH 

RH 


UNC 
EVEN 


RC 
UBB 


BKX3 


ADD 
INC 
JSB 


LSR 
•+2 


SP2B 
SP2B 




UNC 
ODD 




INC 
ADO 
ADD 
ADD 


LSR 


RH 
XRIO 


RSB 


RH 
UBA 


SP2B 
SP2B 


ADD 
ADD 
SUB 
ADD 


LSR 


BKX3 
BKX3 


POPR 


NEG 
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RECORD 

NO 

22394 
22395 
22396 
22397 
22398 
22399 
22400 
22401 
22402 
22403 
22404 
22405 
22406 
22407 
22408 
22409 
224U 
22413 
22415 
22416 
22417 
22418 
22419 
22420 
22421 
22422 
22423 
22424 
22425 
22426 
22427 
22429 
22431 
22433 
22434 
22435 
22437 
22439 
22441 
22443 
22445 
22447 
22449 
22451 
22452 
22453 
22455 
22457 
22459 
22461 
22467 
22463 
22465 
22467 
22469 



DECIMAL -- FETCH OPERAND DATA 
OS. ..»..«..».(, ALU A •*•••«•*•*• 
ADDR LABL RREG SREG FUNG SFNC STOR SPSK 



17A0 
17A1 
17A2 



17A3 
17A4 
17A5 



17A6 
17A7 
17A8 
17A9 
17AA 
17AB 
17 AC 
17AD 



17AF 
17AF 
17B0 
1781 



17B2 
17B.'; 
17R4 



RREG SREG FUNG SFNC STOR SPEC SKIP 



10/ 2/86 9:27 AM 



FETCH SOURCE OPERAND DATA 



XRA12 
SPOA 
BKX4 
BKX5 



SOURCE SIGN MASK 

SOURCE WORD ADDRESS 

SOURCE WORD COUNT - 1 

SOURCE MSW MASK 



DATA WILL BE STORED INTO XRAl - XRA9,A 
THE SAME DATA ARE ALSO STORED INTO 
XRBO - XRB8. 



FCHB XR12 ADD 
SPOA use ADD 
SPOA UBA SUB 



SP4A 

RH ROOD 

CTFl 



BKX4 ADD 
0089 ADDL CTR 
BKXS JSB FCH2 SPIB 



FETCH OPERAND-2 DATA 



XRA13 
BKX6 
BKX7 



OPERAND-2 SIGN MASK 
OPERAND-2 COUNT - 1 
OPERAND-2 MSW MASK 



ON SUBROUTINE RETURN, DATA WILL BE STORED IN 
XRA16 TO XRA24, AND ALSO XRB17 TO XRB25 . 



FCHA UBB 
UBA 



ADD 
UBB SUB 

JSB ZREG 



FCH2 FFFO ADDL 

SPAA ADD 

RQ ADD 

RH ADD 

INC 

RG OPA AND 

RG CSR 

ADD 



SPOA JSB •+« 

RG DADD 

UBA RG JSBS ER15 

OPA ADD 



SPOA 




UBB 


BKX6 


ADD 




RH 


ROD 




CTFl 




BKX7 


ADD 




SPIB 


PSHR 




MEDJ 


0099 




ADDL 




CTR 




RQ 


ODD 


0089 


BKX3 


SUBL 
CAD 




XR13 
SP3B 




RQ 




UBA 


OPB 


AND 




SP2B 






ROD 


OOOF 


UBB 


ANDL 






NZR 


RQ 


CCA 




SP2B 


ADD 


SWAB 


SP2B 




RG 




UBA 
OOOD 


SP2B 


ADD 
SUBL 




XR31 


NZR 








UBA 


ADD 




XR31 


CCA 




Fl 


RH 




CAD 




RH 


ROAD 


REON 




UBA 




ADD 






DCTR 




NZRO 


UBB 


RH 


SUB 






CTFl 


RG 






RG 


JSB 


•-3 


REGN 


UNC 



SPIB AND 


REGN 


UBA DADD 


CFl 


ADD 




STA ADD 


RSB 



SP3B CTRS ADD CTR POPR 

UBA ADD REGN DCTR 

UBA UBB JSBS ER15 REGN NZRO 
ADD 



SIGN MASK; WD COUNT - 1 

READ LSW; LSW POINTER 

SET Fl IF ONE WD FETCH; DO FETCHING 



UBA :• WORD ADDR; READ LSW 

SET Fl IF ONE WD FETCH; 

ZERO OUT DATA BUFFERS; LSW POINTER 



MASK; MSW REGN POINTER 
SKIP IF SIGN MASK :- OOOF; -1 
MASK; MASK SIGN DIGIT 

READ LSW; SKIP IF SIGN IS IN RIQHT BYTE 
SET CCG; MOVE SIGN DIGIT TO LEFT BYTE 
MASK THE LSD'S; XRB31 :• 0001 
, SKIP IF SIGN IS NEG 
; XRB31 .» 8001 



JSB IF DONE; READ NEXT DATA 

STORE DATA INTO REGN; DEC REGN POINTER 

JSB IF INVALID DECIMAL DIGIT; SET Fl IF DONE 

DATA; STORE INTO REGN, DO NEXT 



MASK MSD'S; SET MSW REGN POINTER 

STORE 

; JSB IF INVALID DECIMAL DIGIT 

STATUS, RETURN; 
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DECIMAL - 


- STORE RESULT 


INTO MEMORY 














RECORD 


C,S, 




« * * * 


* * * • * 


•• ALU A *•••« 


!«**** 


* « * * 


!!••*■ 


•»•• ALU B 


• * * * 




K * * * * 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


22472 




SNOWARN 
























22473 






























22474 






























22475 








STORE DATA INTO MEMORY 
















22476 






























224 '7 








ON ENTRY 




















22478 






























22479 












SP2B 


• TARGET WORD ADDRESS 










22430 












8KX3 


• ACC 


LENGTH - 1 












22481 












8KX6 


- TARGET WORD COUNT - 


1 








22482 












8KX7 


- TARGET MSW MASK 










22483 












XRBll 


• TARGET WORD ADDRESS 










22484 






























22485 








DATA 


WILL 


BE STORED FROM 


XRAl 


- XRA9 INTO MEMORY 






22486 








LOCATIONS 


WITH STARTING 


ADDRESS AT 


SP2B 


REGN 






22487 








POINTER WILL BE ADJUSTED 


SO THAT ONLY THE 


APPROPRIATE 




22488 








DATA 


WILL 


BE STORED. 
















22489 






























22490 








ON EXIT 


XRA14 


= ACC 


LOST DIGITS 










22491 












XRB15 


- ACC 


DIGIT 


SUM 












22492 












F3 


« 1 If 


XRA14 NOT 


ZERO 


1 DIGITS 


LOST 




22493 






























22494 






























22495 


17B6 


STOA 




XR14 


ADD 


SPOA CFl 




BKX3 


ADD 






PSHR 




22497 


17B7 






SP2B 


ADD 




ROD 


UBB 


8KX6 


JSBS 


STOE 


RG 




ZERO 


22499 


17B8 








ADD 






UBB 




JS8 


STOG 






POS 


22501 


1789 








JS8 


STOE 


MEDJ 


UBB 


CTRS 


ADD 




CTR 






22503 




* 


























22504 




« 


























22505 


17BA 


STOQ 


SPOA 


REGN 


lOR 


XR14 


RG 




CAD 




RQ 


ICTR 


ZERO 


22507 


17BB 




USA 




ADD 


SPOA 






JSB 


*-l 






UNC 


22509 




* 


























22510 




« 


























22511 


17BC 


STOE 




REGN 


ADD 


SP4A 




BKX7 


CAD 






CFl 




22513 


17BD 




UBB 


OPA 


AND 


SP4A 


UBA 


BKX7 


AND 




RH 






22515 


17BE 








ADO 






UBB 


SP4A 


RSUB 










22517 


17BF 




UBB 


XR14 


lOR 


XR14 ZERO 






ADD 




XR15 






22519 


17C0 








CAD 




SF3A 




BKXe 


ADD 




SP3B 


CF2 




22521 




* 


























22522 




* 


























22523 


17C1 






XR13 


GSR 




HBFZ 


UBA 


UBB 


JSB 


•+4 


RG 




NEG 


22525 


17C2 




RH 


SP4A 


I OR 




DATA 


RH 


XR15 


I OR 




XR15 


ICTR 




22527 


17C3 








ADD 


SP4A 


RG 




CAD 




RG 


CTFl 




22529 


17C4 






REGN 


ADD 


RH 








JSB 


*-2 






Fl 


22531 




* 


























22532 




* 


























22533 


17C5 








ADO 




NF2 


SP3B 


SP2B 


ADD 






ROAD 


F2 


22535 


17C6 




FFFO 


RH 


ANDL 


RH 




FOOO 


RH 


ANDL 




RH 






22537 


17C7 






STA 


ADD 


LSR 


BITS 


OOOD 




ADDL 




RG 






22539 


17C8 




OOOC 




ADDL 


RG 




RH 


XR15 


lOR 




XR15 




NZRO 


22541 


17C9 






UBB 


ADD 


SPOA F2 


OOOC 




ADDL 




RG 






22543 


17CA 






OPA 


ADD 


RRZ SP4A CFl 






ADD 






POPR 


F2 


22545 


17CB 




SPOA 




ADD 


XR15 NZRO 


RG 




ADD 


SWAB 


RG 






22547 


17CC 








ADD 




CCA 


RH 


SP4A 


lOR 






CF2 




22549 


17CD 








ADD 






UBB 


RG 


lOR 






DATA 


RSB 


22551 




SWARN 
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SAVE ACC LOST DIGITS; ACC LEN - 1 
READ TARGET ADDR; JSB IF ACC LEN : 
STOG IF ACC LEN > TARGET LEN 
STOE IF LESS; ADJUST REGN POINTER 



SAVE DIGITS LOST REQ; DEC REGN POINTER 
DIGITS LOST REG; LOOPBACK TILL MSW POINTER 



MSW ; MSW MASK 

TARGET VK)RD; MSD ' S 

CHECK IF DIGIT LOST 

SKIP IF DIGITS LOST; XRB15 := 0, ACC DIGIT 

SET F3 FOR DIGITS LOST; WD COUNT - 1 



SET F2 IF SIGN :- GOOF; JSB IF ONE WO 

STORE INTO DATA, ACC DIGIT SUM 

SPAA :> 0; LOOPCOUNT - 1 

NEXT WORD; LOOPBACK IF NOT DONE 



READ TARGET LSW 

RH -.' LSDS ; 

SKIP IF CCL; SIGN 

SIGN; SKIP IF ACC DIGIT SUM NOT ZERO 

SAVE ACC DIGIT SUM; SIGN 

TARGET DATA; SKIP IF F2 

SKIP IF ACC DIGIT SUM IS NOT ZERO. SWAB SIGN 

SET CCE , TARGET DATA 

TARGET DATA & PROPER SIGN 
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RECORD 

NO 

22553 
22554 
22555 
22556 
22557 
22558 
22559 
22560 
22561 
22562 
22563 
22565 
22567 
22569 
22571 
22573 
22575 
22577 
22579 
22580 
22582 
22583 
22584 
22586 
22587 
22588 
22589 
22590 
22591 
22592 
22593 
22594 
22595 
22596 
22598 
22600 
22602 



C.S 
ADDR 



17CE 
17CF 
17D0 
17D1 
17D2 
17D3 
17D4 
17D5 

17D6 



17D8 
17D9 

17DA 
17DB 



DECIMAL -- TRAP ROUTINES & S024 
LAI3L RREG SREG FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 



TRAP P;OUTINES 
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1. ERJ.3 IF PACKED-DECIMAL OVERFLOW . 

2. ER15 IF INVALID PACKED-DECIMAL DIGIT. 

3. ERI7 IF DIGIT COUNT > 28, OR NEGATIVE, 



ER13 ADD 

ER15 0005 DSPL XORL 
ADD 



2000 STA 


ADD 
JSB 
ADD 
ANDL 

;tsz 


*-»-2 
TRPO 




JSZ 


TRPR 


0800 STA 


XORL 





SF3A 






JSB 
ADD 


*+6 




UNC 


SET F3; JSB 

IS IT FROM CVDB? 




0009 


UBA 


SUBL 






NZRO 


; SKIP IF FROM MPYD 


CFl 




XR26 


ADD 


RA 






; RESTORE RA 


CF3A 




RG 


JSL 


DBER 




ZERO 


JSB DBER IF FROM CVDB; ELSE JSB 


CF3A 






ADD 
ADD 




SFl 
CRF 




CF3A; SFl 

USER TRAP ENABLED ? CRF 


F3A 




UBA 


JSB 


*+2 




ZERO 


JSB "+2 IF USER TRAP NOT ENABLED 
ELSE JSB TO TRAP ROUTINE 


UNC 






JSZ 
ADD 


TRPD 




NFl 


TRAP TARGETS 
SET OVERFLOW 



WILL POP THE STACK BY 0, 2, OR 4 TIMES, 



IF CIR ( 10:2 ) 



00, DECREMENT BY 0, 

01 , DECREMENT BY 2 , OR 
10, DECREMENT BY 4, 



S024 0030 CIR 
0020 CIR 



ANDL 

ANDL 

ADD 

JSZ NEXT 



ADD 
UBA JSZ 
UBA ADD 

ADD 



CRF 

ZERO 
EPP2 ZERO 
EPP2 



CHECK CIR ( 10:2 ) ; CRF 
CHECK CIR I 10:1 )• DO NEXT IF 00 
■^ P0P2. SKIP IF CII% ( 10:1 ) := 
iSZ NEXT; P0P2 MORE 
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DECIMAL - 


- SCAN LEADING ZEROS 
















RECORD 


C.S. 




* * * * 


* * • * * 


•* ALU A * 


«*«*»****« 




>•«•• 


«••• ALU B 


«»«< 


* « * * 


k « * * * 


NO 


ADDR 


LABL 


RREG 


SREG 


FUNC 


SFNC 


STOR SPSK 


RREG 


SREG 


FUNC 


SFNC 


STOR 


SPEC 


SKIP 


22605 




. 


























22606 




* 


























22607 




« 




SCAN 


SOURCE OPERAND FOR LEADING ZEROS 










Z260R 




* 


























22609 




• 




ON ENTRY 


XRAll :■ SOURCE WORD ADDRESS 










22610 




* 








BKX4 :- SOURCE WORD COUNT - 


1 








22611 




* 








8KX5 . SOURCE MSW MASK 










22612 




* 


























22613 


17DC 


SCNB 




XRll 


ADD 




ROD 


RA 




ADD 




RH 


PSHR 


ODD 


22615 


17DD 




RB 




CSR 




HBF2 


UBB 




INC 




RH 






22617 


17DE 








ADD 








BKX5 


ADD 








NF2 


22619 


17DF 




UBB 


OPA 


AND 




SP4A CF2 


0002 


RH 


ADDL 




RH 






22621 


17E0 




UBA 




ADD 








BKX4 


ADD 










22622 




* 


























22623 




* 


























22624 


17E1 




UBB 




JSB 


SCND 


ZERO 




UBA 


JSB 


SCND 






NZRO 


22626 






























22627 


17E2 






XRll 


INC 




XRll ROD 






ADD 










22629 


17E3 




FFFC 


RH 


ADDL 




RH 


FFFF 




ADDL 




BKX5 






22631 


17E4 




UBB 


OPA 


AND 




SP4A 


RREG 


BKX4 


JSB 


•-3 


BKX4 




UNC 


22633 




* 


























22634 




* 


























22635 


17E5 


SCND 


RH 




ADD 




NZRO 


FOOD 


SP4A 


ANDL 








ZERO 


22637 


17E6 








JSB 


SCNE 


UNC 






JSB 


SCNE 






UNC 


22639 


17E7 




RH 




CAD 




RH NZRO 


OFOO 


SP4A 


ANDL 








ZERO 


22641 


17E8 








JSB 


SCNE 


UNC 






JSB 


SCNE 






UNC 


22642 


17E9 




RH 




CAD 




RH NZRO 


OOFO 


SP4A 


ANDL 








ZERO 


22644 


17EA 








JSB 


SCNE 


UNC 






JSB 


SCNE 






UNC 


22645 


17EB 




RH 




CAD 




RH 






ADD 










22646 




* 


























22647 




• 


























22648 


17EC 


SCNE 






ADD 




XR6 NF2 






ADD 






POPR 


NZRO 


22650 


17ED 




RH 




ADD 




RC CF2 






ADD 








RSB 


22652 




* 


























22653 




* 


























22654 




* 




SCAN 


OPERAND-2 


FOR LEADING ZEROS 












22655 




* 


























22656 




* 




ON ENTRY 


XRBll :« OPERAND-2 


WORD 


ADDRESS 








22657 




* 








BKX6 :• OPERAND-2 


WORD 


COUNT - 1 








22658 




• 








BKXr :• OPERANO-2 


MSW MASK 










22659 




* 


























22660 


17EE 


SCNA 


RC 




ADD 




RH ODD 




XRll 


ADD 






ROAD 




22662 






























226'-.3 


17EF 




UBA 




INC 




RH 




BKX7 


ADD 






PSHR 




22665 


17F0 




UBB 




ADD 




SF2 


RD 




ADD 








EVEN 


22667 


17F1 




UBA 


OPA 


AND 




SP4A 


0002 


RH 


ADDL 




RH 






22669 


17F2 




UBA 




ADD 








BKX6 


ADD 










226 71 




* 


























22672 




* 


























22673 


17F3 






UBB 


JSB 


SCND 


ZERO 


UBA 




JSB 


SCND 






NZRO 


22675 


17F4 








ADD 








XRll 


INC 




XRll 


ROAD 




22677 


17F5 




FFFC 


RH 


ADDL 




RH 


FFFF 




ADDL 




BKX7 






22679 


17F6 




UBB 


OPA 


AND 




SP4A 


RREG 


BKXe 


JSB 


•-3. 


BKX6 




UNC 


22681 


17F7 








ADD 










ADD 










22683 


17F8 








ADD 










ADD 
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READ SOURCE (MSW); SKIP IF t DIGIT IS ODD 
F2 IF BYTE ADDR IS ODD; ADD 1 IF EVEN 
, SKIP IF DIGIT ADDR IS EVEN 
MASK MSD'S; ADD 2 IF ODD 



DO SCAN; JSB IF WD COUNT :- 0, OR 

NON-ZERO IS DETECTED 

READ NEXT ADDRESS 

DIGIT COUNT - 4, UBB := -1 

MASK; DEC THE WD COUNT 



; CHECK IF 1ST DIGIT 
; JSB IF NO ZERO 
CHECK FOR 2ND DIGIT 

CHECK FOR 3RD DIGIT 



XRA6 :- 0; POPR 

NEW TARGET DIGIT COUNT; 



SKIP IF OPERAND-2 DIGIT COUNT IS ODD; 

READ OPERAND-2 MSW 

INC DIGIT COUNT BY i^ OP-2 MSW MASK 

SF2; SKIP IF EVEN BYtE ADDR 

MASK MSW DATA; ADD 2 TO DIGIT COUNT 



JSB IF EITHER DATA OR WD COUNT IS ZERO 

: READ NEXT ADDRESS 

DIGIT COUNT - 4, NEW MSW MASK 

MASK THE DATA; DEC WD COUNT, DO NEXT WORD 

NOP to deep system happy 

NOP to keep system happy 
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RECORD 

NO 

22686 
22687 
22688 
22689 
22690 
22691 
22692 
22693 
22694 
22695 
22696 
22697 
22698 
22699 
22700 
22701 
22702 
22703 
22704 
22705 
22706 
22707 
22708 
22709 
22710 
22711 
22712 
22713 
22714 
22715 
22716 
22717 
22718 
22719 
22720 
22721 
22722 
22723 
22724 
22725 
22726 
22727 
22728 
22729 
22730 
22731 
22732 
22733 



COBOL II FIRMWARE INSTRUCTION SET - ABSOLUTE/NEGATE DECIMAL 

C.S. ..»«....««. ALU A •••*•••«•«• ..*««.•«.•»«• ALU B •••«••«*•••••• 

ADDR LABL RREG SREQ FUNC SFNC STOR SPSK RREG SREG FUNC SFNC STOR SPEC SKIP 
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valid TOS registers containing the relative byte 
ress to the packed decimal field and the digit 

iglt count is less than zero or greater than 28 
form the ILLEGAL DECIMAL OPERAND (%17) TRAP, 
e word containing the sign nibble at the 
e address EA ■ (DB + (DC / 2)) / 2. 
heck the effective address if not in split stack 
f the bounds test fails, add 32k to check for a 
dress, refetch the word, and bounds check again, 
ign nibble is in the left byte, swap the left 
t bytes so the sign nibble will be in the right 

the last 2 bits of the sign (right) nibble 
D • 01, F = 11) of the right byte 



ABSD / NEGD 

1. Get two 
byte add 
count 

2. If the d 
t hen per 

3. Fetch th 
effect iv 

4. Bounds 
mode . I 
DL-DB ad 

5. If the 
and righ 
nibble . 

6. Extract 
(C = 00, 

ABSD 

7. Make the value unsigned by masking an F into the sign 
nibble . 

8. Set CCG. 

9. If the sign bits = 01 (the sign was negative => D), then 
set CCL. 

NEGD 

7. Remove the sign by masking a zero into the sign nibble. 

8. Set CCG and mask a D into the sign nibble. 

9. If the sign bits « 01 (the sign was D «> negative), then 
then set CCL and mask a C into the sign nibble. 

ABSD / NEGD 

10. Pop the digit count. 

11. Pop the relative base address parameter if SDEC « 1. 

12. Clear the overflow bit in the STATUS register. 

13. If the left and right bytes were swapped in Step 5, 
then swap them back. 

14. Rewrite the word containing the sign nibble. 
15 . Next inst ruct ion . 
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RECORD 

NO 

22737 
22738 
22740 
22742 
22743 
22745 
22747 
22748 
22750 
22751 
22753 
22754 
22756 
22757 
22759 
22761 
22762 
22764 
22765 
22767 
22768 
22770 
22771 
22773 
22774 
22776 
22777 
22779 
22780 
22782 
22783 
22785 
22786 
22788 
22789 
22791 
22792 
22794 
22795 
22797 
22798 
22800 
22801 
22802 
22804 
22806 
22807 
22808 



COBOL 

C.S. 

ADDR 



II FIRMWARE INSTRUCTION SET - ABSOLUTE/NEGATE 

ft ft ft ** *«* A A A ALU A *ft*ft*ft*ftft*ft ftftftftftftftftftf 

LABL RREG SREQ FUNG SFNC STOR SPSK RREG SREG 



DECIMAL 

ft.. ALU B •«••«•«*•" 
FUNC SFNC STOR SPEC 
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SKIP COfWENT 



1800 
1801 

1802 
1803 

1804 

1805 

1806 

1807 
1808 

1809 

180A 

1808 

180C 

180D 

180E 

180F 

1810 

1811 

1812 

1813 

1814 

1815 



1316 
1817 



X1800 

ABSD 

NEGD 



ADD 
JSZ 



RA 
RB 
USA 
UBA 



UB6 
UBB 
DB 
DL 

OPA 
OPA 



ADD 
JSB 

ADD 

ADD 

SUB 

JSB 
ADD 

ADD 

JSB 
OOOF SP4A lORL 
RH UBB SUB 

CAD 
ABNl FFFO SP4A ANDL 
RH UBB SUB 

INC 
OOOD SP4A lORL 



PULM 

ABN2 
LSR 



CFl 
SRL2 



CRRY 

SF3A 

RH ROD 

CRRY 

UNC 
SP4A F2 



SWAB SP4A 
ABNl 

RH 



ABN2 



ADD 
ADD 
JSZ 
ADD 



ADD 
ADD 



SWAB RH 
TRPR 



NZRO 
CCA 



NZRO 
CCA 



NF3A 
DATA 



FFE3 
RA 



SP3B UBA 

OOOF 

UBA UBB 
UBA SREG 
OOOD 



UBA 

OOOC SP4A 
SPIB 



ADD Fl DETERMINES ABSD OR NEGD 

JSZ PUL2 SP3B SRZ NEED TWO VALID TOS REGISTERS CONTAINING 

RBA OF PACKED DECIMAL FIELD AND DIGIT COUNT 
MAXIMUM NUMBER OF DECIMAL DIGITS IS 28 
TRAP IF LENGTH < OR LENGTH > 31 
DC/2 
HBF2 (RBA + (DC/2))/2 

F2:«SIQN NIBBLE IN LEFT OR RIGHT BYTE 
NF5B FETCH WORD CONTAINING SIGN NIBBLE 

SKIP BOUNDS TEST IF SPLIT STACK MODE (CSTX) 
CRRY BOUNDS TEST DL <• EA (2324) 

BOUNDS TEST EA <• S (2324) 

UNC JUMP TO SELF; JUMP TO BOUNDS CHECK (CSTX) 
SIGN NIBBLE IN RIGHT BYTE 
MASK FOR SIGN NIBBLE 
RH F2 SIGN NIBBLE IN LEFT BYTE 

MASK SIGN BITS IN RIGHT BYTE 
RH ABSD/NEQD ? 

MASK SIGN BITS IN LEFT BYTE 
ABSD - CHANGE SIGN NIBBLE TO F 
SIGN NIBBLE FOR A NEGATIVE NUMBER 
CCA TEST FOR SIGN NIBBLE - D -> NEGATIVE 
SET CCG DEFAULT 
UNC SET CCL 

SKIP NEGD OPTION 
NEGD - CHANGE SIGN NIBBLE TO 
SIGN NIBBLE FOR A NEGATIVE NUMBER 
CCA TEST FOR SIGN NIBBLE « D => NEGATIVE 
SET CCL DEFAULT 
NZRO SET CCG 

DETERMINE WHICH SIGN TO REPLACE PREVIOUS 
RH MASK NEGATIVE SIGN IF PREVIOUSLY POSITIVE 

MASK POSITIVE SIGN IF PREVIOUSLY NEGATIVE 
EPOP EVEN SIGN NIBBLE BELONG IN LEFT OR RIGHT BYTE' 

POP DIGIT COUNT; SDEC OR 1? 
EPOP SIGN NIBBLE SHOULD BE IN LEFT BYTE 

POP RBA IF SDEC « 
CLO ILLEGAL DECIMAL OPERAND LENGTH TRAP (%17) 
CLEAR OVERFLOW IN STATUS REGISTER 
NEXT REWRITE WORD CONTAINING SIGN NIBBLE 
NEXT INSTRUCTION 

NOP ' s to prevent WCS Parity errors from 

crashing system during instruction pre-fet 



ADDL 
ADD LSR 

CSR 

JSB *+3 

SUB 

JSL LDWC 
ADDL 

AND 

AND 

ADDL 

INC 

JSB ABN2 

ADDL 

CAD 

ADD 

lORL 

ADD 

ADD 

ADD 

ADD 



ADD 
ADD 



END OF ICF/55 MICROPROGRAM *' 
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SYMBOL 


CSADDR 






ABCS 


005D 


- 0150 




ABDS 


005C 


- 057A 


057B 


ABNl 


180E 


- 180A 




ABN2 


1812 


- 1803 


1800 


ABRT 


0DC6 


- ODAF 




ABSO 


1153 


- 1143 




ABSl 


1156 


- 114D 




ABS2 


115E 


- 113B 


113C 


ABSD 


1800 


- lOlE 




ABSN 


113A 


- 1008 




ABTl 


0DC9 


- 0DB9 




ABTH 


00C4 


- 014F 




AD 


0939 


- 0945 


0960 


AD14 


1494 


- 142A 


142D 


AD17 


1495 


- 1417 


1417 


ADAX 


03EB 






ADBX 


03F1 






ADDD 


1583 


- 1408 


1409 


ADDE 


159F 


- 15AA 


15B0 


ADDM 


1592 






ADJl 


OFIA 


c- 0F16 




ADJS 


0F14 


- 08D3 


0B3C 


ADSl 


1378 


c- 1378 




ADSB 


066F 






ADSC 


057B 


t- 0577 


0590 


ADSD 


05AE 


- 05A6 




ADSE 


057A 


<- 0571 




ADSI 


0658 







ICF/55 MICRO-ASSEMBLER 
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114F 114F 1158 1158 



1430 1438 1445 



0F19 OFIC 10A2 1100 1163 1204 1257 
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ADSS 


1375 








ADXA 


03EC 








ADXB 


03F2 








AE 


093A < 


- 0936 


0937 




AE13 


1577 < 


- 15A0 






AEBC 


11A5 < 


- 113E 


113E 


116D 


AIXl 


055A < 


- 0557 






AIXF 


0559 < 


- 0551 






AIXR 


0557 < 


- 0555 






ALGl 


119B < 


- 1184 


118B 


118D 


ALG2 


UAl < 


- 1165 


1165 


1167 


ALGN 


1162 < 


- 1007 






AMD 


0744 








AMDl 


0745 < 


- 07 4C 






AMID 


0749 








AMIP 


0750 








AMIS 


0748 








AMP 


07 4D 








AMPl 


074E < 


- 0752 






AMS 


0743 








AND 


03FB 








AND I 


066E 








ASL 


0876 








ASMN 


0746 < 


- 0755 






ASR 


087A 








ASXI 


066B 








BAFO 


043C < 


- 0439 


043E 




BAFl 


043E < 


- 043B 
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116D 117A 117A 117D 117D 



1167 1168 1168 119E 
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I 
SYMB 


BAF2 


043F < 


- 0430 








BAF3 


0441 < 


- 0419 


0422 






BAF4 


0443 < 


- 0414 


0418 


041C 


041E 


BARO 


0449 < 


- 0446 


044B 






BARl 


044B < 


- 0448 








BAR2 


044C < 


- 0449 








BAR3 


044E < 


- 042D 


0436 






BAR4 


0450 < 


- 0428 


042C 


0430 


0432 


BBFO 


0410 < 


- 0421 








BBFl 


0422 < 


- 0420 








BBFC 


0413 < 


- 0411 








BBRO 


0430 < 


- 0435 








BBRl 


0436 < 


- 0434 








BBRC 


0427 < 


- 0425 








BCC 


05F0 










BCCl 


05F1 < 


- 05E8 


05EF 


05FC 




BCC I 


05F3 










BCIl 


05BF < 


- 05CE 








BCI2 


05C2 < 


- 05CC 








BCY 


05B9 










BCYl 


05BA < 


- 05CD 








BCYI 


05BE 










BDl 


15D4 < 


- 15CD 








BD2 


15E5 < 


- 15CE 








BD3 


IbED < 


- 150E 








BD33 


15BA < 


- 15DD 








BD3S 


15DF < 


- 14AF 


1405 


14E0 


14F6 


BD4 


149B < 


- 14BC 


15D0 
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0449 044C 



15EC 15F7 
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BD5 


14B0 


- 14D5 


15D1 




BD6 


14C6 


- 14F1 


15D2 




BD6R 


14D6 


- 14BF 






BD7 


14E1 


- 15D3 






BDCC 


00D7 


- 07C6 






BDEN 


15DC 


- 15E1 


15E3 


15E4 


BDER 


16D9 


- 1494 


1495 


15BA 


BDTR 


14F2 


- 14DF 






BIDE 


0C39 


- 0C20 






BKPT 


0603 


- 0326 






BNCl 


05C5 


- 05CF 






BNCI 


05C9 








BNCY 


05C4 








BNDL 


0B48 


- 0B4C 






BNDV 
BNIl 


0057 
05CA 


- 0025 
05E2 

- 05D0 


00E7 
060C 


OOFB 
0612 


BNOI 


05D0 








BNOV 


05CF 








BOV 


05CD 








BOVI 


05CE 








BRE 


05DA 








BREI 


05DE 








BRID 


05F9 








BRIS 


05F8 








BRO 


05D1 








BROI 


05D5 








BRS 


12CD 


- 1274 






BSFO 


0414 


- 0417 
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OlOF 016F OICA 037B 03C2 049E 049F 04CA 04CB 04CC 04CD 04DE 04EF 04F0 05D9 
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BSF2 


0418 < 


- 0414 




BSF3 


0419 






BSRO 


0428 < 


- 042B 




BSR2 


042C < 


- 0428 




BSR3 


042D 






BTOD 


14F7 < 


- 14A2 


14A7 


BTST 


13F1 






BYRl 


OAAD < 


- OAAB 




BYRS 


0AA8 < 


- 0A6D 


0A8B 


CAB 


13D6 






CABT 


108F < 


- 1088 


1088 


CADI 


1421 < 


- 141F 




CAD2 


1431 






CAD3 


1432 < 


- 142B 




CAD4 


1433 < 


- 142C 




CADS 


1435 < 


- 143E 


1440 


CAD6 


1439 < 


- 1434 


1441 


CAD7 


1441 < 


- 1427 


1429 


CADS 


144D < 


- 143C 


1448 


CAD9 


1450 < 


- 144D 




CADA 


1442 <: 


- 1435 


144A 


CADB 


1445 '■■ 


- 1438 




CADC 


1446 -: 


- 1431 


1442 


CAFl 


046B ': 


- 0470 




CAF2 


046E •: 


- 046A 




CARl 


047A 


- 047F 




CAR2 


047D •; 


- 0479 




CBAF 


046A ■: 


- 0462 





ICF/55 MICRO-ASSEMBLER 
SYMBOL TABLE CROSS REFERENCE 



10/ 2/86 9:28 AM 



14AA 14BA 14D4 14F0 15D5 15E8 15EB 15F2 15F5 
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C8AR 


0479 


- 0471 






CBE 


07F3 


- 07D9 


07DC 


07DF 


CBEl 


07F4 


- 07CA 






CBFD 


02EB 








CBSF 


0463 








CBSR 


0472 








CCL 


0270 


- 0297 






CCPA 


08F9 


- 08D6 


08DD 




CCPI 


08F7 


- 08F0 






CCPP 


08D3 


- ODOC 






CCPR 


08E6 








CCPW 


08ED 


- 08E5 






CEBC 


1253 


- 1208 


1208 


1208 


CGE2 


OAgs 


- 0A2F 






CGET 


0A98 


- 0A95 






CHLO 


DODO 


- 00B3 






CHR 


0g4A 


- 092A 


0920 


0937 


CHRl 


094D 


- 094B 






CHRA 


099A 


- 0941 


0942 


094D 


CHRC 


09AF 


- 099E 






CHRS 


09CS 


- 095F 


09C7 


09FA 


CHRX 


C9C8 


- 0960 


09BA 


OABC 


CHRZ 


OABb 


- 09C7 






CINR 


02A2 


- 02A2 






CINT 


0298 


- 024B 


0261 




CIRD 


06E4 


- 06D9 






CKAl 


160D 


- 1607 


1608 


1609 


CKAB 


14SE 


- 141E 


146C 
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120B 125F 125F 1262 1262 127F 127F 12E0 12E0 12E7 12E7 



0941 0948 09E2 0A5D 
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CKB 


1780 <- 


1602 




CKBA 


1777 <- 


1502 


1518 


CKCD 


1456 <■ 


141B 


146A 


CKCH 


OFOE <- 


0AC9 




CKLN 


1774 <- 


1501 


1517 


CKPB 


OlFA <- 


0235 




CKSM 


02D4 <- 


0002 


0791 


CLCT 


02FD <- 


0504 




CLDO 


0243 <- 


0209 




CLDl 


0247 






CLOD 


02AF 






CLDE 


0002 <- 


OFOD 




CLDR 


0264 <- 


02AE 




CLDT 


OlDE 






CLER 


0984 <- 


0909 




CLFF 


09B0 <- 


0A4A 


0A51 


CLFN 


0278 






CLIP 


0986 <- 


0989 


09F3 


CLKI 


ODOO <- 


053D 




CLKX 


0D03 






CLLP 


0272 <- 


0274 


09AD 


CLP 


0275 <- 


0273 




CLSO 


122C <- 


1214 




CLSS 


1220 <- 


1213 




CMIO 


10C4 <- 


10C2 


10C7 


CMU 


lOCB <- 


10B6 




CM12 


lOCD <- 


lOAE 




CM13 


lOCE <- 


10D5 
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1585 15BE 1702 



1584 1701 
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CM14 


lOCF 


- lOCC 


10D3 




CM15 


10D6 


- 10B4 






CM16 


10E4 


- 10C5 






CM17 


lOED 


- lOCl 


lODl 


lOFD 


CM18 


10F3 


- 10A5 






CM19 


10F7 


- 10A8 


10A8 


10 AC 


CM20 


lOFA 


- 10B5 


10C6 


10D2 


CM21 


lOFB 


- 10A4 


lOCO 


10C6 


CM22 


10D4 


- lOCC 






CM26 


10E6 


- lOCB 


lOCD 




CM30 


lOFD 


- lOAA 






CMBO 


048S 


- 0453 


045C 




CMBl 


0460 


- 045B 






CMBD 


045C 








CMBE 


0480 


- 0466 


0463 


046D 


CMBI 


0485 


- 0466 


046D 


0475 


CMBN 


0482 


- 0465 


0468 


046C 


CMBP 


0453 








CMBR 


047i 


- 0461 






CMD 


0961 


- 09 OD 






CMDO 


0963 


- 0968 






CMDl 


0965 


- 0967 






CMD2 


0776 


- 077F 






CMDM 


0775 








CMID 


077C 








CHIP 


0785 








CMIS 


077B 








CMNI 


0668 
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10A8 lOAC lOAC 10D8 10D8 lODF lODF 10E8 10E8 iOEF lOEF 



0470 0475 0478 047C 047F 

047C 

046F 0474 0477 047B 047E 
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CMP 


067C 








CMPl 


0781 


- 0787 






CMPD 


15B1 


- 159D 


15A9 




CMPE 


1585 








CMPL 


OBEB 


- OBEE 






CMPM 


0780 








CMPS 


lOAl 


- lOOC 






CMPT 


lOAO 


- 1016 






CMS 


0774 








CMSO 


10A9 


- 10F6 






CMSl 


lOAA 


- 10A5 






CMS 2 


lOAF 


- lOBA 


lOBC 


lOBD 


CMS 3 


lOBO 


- 10B8 






CMS4 


10B9 


- 10B6 






CMS5 


lOBB 


- 10B7 






CMS6 


lOBE 


- lOBB 


10C7 


10D3 


CMS7 


lOCO 


- 1085 






CMS8 


IOCS 


- 10C2 






CMS9 


1003 


- 1009 


100 A 


lOFE 


CNTO 


ODBA 


- 0D9D 


0DB4 




CNTl 


0D6B 


- 0DB6 


0DB8 




CNXT 


1064 


- 1056 






C0B2 


1015 








COBL 


1000 








CORT 


1007 








CONi 


1078 


- 106A 


106D 


106E 


CONX 


ODBO 


- 0DA7 


ODAB 


ODAC 


COUT 


124F 


- 1205 


1206 


1222 
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1225 1228 1233 1236 1244 1249 124A 124D 
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COVP 


123F 


- 122B 




CPAB 


00C9 


- 027E 




CPCS 


00C8 


- 028E 




CPEX 


09Ae 


- 0918 


0951 


CPRB 


05E3 






CPRI 


05E9 






CPTO 


O0C7 


- 0274 


02CC 


CPXl 


09AE 


- 0971 


08AE 


CPX2 


0971 


- 096E 


096E 


CRCl 


09EE 


- 09EE 




CRC2 


09EF 


- 09EA 




CRC4 


09F9 


- 09E8 


08F6 


CROC 


09E7 


- 0911 




CRCD 


0911 


- 096F 




CRCI 


09E3 


- 0910 




CRCJ 


0910 


- 093E 




CRCS 


OAFO 


- OAgi 




CRTl 


024C 


- 02AA 




CRT2 


0262 


- 0257 


02AA 


CRTW 


0254 


- 0254 


0257 


CRUW 


0258 


- 0256 




CSEG 


1067 


- 1055 


1055 


CSFl 


0464 


- 0469 




CSF2 


0467 


- 0463 




CSL 


0886 






CSN2 


0090 


- 009B 




CSNC 


0095 


- 0086 


0D42 


CSR 


0S8A 
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1062 1062 
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CSRl 

CSR2 

CSRQ 

CSTH 

CSTV 

CTAB 

CTLV 

CTRP 

CTSO 

CTSS 

CUNS 

CVAD 

CVBD 

CVDA 

CVDB 

CVND 

CVZO 

CYCL 

D03G 

D03L 

D03S 

D071 

D07G 

D07L 

D07S 

DlOO 

DAI 

DAIS 



0473 
0476 
0AC7 
OOCE 
0044 
0D05 
00C6 
124E 
1234 
1223 
I24A 
1416 
15B8 
1466 
1600 
1203 
15E4 
0CE3 
04F3 
04F6 
04F1 
05B0 
0581 
0586 
05AF 
14FA 
147A 
1496 



0478 

0472 

0279 OAFE 

0046 

OlOE OllE 0121 



0148 
1230 
1215 
1213 
1217 
1401 
1403 
1402 
1404 
1019 
15CC 
0D14 
0400 
04F2 
0481 
0599 



0125 0126 012C 0148 0161 0181 0183 0183 1069 1071 1075 1077 107C 107E 1084 



107D 

1230 123B 123B 



lOlA 1018 lOlC 



0408 0442 0444 044F 0451 04DD 04F1 0542 0546 057F 0583 



0484 0488 04C2 04C4 04ED 04EE 
05AD 



05B0 

054D 0558 0561 

149D 14A0 14A5 

1476 1480 1482 

147C 



0568 
14B2 



0594 
14B5 



05AA 
1488 



14C8 14CC 14CF 14D2 14E1 14E5 14E8 14EB 14EE 15E6 15EF 
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DA17 


1497 


i- 1466 






DA 2 


147C 


(- 1478 






0A3 


1480 








0A4 


1483 


t- 147D 






0A5 


USB 


- 1488 






DAS 


1480 


- 1485 


1486 


1489 


0A7 


14SF 


- 148D 






OABl 


03C6 


- 03 BC 






DABC 


03C8 


- 03C2 


03G4 


03CA 


DAB I 


03C9 








DABZ 


03C4 








DADS 


067F 








DASL 


088E 








OASR 


0893 








OBI 


161C 


- 1617 






DB2 


1625 


- 1619 






DB2B 


1635 


- 1655 






DB4 


1640 


- 161A 






0B4B 


1656 


- 163B 






0B6 


1675 


- 161B 






DBS 


16B3 


- 161B 






DBBC 


0489 


- 040A 


045F 




DBCC 


0493 


- 040B 


0455 


045E 


DBER 


16D5 


- 1605 


1702 




DBNE 


16B7 


- 16AF 






DBNZ 


1340 


- 1319 






DBZR 


16BF 


- 1604 






DCER 


0A5O 


- 0933 


0g6A 


OAIO 
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096A OAIO OAge 0A97 0A9F 0AA3 0AA6 OAAF 0AB5 
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OCH 


0A92 < 


- 0A5E 


0A7D 




DCJP 


OABO < 


- 0A7A 


0A8E 


0A96 


DCMD 


0704 < 


- 0325 


0600 




DCMP 


0695 








DCNB 


0A9E < 


- 0A54 


0A5A 




DCPU 


OAAl < 


- 0A53 


0A59 


0A74 


DCSL 


08A2 








DCSR 


08A7 








DCUO 


07CA 








DCUl 


07D4 < 


- 07CB 






DCU2 


07D6 < 


- 07CC 






DCU3 


07DA < 


- 070D 






DCU4 


07DD < 


- 07CE 






DCU6 


07E0 < 


- 07CF 


07D0 




0CU7 


07E9 < 


- 07D1 






DCU8 


07EC < 


- 07D2 






DCU9 


07F1 < 


- 0703 






ODD 


166A < 


- 164B 


1680 


1680 


ODE 


0800 < 


- ODIO 






DDEL 


08BA 








DDIV 


06AA < 


- 069B 






DDUP 


1303 








DEA 


071A < 


- 070B 






DEC 


140C 








DECA 


06BB 








DECB 


06BD 








DECT 


1400 








DECX 


06B9 
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DEL 


08BB 


DELB 


08B9 


DFLC 


1346 


DFLT 


0800 


DFLZ 


080B 


DIE 


07C1 


DIM2 


0092 


DIMS 


0084 


DISP 


135F 


OIV 


0677 


DIVI 


0661 


DIVL 


0687 


DLSL 


0898 


DLSR 


089D 


DMA 


OAU 


DMAB 


0933 


DMAM 


0A29 


DMCK 


0926 


DMD 


073B 


DMDl 


073C 


DMDV 


0699 


DMID 


073F 


DMIS 


073E 


OMNX 


06A7 


DMON 


OAOl 


DMPl 


0267 


DMPE 


0004 


DMPX 


OOFS 
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03EB 03EE 03F9 03FA 03FB 066F 



0801 0855 



0089 
0091 
1357 



0310 
0174 



136C 1395 



0A62 


OA82 


0A44 


0A48 


0938 




0929 




0742 




0F21 





0A4C 0A4E 



06A9 








09FF 


0A17 


0A19 


0A23 


0264 


02D3 


02FD 


0301 


OCOA 








0005 


0C09 
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DMPY 


16C2 


- 


1400 








DMRl 


0A31 


- 


0A28 








DMR2 


0A39 


- 


0A34 








DMRR 


0A28 


- 


0A30 


0A3C 






DMS 


073A 












OMSO 


06A5 


- 


06A8 


06Ag 






DMUL 


069C 












DNEG 


0693 












DNVL 


09CF 


- 


09D0 








DONE 


OBEF 


- 


OBEC 








DPF 


0649 












DPFl 


0650 


- 


0654 








DPFS 


0653 


- 


064E 








DPPX 


1354 












DSCP 


02AB 


- 


0263 








DSFT 


08AC 


- 


0892 


0897 


089C 


08A1 08A6 08AB 


DSIX 


059A 


- 


0595 


0597 






DSJB 


098D 


- 


097D 








DSR 


0973 


- 


098C 








DSRJ 


098B 


- 


0905 








DSTV 


0047 


- 


056F 


0570 


0575 


0576 058B 058E 05A4 05A5 


DTOB 


1660 


- 


1622 


1635 


1639 


1644 1646 164E 1679 1676 1684 


DTSl 


OOFS 


- 


0686 


13F0 






DTST 


13F0 












DUMP 


0214 


- 


OF CD 








DUP 


1300 












DVLl 


0691 


'- 


068B 








DVL2 


068C 


;- 


067A 
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DXBl 


03D2 


t- 


03CC 








DXBC 


03D4 


t- 


03D0 


03D5 






DXBI 


03D5 












DXBZ 


03D0 












DXCH 


IJCE 












DXIl 


03D7 


- 


03CF 








DY03 


0E6F 


- 


OE35 








DY25 


0E71 


- 


0E36 


0E37 






DY26 


0E73 


- 


0E4D 








DZRO 


03F6 












EADD 


OBAF 


- 


084D 








EBND 


0B3C 


- 


0B34 


0835 


0636 


OB37 


ECM 


020A 


- 


0204 


0227 


0248 


07C1 


ECMP 


0BE6 


- 


0B39 








EDI2 


1266 












EDI3 
EDI4 


131B 
1267 


: 


128D 
133B 
131C 


1294 
133C 


12A1 
133E 


12A7 12B2 12C0 1206 
1345 134A 134C 1353 


EDI5 


130F 


- 


1277 








EDI6 


131A 


- 


12D3 


12F7 


1352 




EDIT 


1256 


- 


lOOB 








EDIV 


0B76 


- 


0B53 








EDLP 


0B9D 


- 


0B9A 








EDTl 


1270 












EDT2 


1315 












EDVL 


0B92 


- 


DB8E 








EDVZ 


0BA5 


- 


0B76 








EE13 


155B 


- 


1513 








EFC3 


0B4E 


- 


0BB8 
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PAGE 481 
SYMBOL 


CSADDR 








I 
SYMB 


EFCH 


OBFl 


- 0BE8 


OBED 






EFOV 


0BD6 


- 0BD4 


0BD5 






EMPY 


0854 










ENDF 


132D 


- 1315 








ENDP 


1057 


- lOOE 








ENEG 


OBDB 


- 0B38 








ENPl 


0C93 


- 0C90 








ENPF 


0C92 


- 0D13 








ENRM 


0BC7 


- 0B75 


0BA4 






ER13 


17CE 


- 155B 


1577 


16E0 


170B 


ER15 


17CF 


- 17B0 


17B4 






ER17 


17D3 


- 1774 


1774 






ERON 


0D80 


- ODID 








ERXT 


0D92 


- ODIE 








ESUB 


OBAE 


- 0B4D 








ETBL 


0B34 










ET02 


OODB 


- 04A7 


04D1 


04E2 




ET03 


OODF 


- 0317 


0400 


0408 


0453 


ETRP 


1325 


- 129D 


1288 


1336 


1336 


EVAN 


OBFA 


- 08BC 


0B6D 


OBBD 




EXAM 


0934 


- 092A 


092F 






EXF 


063F 










EXFP 


0B2F 










EXFS 


0646 


- 0642 








EXI6 


0178 


- 016E 


016F 


OlAD 


OlAE 


EXI7 


0185 


- 017B 


017D 






EXI8 


0186 


- 0184 








EXI9 


0170 


- 0191 


OlAF 
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045C 053E 0570 140E 
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EXIT 


0163 














EXMl 


0938 


- 


0942 










EXSU 


0176 


- 


0166 










EXT 


0DC4 


- 


ODBE 










EXUV 


0833 


- 


0820 










EZRO 


0BF7 


- 


0B54 


0B54 


0876 


0BA5 OBBO 0BC6 




FADD 


081C 


- 


083A 










FADJ 


0824 


- 


0835 










ECHO 


0950 


- 


093D 










FCHl 


094F 


- 


0900 


093F 


094E 


0959 095F 0992 09D7 09FB 


09FE 


FCH2 


17A6 


- 


1745 


17A2 








FCH4 


094E 


- 


0967 


0A3E 


0A7B 






FCHA 


17A3 


- 


1589 










FCHB 


17A0 


- 


1507 


151C 


158A 


1610 1712 171D 




FCHL 


0A7B 


- 


0A3E 


0A3F 


0A44 


0A45 0A46 0A47 0A52 0A7C 


OAFl 


FCHR 


0A7A 


- 


0A73 


0A74 


OA75 


0A7 8 




FCMO 


0819 


- 


081B 










FCMP 


0817 














FCRT 


0A7C 


- 


0A79 










FDIV 


0845 














FDSl 


0592 


- 


0579 










FDSX 


0599 


- 


0596 


0598 








FDZR 


0851 


- 


0846 










FILL 


11D4 


- 


1183 


118C 








FINI 


0BE5 


- 


OBDE 










FIUL 


098A 


- 


09E4 










FIXR 


0857 














FIXT 


0861 
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FLSH 


07A5 


- ODOA 




FLT 


080C 






FLTl 


0810 


- 0815 




FLTN 


0815 


- 080E 




FLTZ 


0816 


- 080D 




FMPY 


083B 






FNEG 


0854 






FOV 


0832 






FOVZ 


0871 


- 0869 




FSSR 


04A0 


- 049D 




FSUB 


083A 






FTST 


086r 


- 0S50 


0868 


FUNZ 


&374 


- 0858 


0861 


FXSL 


0869 


- 085A 


0863 


GDRT 


0916 


- 00B5 




GOXD 


ODDE 


- 0DD3 




GRP7 


OFIE 






GSMC 


049D 


- 048F 


0490 


GTPl 


0CE6 


- 0CE8 




GTPR 


0CE4 


- 0C99 


0C9B 


GTPX 


0CE9 


- 0CE5 




HALT 


031C 






HIOP 


0C28 


- 0C22 




HLTP 


09A1 


- 0949 


0949 


HMIT 


05FD 


- 0022 




lABC 


03BD 


(- 03BB 


03BF 


lABI 


03BE 






lABZ 


03BB 
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0499 049A 



0CA4 0CA6 0CB5 0CB7 



094D 09BC 
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lAIl 


03C0 


- 03CA 




IC 


12B9 


- 1272 


1273 


ICI 


12C3 


- 1273 


1274 


ICP 


12EA 


- 1276 




ICS 


0036 


- 00A6 


027F 


ICSH 


00C3 


- 014F 




IDY 


0972 


- 0908 




IDYB 


097F 


- 0975 




IFC 


09BD 


- 09B5 


OABB 


IFCl 


09C1 


- 09C1 




IFCC 


09B5 


- 0982 




IMO 


0730 






Il«)l 


0731 


- 0739 




IW)2 


0733 


- 073D 




IMID 


0736 






IMIS 


0735 






IMS 


0073 


- 0025 




IMSM 


072F 






IN90 


OOAC 


- 00A8 




INC A 


06BA 






INCB 


06BC 






INCX 


06B8 






INIA 


0C56 


- 0C57 




INIR 


0C63 


- 0C63 




INIT 


0C50 


- OCID 




INL2 


0995 


- 0994 




INTl 


0901 


- 09BC 


09FB 


INT8 


002B 


- 0040 


005C 
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005E 0060 0063 07EB 07F0 07F2 
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INT9 


009E < 


- 0054 


INTH 


0993 < 


- 0901 


INVM 


OOCC < 


- OB28 


lOAl 


07B4 < 


- 07B9 


I0A2 


0787 < 


- 07B7 


I0A3 


07B8 < 


- 0785 


lOAF 


07B1 < 


- 07AE 


JOBS 


OCOO 




lOEE 


00D4 < 


- 00F2 


lOER 


OOFl < 


- 0906 


lOLT 


OCOD < 


- OFOO 


lOMS 


0B20 < 


- 0080 



IR 


0010 


IRl 


0032 


IRD 


0012 


IRON 


OOIF 


IRH 


0021 


IRO 


0064 


IRX 


OOAE 


IS 


12F0 


I SRI 


0C8C 


ISTR 


0C89 
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0080 
026D 
079E 
OFOA 
0923 
0909 
OAEO 


0090 
026F 
07B6 

092B 
09E3 
OAED 


OOAE 
0270 
08DB 

0930 
09E7 
OAF 3 


00B4 
027D 
08F1 

0931 

ogFi 

OFll 


OOBD 
0290 
003 1 

0958 
09F2 


OOBE 
0291 
0040 

095A 
09F4 


0247 
0296 
0C4C 

097F 
09F6 


024A 
0299 
0C54 

0980 
OAIE 


02 40 
029B 
0C59 

0980 
0A31 


024F 
029E 
0C5C 

099A 
0A32 


0250 
02A0 
0C5F 

099F 
0A3A 


0251 
02A1 
0C61 

09AB 
0A66 


0253 
02A3 
0062 

09B0 
0AC8 


0255 
02A4 
0064 

0966 
0A02 


0258 
02A5 
0065 

09B8 
0A04 


025B 
02Ag 
0C66 

09BE 
0AD8 


025E 
02E6 
0068 

0901 
0AO9 


0260 
0314 
0F09 

0905 
OADO 


0900 
0987 
0908 
0A71 


0939 
0988 
09EB 
0A72 


093A 
0989 
09E0 
0A89 


0944 
098A 
09EF 
0A8F 


0946 
098F 
09F0 
0A90 


0940 
0991 
OAOO 
0AB7 


095E 
0999 
0A05 
0AB8 


0966 
0990 
0A06 
0A69 


0960 
0990 
0A07 
OABB 


0970 
09A0 
0A09 
OAOl 


0976 
09A2 
0A18 
0A02 


0978 
09AF 
0A21 
OAF 2 


0979 
09B2 
0A22 
0AF5 


097A 
09B3 
0A29 
0AF6 


0982 
09B4 
0A30 
OAF 7 


0983 
09B6 
0A65 
OAFS 


0985 
0900 
0A6E 
0AF9 


0986 
0903 
0A6F 


0056 


005E 


0060 


OOAA 


OOAB 


0797 


0091 


1097 


1098 




















030B 
lOBF 
0010 


0445 
1133 
0012 


0452 
1324 
0020 


0487 
13FE 
0323 


0407 


0408 


04E9 


051F 


0521 


052B 


05 5 A 


0550 


0563 


0590 


08CA 


080A 


08F8 


0018 


0024 


0680 


0675 


068F 


0871 


0872 


0872 
























00A9 




































1277 




































0C8E 




































0C92 


0D12 
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ITAB 


0900 








IXBC 


03CD < 


- 03CB 


03CE 




IXBI 


03CE 








IXBZ 


03CB 








IXIT 


0192 








IXTl 


0197 < 


- 0195 


01B9 




IXT? 


0196 








IXT3 


0160 < 


- 0196 


01B7 


GIBS 


IXT4 


0iB2 < 


- 00A8 


0196 




IXT7 


019F < 


- OlBl 






IXT8 


01A2 < 


- OIBE 






IXT9 


OIBA < 


- 01B8 






JDCU 


07FF < 


- 07FB 






LI 


0E4D < 


- 0E47 






L2PF 


0303 < 


- 079C 


07B4 


08DS 


LAD 


037D 








LADS 


06C0 








LAIS 


OlFl < 


- OlEE 






LAID 


0380 








LAIP 


OlED 








LAIS 


037F 








LAP 


OlEA 








LAPl 


OIEC < 


- OlFO 






LAPS 


01F3 < 


- OlEB 






LAO 


037A 








LAS 


0379 








LB32 


0368 < 


- 035D 


035D 


0364 


LSD 


0361 
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LBDl 


0365 


LBDL 


0366 


LBDR 


0367 


LBIl 


0373 


LBID 


03ec 


LBIS 


036B 


LBLl 


0DA5 


LBPH 


03E2 


LBQ 


035B 


LBS 


035A 


LC2 


0287 


LCKl 


02DA 


LCMP 


06BE 


LD 


0288 


LD2 


0285 


LDD 


0349 


LDDl 


034A 


LDDW 


1030 


LDEl 


0721 


LDEA 


071B 


LDID 


0352 


LDIS 


0351 


LDIV 


06C8 


LDNE 


028D 


LDP 


0356 


LDPl 


0357 


LDPH 


OSDE 


LOS 


0348 
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ODAl 

035B 0361 



0285 
02DF 

0286 
0279 

0355 
lOlD 
071E 



0349 0352 
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LDVl 


06CB < 


- 06CE 


LDV2 


06CE < 


- 06C9 


LDW 


1020 < 


- lOlD 


LDWl 


1046 < 


- 1023 


LDW2 


1049 < 


- 1033 


LDWC 


1043 < 


- 1025 


LDXA 


03EF 




LDXB 


03ED 




LEN 


1798 < 


- 1506 


LI32 


0376 < 


- 0372 


LLB3 


0159 < 


- 0156 


LLBL 


0151 




LLNI 


0655 




LLSl 


13F8 < 


- 13FC 


LLS2 


13FD < 


- 13FA 


LLS3 


13FE < 


- 13FB 


LLSH 


13F2 




LMPY 


06C3 




LOAD 


0200 < 


- 0003 


LOOP 


09CE < 


- 09CF 


LPSH 


03DB < 


- 0329 


LSEA 


070D 




LSL 


087E 




LSR 


0882 




LSSD 


070A 




LST 


OCCD 




LSTO 


0CD8 < 


- 0CD3 


LST5 


0CD4 < 


- OCDl 
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1025 1035 1035 1807 



151B 
0372 



1588 1508 



0360 0380 
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LSTA 


0986 < 


- 09E6 


LSTL 


0C72 < 


- 0C6C 


LSTX 


0C6A 




LTCE 


00D6 < 


- 02E0 


LTCK 


02D8 




LTOP 


0302 < 


- 0246 


LUPl 


0E3F < 


- 0E4C 


LUP2 


0E60 < 


- 0E58 


LUP3 


0E6B < 


- 0E61 


LWD 


0329 




LWDl 


032A < 


- 0331 


LWID 


032E 




LWIP 


0335 




LWIS 


032D 




LWP 


0332 




LWPl 


0333 < 


- 0337 


LWP2 


0334 < 


- 0CD7 


LWS 


0328 




LXD 


0339 




LXDl 


033A < 


- 0341 


LXID 


033E 




LXIP 


0345 




LXIS 


033D 




LXNI 


0657 




LXP 


0342 




LXPl 


0343 < 


- 0347 


LXS 


0338 




MA 


1291 < 


- 1270 
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MABF 

MABR 

MASS 

MAF 

MAOE 

MAPI 

MAP2 

MAR 

MASK 

MAX 

MBAF 

M8AR 

MBBF 

MBBR 

MB LA 

MBLR 

MBSF 

MBSR 

MBWA 

MBWI 

MBWS 

MBWX 

MC 

MCMl 

MCM2 

MCMD 

MD03 

MDS 



055B 
0562 
0549 
054F 
04C5 
02E3 
02E7 
0553 
178E 
0558 
0439 
0446 
041A 
042E 
053B 
0545 
040F 
0423 
0486 
04C6 
04AC 
0400 
128A 
08CD 
08CF 
08C4 
0538 
056B 



0S94 05AA 



151A 
0556 



1587 1500 1704 



0550 
0554 
0530 

04B6 
02E8 
02E4 
054E 
1504 
0552 

0438 
0413 
0427 



040E 
04AB 
04AE 04BB 

00E6 04BO 04B4 04BA 04BE 

1270 

08CB 

08CC 08CD 

0D09 

0505 050F 051C 0526 0530 
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I( 
SYMB( 


MDSR 


0597 < 


- 0593 




MDWO 


1332 < 


- 1317 




MFDS 


0588 






MFSU 


0586 






MLBR 


0582 < 


- 057D 




MLBS 


0569 






MtOG 


0788 < 


- ODOB 




MMAP 


02E1 






MMDl 


0763 < 


- 0769 




MMDN 


0EA3 < 


- 0E89 




MMDO 


0762 






MMID 


0766 






MMIP 


0771 






MMIS 


0765 






MMP 


076A 






MMPl 


076B < 


- 0773 




MMP2 


076C < 


- 0764 




MMTM 


0E99 < 


- 0E95 




MMXT 


0EA5 < 


- OE77 


0E7B 0E7C 


MN 


129E < 


- 1271 


1272 


MNl 


12B3 < 


- 12A1 




MPAA 


1757 < 


- 1749 


174B 174D 174F 


MPMS 


0761 






MPY 


0670 






MPYl 


0674 < 


- 076F 




MPVD 


1700 < 


- 1408 




MPYI 


0669 






MPYL 


0681 
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MPYM 


1746 


MPYR 


1727 


MPYS 


1581 


MPYX 


1766 


MR TO 


00D3 


MSK 


0E66 


MSKB 


1794 


MSTA 


0E77 


MSTO 


OOCB 


MSWP 


1761 


MTAl 


0619 


MTBA 


060E 


MTBX 


0621 


MTCP 


02CB 


MTDS 


059F 


MTSW 


059D 


MTXl 


0626 


MVBl 


040B 


MVBA 


0437 


MVBD 


0408 


MVBL 


053E 


MVBP 


0400 


MVBS 


040E 


MVBW 


04A1 


MVLB 


057C 


MWO 


0515 


MWl 


0517 


MWAE 


0468 
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172A 172C 172E 1730 



1533 


1534 


1545 


1727 


1728 


1729 


09D0 


0B25 




0E87 






1603 






0D22 






09CE 


0B23 




170E 


171C 




0600 







0623 
0407 
040D 



1561 157D 
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MWAO 


04BC 


- 04C5 








MWBF 


0520 


- 0518 


0542 


057F 




MWBR 


052A 


- 0527 


0546 


0583 




MWD 


050F 










MWE3 


0531 


- 050B 


050C 


0511 


0513 0515 0516 


MWF 


0518 










MWFl 


0519 


- 050E 








MWIX 


051D 


- 0519 


0528 


0543 


0547 0580 0584 05AB 


MWOL 


00E6 


- 04AF 


04B3 


04B9 


04BD 


MWP 


0505 










MWR 


0527 


- 0517 








MWRl 


0528 


- 050E 








MWSE 


04B1 


- 04AC 








MWSO 


04AE 


- 04B5 








MWX 


051B 


- 051 A 


0529 


0544 


0548 0581 0585 


MY29 


16DE 


- 1731 








MYST 


1738 


- 1735 


1745 






MZRO 


173D 


- 171E 








NBAF 


1218 


- 1220 


1226 


122C 


1237 


NBAS 


121B 


- 1228 


1231 


123C 




NCHL 


OOCF 


- OOAF 


OCIB 


0C45 




NCON 


00D2 


- 02A7 








NCYC 


OCEF 


- 0D15 








NEG 


0678 










NEGB 


16CD 


- 15CF 


15ED 






NEGD 


1801 


- lOlF 








NEGL 


OBDE 


- 0BE2 








NEWC 


07C3 


- 07AC 
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NEXO 0C33 

NEXl 0D49 

NEXS aC37 

NEXT 0007 



NMSK 

NOP 

NORM 

NOSX 

NOT 

NRM 

NRNB 

NRUN 

NSDV 

NSLl 

NSLD 

NSPG 

NSRC 

NSYC 

NTRG 

OBSO 

OBSR 

OLDl 

OLDC 

OR 

OR I 



0E6A 
0006 
082B 
OODl 
03FC 
0061 
0948 
0940 
04F9 
1506 
1511 
1283 
1306 
OOCD 
130A 
OAEC 
OADD 
07AE 
07AD 
03F9 
066C 



<- OC38 0C3F 0041 
<- 0790 08BD 08BF 



0C24 0C27 OC28 



008F 
03E6 
05C3 
0657 
08BB 
1609 
0E64 

0083 



0307 
0940 
0935 
0263 
1512 
1505 
1267 
128E 
029D 
128F 
OADB 
OAEF 
07B0 



05C8 
0658 
OBED 
16CB 



0C4B 0C4F 0C5B 0C5E 0C69 
0803 08D2 08E4 08EC 08F6 
0029 



08FC 0C8F OCFO 0D07 0D45 0D48 



0092 0110 
03E9 03EA 



05D2 
0660 
OBEF 
16CC 



0141 015B OICO 
03EC 03ED 03F0 
05D4 05D6 

057B 

1058 

17DB 



0669 
0036 
17D9 



05D9 
067D 
1305 



01C2 OICB OlEC 0318 
03F1 03F2 03F3 03F5 



05DB 
06B8 
135B 



0344 037E 03BD 03C3 
03F8 03FC 04FS 04F8 



05FO 05F2 05F3 05F7 
06BC 08BD 06BF 0747 



05DD 05DF 05E2 
06B9 06BA 06BB 
136A 136B 137A 137D 13CB 1308 13F1 



03C8 


03CD 


03D4 


03DA 


053A 


05B5 


05B8 


05BD 


060D 


0618 


061F 


0656 


07FF 


0816 


08B9 


08BA 


13F9 


1455 


1493 


1601 



0094 01D5 
0850 



0619 0620 0628 066B 0660 066D 066E 0049 1374 



1513 1515 



128B 1292 129F 12BA 12BC 1204 1207 12CE 12D6 12F3 12FB 133D 133F 1346 1347 134B 134D 
1295 12A2 12A8 12B3 1332 



129B 12A5 12AB 12B0 12B6 1201 120B 12EE 12F5 12FD 132E 133A 
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OVFL 


13AA 


- 138C 






OVPN 


IIDE 


- 1190 


1194 


1242 


PARC 


104D 


- lOOD 






PAUL 


0912 


- 0AD6 


0AD7 


OADF 


PAUS 


031D 








PCAL 


0100 








PCLO 


0113 


- 0101 






PCLl 


0101 


- 01F9 






PCL3 


0117 


- 0035 


OOCO 


OlOF 


PCL6 


0126 


- OllF 






PCL7 


012C 


- 012A 






PCL8 


0147 


- 0132 


0133 


0188 


PCLP 


012B 


- QUA 


0125 


0129 


PCLX 


012A 


- one 






PCN 


OIBF 


- 0193 






peso 


0111 


- OlOA 






PFW 


005A 


- 0028 


05FF 




PFWO 


0798 


- 005B 






PFWM 


0026 


- 0073 






PHDB 


13C5 


- 13BB 






PLDA 


0701 








PLSA 


0700 








PON 


0791 


- 0001 






PONE 


0001 








PSDB 


1359 








PSEB 


135A 








PSEH 


OOCA 


- 135A 






PSHl 


13BE 


- 13B3 


13B4 


13B6 
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OAEB 0F13 



13B7 13B8 13B9 13BC 



PAGE 498 
SYMBOL CSADDR 



ICF/55 MICRO-ASSEMBLER 
SYMBOL TABLE CROSS REFERENCE 



10/ 2/86 9:28 AM 



PSHA 00E3 

PSHF 13CA 

PSHL 003F 

PSHM 00X8 



PSHR 
PSM2 
PSTA 
PSTK 
PSTO 
PTOS 
PUL2 
PULM 

QASl 
QAS2 
QASL 
QASR 
RBKD 
RBYA 
RBYB 
RCCR 
RCLK 
RCMD 
RDBE 
RDCU 
RDEl 



13B2 
OOIB 
0706 
0107 
13C2 
0105 
OOOB 
0008 

08B0 
08B7 
08AD 
08B4 
13B0 
0A6C 
0A66 
0D44 
03E7 
0042 
OA76 
07F7 
0A73 



0004 031E 0788 07A5 

13B9 

0043 0046 0047 0049 004A 



0076 
05 4C 
OF 00 



0356 

0700 

0116 

13C1 

0114 

030C 
13F5 



008B 
056B 
1099 



053F 
140F 
030D 053E 
07F7 08BC 



0E21 
1700 



0D9S 
16C2 
0866 



08AE 08B4 



139A 
0A6A 
0A63 
0D05 

OCOB 
0A70 
ODll 
0A70 



0152 OlCl 
056D 0588 
1300 1303 



054A 0699 
1801 



053F 
08BE 
1020 
1801 



oice 

0589 



03F6 071B 0C93 1303 



OlEB OlEE 
0S8B 059F 



01F5 
05A0 



030E 
05A2 



0332 0335 037A 037D 03E7 03EF 03F4 03F6 054B 
0655 0701 070E 080C 0808 OCOE 0C6D 0CD6 0D44 



069A 0725 07F7 08C4 OBEe 0C3C 0D93 104D 1057 1058 113A 125B 1362 13F4 



0549 054A 0548 
08C0 08C4 08C5 
1030 104F 1057 



054C 0568 056C 
OBDB 0BE6 0011 
105B 113A 1362 



0589 
0013 
13F4 



058A 05A0 
0C3C 0C42 
13F5 140E 



05 A 1 
0072 
140F 



0699 069A 0706 0714 0725 
0084 OCOE 0CE2 OCEB 0046 
1416 1500 1516 1583 15B8 
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RDEN 


0A70 •: 


- 0A4B 


0A4C 


0A4D 


RDT 


0A49 t 


- 0A39 






RDTl 


0A4D •: 


- 0A49 






RDT3 


0A53 ■: 


- 0A50 






RDTA 


0A52 


- 0A57 






RDTB 


0A4B < 


- 0A57 






READ 


0A5E c 


- 0903 


0907 




REMO 


llEF ( 


- 122F 


123A 




RESQ 


13 AC ■<■ 


- 13A7 


13Ai: 




RESX 


13 AD ( 


- 13A4 






RESZ 


13AE ! 


- 13A0 






RI04 


0C4C ! 


- 0C4B 


0C4E 




RMIT 


0324 t 


- 0024 






RMSK 


0316 < 


- 03E8 






RMW 


095A < 


- 090A 


0947 


09A5 


RREl 


OAOO < 


- 0A62 






RREC 


09FF < 


- 0AX6 






RRG 


0958 < 


- 090B 






RSDL 


13AF < 


- 139D 






RSRT 


0082 < 


- 00F4 


0602 


06E0 


RSW 


OFOO < 


- 13F3 






RTCL 


0A56 < 


- 09BA 






RWIO 


0C44 < 


- 0C3E 


0C4il 




RWIX 


0C4A < 


- 0C46 






S024 


17D8 < 


- 1536 


1540 


15A1 


SB32 


03AA < 


- 039C 


039C 


03A5 


SBCK 


04EF < 


- 04D7 


04E7 




SBD 


03A1 
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1 
SVMB 


SBDL 


03A8 


- 03AB 




SBDR 


03A6 


- 03A4 




SBF 


08BC 


- ODOE 




SBFD 


02F9 






SBIl 


03B4 


- 03B2 




SBID 


03AD 






SBIS 


03AC 






SBL 


08BE 


- DDOF 




S6Q 


0399 






SBS 


0398 






SCAL 


01C3 






SCAN 


0629 






SCLK 


03E5 






SCLR 


0D46 


- 0D06 




SCNO 


062C 


- 0629 




SCNl 


0631 


- 062B 




SCNA 


17EE 


- 1708 




SCNB 


17DC 


- 1511 


1707 


SCND 


17E5 


- 17E1 


17E1 17F3 17F3 


SCNE 


17EC 


- 17E6 


17Ee 17E8 17E8 


SCNX 


062D 






SCNZ 


01C6 


- 01C4 




SCU 


04DF 


- 0587 




SCUO 


04E7 


- 04EC 




SCUl 


04EA 


- 04E6 




SCU2 


04ED 


- 04E8 


04EB 


SCU3 


04EE 


- 04E8 


04EB 


sew 


04CE 


- 059E 
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SCWO 


04D6 


- 04DA 








SCWl 


04D9 


- 04D5 








SCW2 


04DB 


- 04D7 


04DA 






SCXO 


0632 


- 062D 








SD13 


1491 


- 1466 


149A 






SD23 


16BD 


- 1624 


163F 


165B 


165F 16AE 16B2 


SD24 


1453 


- 1418 


1418 


15BC 


15BD 15DE 16DD 


SDD 


038E 










SDDl 


038F 


- 0397 








SDEl 


072B 


- 0728 








SDEA 


0725 


- 071A 








SDID 


0394 










SDIS 


0393 










SDS 


03 8D 










SED 


1368 










SEDl 


136B 


- 1368 








SED2 


136C 


- 1369 








SETC 


1348 


- 1319 








SETO 


13A6 


- 138A 








SETR 


137E 










SETX 


13A4 


- 1389 








SETZ 


139D 


- 1387 








SFC 


133D 


- 1317 








SFLC 


133F 


- 1318 








SHIO 


OCIA 


- OCOO 


OCOl 


0C06 




SHLT 
SI32 


00D8 
03B8 


- OOCI 
00D3 

- 03B3 


00C2 
00D4 
03B3 


00C3 
00D5 


00C4 00C5 00C6 
00D6 00D7 


SINC 


0D4A 


- ODOD 
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00C7 00C8 00C9 OOCA OOCB OOCC OOCD OOCE OOCF OODO OODl 00D2 
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I 
SYMB 


SIOl 


OCIE 


- 0C3B 








SIOE 


0C2E 


- 0C26 


0C26 


0C2B 


DC2C 


SlOP 


0C23 










SL3D 


1562 


- 153A 








SL3J 


1541 


- 1565 








SL5D 


1510 


- 153B 








SLD 


1500 


- 1405 


1406 






SLDl 


154A 


- 1523 


153A 


157F 


15DF 


SLD2 


155C 


- 1524 


1538 


158C 


1737 


SLD3 


1537 


- 150D 








SLD4 


153E 










SLD5 


153A 


- 1537 








SLD7 


153C 


- 1538 


1539 






SLDN 


1544 


- 150F 


153F 






SLST 


1546 


- 1510 








SMO 


0754 










SMDl 


0755 


- 075A 








SMEM 


OICD 


- 01C5 








SMID 


0757 










SHIP 


075E 










SMIS 


0756 










SMKl 


030F 


- 0315 








SMP 


075B 










SMPl 


075C 


- 0760 








SMS 


0753 










SMSK 


0308 


- 03E5 








SPGS 


1278 


- 1266 


12F8 


131A 




SPLT 


1788 


- 1503 


1519 


1586 


15BF 
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SR3D 


157E 


- 152A 


1715 1721 


SR5D 


1526 


- 1528 




SRD 


1516 


- 1407 




SRDl 


1566 


- 150E 


152A 1563 


SRD2 


1578 


- 150E 


1528 158D 


SRD3 


1527 


- 1522 




SRD4 


152D 


- 1580 




SRD5 


152A 


- 1527 




SRD7 


152C 


- 1528 


1529 


SRDN 


1532 


- 1525 


152E 


SRDX 


16B4 


- 150C 




SRPA 


0014 






SRPU 


0013 


- 0014 


0016 


SRST 


1535 


- 1526 




SSEl 


0716 


- 0714 




SSEA 


0713 


- 07 OC 




SST 


0CD9 






SSTO 


1331 


- 1318 




SSTl 


1330 


- 1316 


133C 


SST8 


0CE2 


- OCDE 




SST9 


0CE3 


- OCEl 




SSTA 


13A0 


- 1388 




SSTL 


0C82 


- 0C7C 




SSTX 


0C7A 






STAX 


03EE 






STBX 


03EA 






STDB 


1398 


- 1385 




STDL 


1398 


- 1386 
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STNU 


00F9 


- 0013 


STNX 


01D6 


- OOFA 


STOl 


004B 


- 0019 


ST02 


0051 


- OODE 


STOA 


17B6 


- 1535 


STOE 


17BC 


- 17B7 


STOG 


17BA 


- 1788 


STOH 


00C5 


- 0053 


STOP 


031B 


- 0327 


STOS 


OICC 


- 01C5 


STOV 


0052 


- 004D 


STPO 


11E3 


- 1158 


STPS 


IIFB 


- 122A 


STRT 


0943 


- 0936 


STSB 


1396 


- 1383 


STSM 


13A8 


- 138B 


STSR 


0029 


- 0059 


STTH 


00C2 


- 0043 


STTV 


0041 


- OlOE 


STUl 


0048 


- 0009 


STUN 


0049 


- OOOF 


SUBM 


15A2 


- 1591 


SUES 


K'E5 


- 12D9 


SUFT 


1205 


- 1275 


SUSB 


OABE 


- OOF 2 


SUSC 


OABD 


- 09DB 


SUSP 


09D8 


- 0962 


SWD 


0385 
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OOID 0F18 

00E2 0111 0112 0167 

1547 159F 15DC 173A 

17B9 



0601 0796 07F5 



OlDl 01F5 03DC 03E0 03E3 0536 1047 104B 



004F 01A3 01A4 1371 1379 137C 1381 13B1 13C4 
1170 123E 



013A 0154 0157 015D 01C9 

OF IB 

0115 0168 0177 OICD 01D3 OlDB OIDD 04F7 05B7 1379 137B 1370 1396 13B1 



096F 0973 0984 0994 09E5 09E8 09EE 0A93 
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SWOl 


0386 < 


- 03 8C 




SWID 


0389 






SWIS 


0388 






SWS 


0384 






SWUB 


04DE < 


- 04D4 


04E5 


SXIT 


OICF 






TABE 


014C < 


- 018E 


018F 


TABP 


0149 < 


- 0137 




TABS 


014D < 


- 014B 




TABT 


0150 < 


- 014D 




TASl 


13E0 < 


- 13DB 


13E2 


TAS2 


13DE < 


- 13E4 




TASL 


13DA 






TASR 


13E2 






TBA 


0605 






TBC 


0633 






TBCl 


0634 < 


- 0638 


063B 


TBFL 


0E75 < 


- 0E6D 




TBX 


061A 






TCI 


06D2 < 


- 06D7 




TC2 


06D8 < 


- 06D4 




TCBC 


063D 






TCCS 


1099 < 


- 1017 


1018 


TCLK 


06CF < 


- 0027 




TCSQ 


OAFB < 


- 0079 




TDSX 


05AD < 


- 05AC 




TE 


1326 < 


■ 1315 




TEST 


13EF 
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I 
SYMB 


TICO 


06DE 










TICl 


06E1 


- 06DD 








TICK 


06DC 










TICR 


06E0 


- 06DB 








TIMl 


0E17 


- 0E12 








TIME 


00E8 


- OOFS 


031F 


0322 


08CF 


TIMR 


OEOO 


- 0D20 








TLKl 


0977 


- 09EA 


09EC 


0A60 


0A7F 


TMRO 


0E20 


- 0D21 








TNSO 


13EE 


- 13E7 








TNSl 


13EC 


- 13EE 








TNSL 


13E5 










TON 


0D40 


- 0D08 








TR 


lOFF 


- lOlE 








TRl 


U13 


- 1123 








TR2 


1114 


- HIE 


1121 






TR3 


lllF 


- lUC 








TR4 


1122 


- HID 








TR5 


1132 


- 1120 


1130 






TR55 


1124 


- 1112 








TR6 


1126 


- 112E 


1131 






TR6E 


0175 


- oiec 








TR7 


1134 


- 1101 


1114 


1122 


1126 


TR8 


1137 


- 1103 


1103 


1106 


1106 


TRAP 


0000 


- 0D04 








TRBC 


0638 










TRCE 


005F 


- 0150 








TRNl 


HOD 


- 1107 
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10/ 


2/86 


9:28 


AM 


TRN2 


1110 


- 


HOC 


























TRP 
TRPl 


003E 
0065 


- 


0000 
ODIC 


OICO 
0F20 


0B32 
0F20 


0B3A 0B3B 0C02 0C03 0C04 
1009 lOOA 1010 1015 1016 


0C05 
140C 


0C07 
140D 


0C08 
1500 


0C17 
1516 


0D16 
1583 


0D17 
1SB8 


0D18 
1600 


0D19 
16C2 


ODIA 
1700 


TRP2 


0066 


- 


0832 


























TRP3 


0067 


- 


0831 


0832 
























TRP4 


0068 


- 


0861 


0678 


0688 


06AB 




















TRP5 


0069 


- 


0853 


























TRP6 
TRPA 


004A 
0068 


_ 


0175 
1354 
1160 


018E 
1368 
11A3 


0193 
1382 
1251 


031D 03E5 053B 0569 057C 
13BB 13F3 
132B 16DC 


0588 


059F 


0700 


070B 


OCOD 


0C6A 


0C7A 


OCCD 


0CD9 


TRPD 


006C 


- 


1499 


16D7 


17D6 






















TRPO 


006A 


- 


16DA 


17D5 
























TRPR 


006E 


- 


1160 


11A3 


1251 


1499 16D7 16DB 17D6 1814 




















TRPS 


006D 


- 


16DC 


























TRPZ 


006F 






























TSBC 


063B 






























TSRT 


OOFS 


- 


09AD 


























UANl 


0839 


- 


0836 


























UANS 


0837 


- 


0824 


























UEXI 


OOCl 


- 


0028 


























UNCL 


0055 


- 


013D 


























UNFL 


13AB 


- 


138C 


1390 


1390 






















UNPi 


02BD 


- 


02C7 


























UNP2 


02BE 


- 


02C4 


























UNPK 


02BC 


- 


02AD 


02CE 


02D6 


04FD 0503 




















USHT 


04C8 


- 


04B0 


04B3 


04BA 


04BD 




















UTRP 


0070 


- 


0065 


0066 


0067 


0068 0069 006A 006B 006C 


006D 


006 E 


006F 


OBAD 


OBDA 










V 


0AB4 


- 


0957 


0A2E 
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I 
SVMB 


VLB 


11A8 


- 1183 


118C 






VLD 


llBl 


- 11A9 








VMLB 


11B8 


- 118A 


1218 


1221 


1224 


VMLD 


HC6 


- 11B9 








VRET 


IIDC 


- IIAB 


11B2 


IIBB 


11C7 


VTRP 


IIDB 


- 11B4 


11B4 


IICB 


IICB 


VZRO 


OBAB 


- 0BF9 








WAIT 


0969 


- 0902 








WBCl 


04CA 


- 04B1 


04B8 






WBC4 


04CC 


- 04B4 


04BE 






WBEN 


OA88 


- 0A85 








WBNE 


0A89 


- 0A87 








WBXl 


OAIE 


- OAIA 


0A24 


0A25 


0A27 


WBXD 


OAIA 


- 0A14 








WCCE 


00D5 


- 02D7 








WCMD 


0C3C 


- OCOC 








WDIE 


07C2 


- 07C2 








WOT 


0A58 


- 0A39 








WDTB 


0A8C 


- 0A58 








WFMS 


0B24 


- 0B25 








WI04 


0C40 


- 0C3F 








WIOC 


0C3F 


- 0C4A 








WMSl 


0F07 


- OFOC 








WMST 


0FO5 


- 00F8 








WRIM 


09FC 


- 090F 








WRIT 


0A7D 


- 0904 


0908 






WRXl 


0A24 


- OAIB 








WRXD 


0A25 


- 0A5C 


0A80 
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WRXE 


0A26 < 


- 0A24 




WUN 


0A8E < 


- 0A8C 




WUNL 


0A8F < 


- 0A59 


0A8D 


X1W2 


1672 < 


- 1638 


169F 


XIWD 


1671 < 


- 1645 


167A 


X2WD 


166D < 


- 164F 




XAX 


13D4 






XBR 


105B < 


■ lOOD 




XBX 


13D8 






XCH 


13D2 






XCHl 


13D3 < 


- 13D7 


13EF 


XCHD 


1362 < 


- 1355 




XDCU 


07FC < 


07F9 




XDIE 


0DE6 < 


- ODCD 


ODDl 


XDMA 


OAOB < 


- 090E 




XEO 


136D 






XFIN 


0DD5 < 


■ OOES 




XGDB 


ODCC < 


- ODIF 




XOR 


03FA 






XORI 


066D 






XTll 


0A46 < 


0A48 




XTIN 


0A40 < 


- 0A3D 




XTIR 


0A47 < 


- 0A43 




XXX 


0E21 < 


■ 0E22 




ZERl 


03F5 < 


• 03F7 




ZERO 


03F4 






ZREG 


1741 < 


■ 17A5 




ZROB 


03F8 
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ZROW 


0836 


ZROX 


03F3 
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OONTRO 


. STORE 














10/ 2/86 


9:28 AM 


ADDRESS 


































0000 


38E5 


7510 


C3E3 


E40C 


38E8 


C904 


0003 


DE46 


38E5 


7194 


DDF 6 


4853 


3 8E5 


7104 


0006 


C802 




0004 


38E5 


7135 


D1F6 


E78C 


38E5 


7510 


CF83 


E5CD 


38E5 


7110 


00F3 


E400 


3 8E5 


7010 


OOF 3 


E51D 




0008 


5D72 


B179 


CCF5 


FFFE 


58EB 


6710 


8483 


B08D 


3CE5 


7000 


CC83 


FOOO 


5D7S 


B179 


C0F5 


FFFE 




OOOC 


38E2 


Alio 


BC73 


B08C 


3D65 


7043 


CC83 


E84C 


3CE5 


7003 


CC85 


D080 


2975 


7511 


0495 


E4gD 




0010 


38E5 


7510 


C213 


E40D 


4D4A 


4D20 


2638 


5820 


3945 


7579 


0215 


3FFF 


3975 


7511 


CF95 


E49D 




0014 


58E9 


2710 


8133 


B08C 


38F8 


7110 


CCF2 


251D 


58E9 


2710 


8133 


8080 


3 8F1S 


7110 


00F2 


251D 




0018 


5D74 


BlEl 


DCF5 


E49D 


24C3 


7047 


CCF3 


F92D 


1CE5 


7000 


CCF3 


FOOO 


50E4 


BllO 


D0F3 


E49D 




OOIC 


24A3 


7111 


CCF5 


E49D 


24C3 


7047 


CCF3 


F92D 


1CE5 


7000 


CCF3 


FOOO 


3940 


A979 


OOFS 


3FFE 




0020 


3 8 AC 


3510 


D213 


E50D 


68E0 


4610 


OOF 3 


A51D 


64A5 


7224 


F493 


D7F7 


3 8A1 


4908 


0073 


E241 




0024 


34B9 


34C4 


D643 


CC92 


64AB 


8445 


D733 


E95E 


64D0 


0A2 8 


1093 


0801 


28E!5 


7104 


OOF 6 


DB3E 




0028 


38D5 


74C5 


DC13 


E56A 


38E5 


702E 


CCF3 


F0A9 


38E5 


7023 


CCF3 


E08D 


5D74 


B12E 


DCFS 


F098 




002C 


2543 


7140 


CCF3 


E49C 


3933 


6112 


4CF3 


ECAC 


3AC5 


711D 


CCF3 


E003 


38E3 


6110 


CCF3 


E40D 




0030 


6173 


7109 


CC35 


COOS 


58E3 


6110 


E0F5 


AC6C 


50E4 


B149 


D0F4 


4002 


3 8 A3 


7190 


8CF5 


E5BD 




0034 


46E5 


7110 


CCB3 


E50C 


74E5 


7104 


CCC3 


C45F 


38E0 


0910 


0AF6 


E40C 


28E0 


F139 


CCFA 


EOOO 




0038 


2970 


FllO 


DCFO 


A40D 


38FF 


F910 


F8F5 


A40D 


2CF2 


EllO 


8CF2 


A40D 


296F 


F910 


FCF4 


A40D 




003C 


2964 


F109 


CCF5 


COOS 


3EB3 


4000 


ACF3 


E50D 


38E5 


7149 


CCF4 


2003 


38EI3 


7110 


CCF3 


E570 




0040 


40E5 


7105 


CCD3 


E4AF 


38E5 


7149 


CCF4 


2202 


62C0 


1A20 


FCF3 


E40C 


38A!5 


7425 


D3F3 


E70A 




0044 


38E5 


7149 


CCF4 


2402 


62C0 


1A20 


FCF3 


E40C 


38A5 


7425 


D3F3 


E73A 


38E5 


7549 


D3F4 


2603 




0048 


3975 


7111 


CCF5 


E49C 


38E5 


7549 


D3F4 


2802 


38E5 


7549 


D3F4 


2A03 


61412 


0B79 


0094 


3FFE 




004C 


60B5 


6310 


80B3 


E68D 


2CD2 


3005 


CCF3 


E54A 


38F0 


0828 


7EF3 


EOOO 


3D0I3 


3305 


48F5 


254B 




0050 


60E2 


ODIO 


00B3 


E40C 


3945 


7179 


CCF5 


3FFE 


68E2 


0B49 


00F4 


3002 


2CAI3 


7005 


C0D3 


E717 




0054 


38E6 


B510 


D9E3 


E5DD 


40Ee 


7159 


CCD4 


0203 


38E5 


7105 


C0F3 


E4CB 


38EI3 


3159 


C0F8 


8000 




005 8 


38E5 


7149 


CCF4 


0203 


2CE5 


7105 


CCD3 


E4A6 


38E5 


7110 


CCF3 


E5CD 


38E1 


8904 


04F6 


DE62 




005C 


38E6 


7559 


D2B4 


0402 


0CE6 


7149 


CCB4 


3E03 


38E5 


75A5 


D323 


E4AF 


00 E 6 


7159 


0084 


0003 




0060 


38E5 


75A5 


D323 


E4AF 


3946 


7111 


CCF5 


270C 


38E5 


7149 


C0F4 


0602 


2CE5 


7105 


C0D3 


E4AF 




0064 


60EE 


FBIO 


FEB3 


E40D 


38ES 


7105 


DCD3 


E5C3 


38E0 


0905 


04D3 


E5C3 


38E0 


0905 


06D3 


E502 




0068 


38E0 


0905 


08D3 


E5C3 


38E0 


0905 


0AD3 


E5C2 


38E0 


0905 


16D3 


E5C3 


38EO 


0905 


18D3 


E5C2 




006C 


38E0 


0905 


1AD3 


E5C3 


38E0 


0905 


1CD3 


E5C3 


38EO 


0905 


1ED3 


E5C2 


3 8EO 


0905 


20D3 


E5C3 




0070 


60E4 


0B49 


OOF 4 


3202 


28E8 


B510 


D293 


E59C 


38E5 


7010 


C0F3 


E7FD 


38A1 


8805 


04F3 


£499 




0074 


38A0 


8910 


04F1 


E67C 


38A0 


1910 


2093 


E67D 


38FO 


F510 


0182 


E5ED 


2CF0 


0B08 


7194 


0181 




0078 


2CD7 


EUO 


CEF3 


E50D 


40EB 


3SA4 


CD17 


6BEF 


60EA 


0149 


C0F2 


COOO 


3 8E5 


7579 


D9E4 


7FF1 




007C 


A4EB 


211E 


CCF3 


FC09 


28BB 


3110 


4CF3 


E403 


BD15 


6313 


05F3 


E500 


38E5 


7109 


OOF 2 


EOOl 




0080 


38EA 


0904 


0063 


EC83 


6072 


OBIO 


00F3 


E678 


50A4 


3020 


00F3 


E40D 


3945 


7510 


C063 


E60D 




0084 


38E1 


8909 


0474 


401F 


BCEA 


BllO 


C8F3 


E40D 


6CA9 


F510 


D953 


E93D 


38715 


7110 


OOF 3 


E67C 




0088 


BCE5 


7110 


C8F3 


E40D 


28FB 


2510 


9923 


E40D 


38E5 


C910 


B893 


E40C 


3 8 AD 


F510 


0183 


A5E7 




008C 


BCE6 


FllD 


CCD7 


6458 


3880 


08CF 


1194 


6850 


2880 


08CD 


1194 


6054 


38EI3 


8509 


0072 


EOOO 




0090 


34E5 


7104 


CA63 


EC83 


44E5 


7225 


81F3 


E612 


38EB 


B510 


0073 


E40D 


3875 


7180 


OOF 3 


E679 




0094 


391B 


3510 


C063 


E500 


BCE5 


7139 


COFl 


FEFE 


38A0 


0808 


1EF3 


EOOl 


8CE!> 


5310 


09F3 


E90D 




0098 


38EO 


0910 


2CF6 


E40D 


38E0 


0910 


26F3 


EA3C 


38E6 


7110 


C0D3 


EA3C 


30E8 


B510 


D9D3 


E40D 




009C 


3CE5 


7110 


CCD3 


E6DC 


38E6 


8549 


C9E4 


1802 


5D74 


B12E 


D0F5 


F098 


2543 


7140 


00F3 


E49C 




OOAO 


3933 


6112 


4CF3 


ECAC 


3AC5 


711D 


CCF3 


EC03 


3973 


6109 


CCF5 


OOOD 


6173 


7109 


0035 


8009 




00A4 


3962 


091D 


0093 


EF29 


68C8 


8312 


48F4 


62DD 


3995 


7510 


D361 


E6DD 


69SA 


FIDO 


0EF3 


E6DC 




00A8 


38E5 


7504 


DAC6 


86CB 


38E7 


F9B5 


FEF6 


A6BB 


1CA8 


B511 


D323 


E50D 


38D5 


751D 


D323 


ED03 




OOAC 


3911 


E94A 


00F3 


COOl 


2CA3 


7000 


CCF3 


E50C 


38EO 


0904 


A093 


AC82 


18EB 


1510 


9CF6 


E43D 




OOBO 


18E6 


FllE 


CCF3 


E408 


2897 


FIAO 


C0F3 


E44C 


2CE5 


6119 


C0F2 


COOO 


18E9 


3510 


DD07 


6gEl 




00B4 


38E5 


7104 


CCF6 


6C82 


3867 


3104 


CCF7 


645B 


5CB4 


7110 


DCF3 


E40D 


1CB3 


7111 


0CF3 


E40D 




00B8 


38D0 


Alio 


DCF3 


E50E 


38E0 


A109 


BCF2 


EOOl 


74F6 


3110 


CCC4 


240C 


38E1 


8910 


0076 


ASFD 




OOBC 


1860 


OBOA 


OE67 


5801 


38F5 


0904 


0095 


6083 


34E7 


7184 


0067 


6083 


5C7'5 


7110 


DCF3 


E670 




OOCO 


38A1 


F104 


0CB5 


C45F 


38ES 


7510 


DD84 


240D 


38E5 


7511 


DD84 


2400 


38E5 


7511 


DD84 


2400 




00C4 


38E5 


7509 


D084 


0006 


38E5 


7509 


DD84 


0009 


38E5 


7509 


DD84 


OOOA 


38E5 


7509 


DD84 


OOOC 




00C8 


38E5 


7509 


DD84 


OOOF 


38E5 


7509 


DD84 


0011 


38E5 


7509 


DD84 


0012 


38E5 


7509 


DD84 


0014 




OOCC 


38E5 


7509 


DD84 


0017 


38E5 


7509 


DD84 


0018 


38E5 


7509 


DD84 


0018 


38E5 


7509 


DD84 


OOID 




OODO 


38E5 


7509 


DD84 


OOIE 


38E5 


7509 


DD84 


0021 


38E5 


7509 


DD84 


0022 


38E'5 


7509 


DD84 


0024 




00D4 


38E5 


7509 


DD84 


0027 


38E5 


7509 


DD84 


002 8 


38E5 


7509 


DD84 


002B 


38E!5 


7509 


DD84 


002D 




00D8 


38E5 


7109 


CCF3 


COCl 


38E5 


7110 


CCF3 


EDOC 


A4E5 


7310 


CCF3 


E40D 


397F 


F912 


FAF4 


79AO 




OODC 


5CA4 


BODE 


DCFl 


F098 


24E3 


7043 


C0F3 


EC9D 


457A 


9601 


E515 


DC8C 


397F 


F912 


F8F4 


79AD 




OOEO 


5CA4 


BODE 


DCFl 


F098 


24E3 


7043 


0CF3 


EC9D 


457A 


9601 


E515 


DC8C 


5D74 


B12E 


DCFS 


F098 
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4 O D R E S S 

OOEl 24E3 7140 CCF3 E49D 3SE8 3110 CCF3 E4AC 00E5 7054 DC03 D303 38E5 7105 CCF3 E55C 

U0E3 28E5 7109 CC93 8061 38E5 7109 CCF3 8143 3885 7110 CCF2 E40D 3885 711D CCF2 ECOE 

OOEC: 38E5 7110 CCF2 3C0D 3915 7110 CCF3 A40C 38E5 7110 CCF3 E40C 2085 711C CC82 3C41 

UOfO: 38E8 3179 CCF3 COOO 39C6 B0C8 CCF3 FEOO 3865 7434 CD42 EAFB 28E5 7509 CE84 4144 

00F4: 34E5 7510 C823 E40D 2818 BllO CCF3 E79C 3808 7110 CCF3 E78D 38E8 7110 CCF3 E7DC 

OOFS: 38E5 7104 CCFl 7C17 e4E4 OBIO 00F3 E40C 38A5 7024 CCF3 C75A 3965 7510 C575 E4AC 

nOFC: 38E5 7110 CCF3 E40C 
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CONTROL 


STORE 














10/ 2/86 


9:28 AM 


ADDRESS 


































0100 


70E6 


7110 


CC93 


F68D 


293B 


3512 


D134 


7S2C 


5CF4 


BllO 


DCFl 


E407 


34F7 


Alio 


ECF2 


E404 




0104 


38D5 


7112 


CCF3 


F68C 


5175 


712E 


CCD5 


F099 


24B3 


7140 


CCF3 


E490 


38B3 


6109 


4CF1 


4008 




0108 


4EC5 


7110 


ACF3 


E40C 


2C83 


6310 


84F4 


240D 


6053 


7047 


CC33 


F846 


5903 


5118 


6CF1 


BFFF 




OlOC 


4C54 


2110 


CC95 


E4AC 


40DE 


3062 


C4F3 


FCOC 


70EB 


2505 


8443 


E504 


4459 


9795 


8575 


A45E 




0110 


38D5 


7510 


C075 


240C 


34E8 


B510 


C513 


E4AD 


3885 


7510 


C510 


2480 


517C 


B120 


CCDl 


E4B0 




0114 


5CE4 


B509 


F053 


800E 


5979 


1710 


8493 


E4AD 


SCEO 


B513 


D07S 


ECOO 


38E0 


5910 


2446 


E5AC 




0118 


7105 


5110 


ECDl 


E405 


10E2 


F113 


DCF3 


D2BC 


6105 


7045 


C463 


E4AE 


384B 


1110 


CC43 


E6BC 




one 


3CFB 


5710 


D2A7 


240D 


18F5 


50C0 


9C90 


E40D 


2DC3 


3025 


CCF3 


E510 


3476 


00C5 


CCF3 


E49B 




0120 


3CA5 


7110 


C4F3 


E6CC 


OCAS 


7067 


8CF3 


DDll 


38F5 


7110 


CCF3 


EACC 


38E5 


7110 


CCF3 


E59D 




0124 


38F5 


7110 


CCFl 


E405 


2CFB 


3445 


C444 


24AF 


3C79 


9710 


C443 


DCOD 


38BE 


3110 


CCF3 


CECO 




0128 


1CE5 


7110 


CC43 


E40D 


38F5 


7500 


D2B1 


E40D 


38E2 


F105 


DCF3 


E4B2 


3872 


FllO 


CCFl 


240D 




012C 


IDOB 


3548 


C443 


COOO 


2CB5 


7110 


C228 


6403 


6105 


7138 


C893 


FEOl 


3CB2 


F020 


CC04 


6507 




0130 


3475 


5311 


0433 


DDCO 


2C70 


FOCO 


8C93 


DCOl 


2CE2 


F105 


8CF3 


E51F 


3CE9 


9749 


0472 


C009 




0134 


3CF5 


7308 


F4F6 


OlFE 


28D7 


Alll 


80F3 


E6BD 


38A5 


60CD 


B263 


FC04 


2CF8 


B510 


0493 


2A80 




0138 


3D14 


0CF2 


00F3 


EE8C 


28F3 


7110 


CCF3 


E586 


44F9 


2718 


E414 


7FFF 


44FB 


3110 


CCF3 


E40C 




013C 


2C6A 


B1D2 


C0F2 


F40C 


611A 


B50E 


C553 


D807 


BCEO 


OBOO 


0695 


3F0C 


0011 


FllO 


CCB5 


3F0D 




0140 


3618 


BllO 


CCFB 


240D 


38E5 


7510 


C074 


FC3D 


38E5 


7159 


CCF3 


CD21 


38B5 


7110 


CCF3 


ESOD 




0144 


BCEO 


0B09 


09F3 


8165 


3B0S 


7110 


CCF2 


240C 


38E5 


7010 


CCF6 


640C 


38EO 


F1A5 


8CF3 


E522 




0148 


38F5 


7425 


C443 


E719 


28A3 


70F0 


CCFl 


240D 


40E5 


7110 


CC03 


E58D 


OEll 


F105 


CC3B 


2537 




014C 


70E5 


7110 


CCD3 


E5BD 


08EB 


3510 


D503 


E40C 


6832 


0AC8 


00F3 


CIFD 


28E8 


BSOS 


CC33 


E711 




0150 


3845 


7445 


C5F3 


E575 


60E5 


7110 


CA73 


F68D 


70E2 


2175 


ECF3 


E460 


70F5 


7110 


FCg3 


E4F4 




0154 


23EB 


6510 


E416 


E40D 


60F5 


7110 


C4D2 


E407 


72CB 


6710 


F593 


E540 


70E9 


F510 


C413 


E40C 




0158 


33D8 


7113 


CCFl 


DF6E 


3CE5 


7109 


C473 


C522 


2CB2 


FllO 


DCF3 


E6BD 


3C75 


70C5 


CC73 


E410 




015C 


3CF5 


7110 


CCD7 


240C 


3875 


704S 


80F3 


E504 


28D3 


3111 


9CF3 


FCOD 


2CE5 


7110 


8CF3 


E400 




0160 


3DC3 


2020 


8CF3 


E40D 


38EB 


3505 


8443 


E58B 


3CE5 


7010 


CC73 


E40D 


5962 


B179 


CC04 


3FF8 




0164 


70E5 


6113 


EC72 


EAAD 


3D6F 


BllO 


AC65 


E4AD 


54EB 


6713 


B763 


FE2C 


6075 


7007 


CC93 


F945 




0168 


1CF9 


971D 


8492 


E800 


3CE5 


7159 


CC24 


7FFE 


40F2 


B040 


DCFO 


E40C 


44E5 


42A0 


8813 


FCOl 




oiac 


3CE5 


70F5 


CCC3 


E5D7 


4EC5 


40A0 


4C93 


0800 


3535 


4107 


E4F3 


F5E2 


04EB 


6605 


E573 


E9E3 




0170 


3872 


0910 


OOFS 


E40D 


0CD8 


A310 


88F5 


260D 


3464 


3110 


CCF5 


A40C 


6835 


70A0 


CCF3 


E401 




0174 


OCAC 


3035 


CCB3 


E810 


38E5 


7410 


C4A3 


E40D 


4955 


7002 


CCF3 


F80C 


3958 


3007 


CCF3 


E92S 




0178 


B0E5 


4310 


8826 


E5AD 


3830 


5910 


24F1 


6404 


38E2 


Fill 


CCF3 


EABD 


08E8 


B513 


0851 


22BC 




017C 


38F2 


F063 


DCF3 


D40C 


3CE5 


7105 


CCD3 


E617 


10F2 


FllO 


DCF7 


2400 


14B5 


5110 


4CFe 


E40D 




0180 


3DC3 


22C0 


94F3 


E40D 


28A0 


F025 


4CF3 


E511 


3CE5 


7110 


C4F6 


E40C 


28F9 


9625 


4441 


6511 




0184 


38E5 


7105 


CCF3 


E61B 


3CE5 


71A5 


CCD3 


E61B 


3852 


Fill 


8CF3 


0401 


2C50 


EOCO 


8C93 


0400 




0188 


2CE2 


F105 


8CF3 


E51F 


3CF9 


9708 


5476 


OlFF 


3CD1 


FBI! 


FEF3 


E6BD 


3CA7 


FllO 


C0F3 


E800 




018C 


3CE4 


GDI 3 


OOFl 


6C0C 


28F3 


71B0 


CC43 


2C0C 


30F9 


34F5 


04C3 


E529 


2C15 


4045 


4C93 


E532 




0190 


38F5 


7110 


CCF4 


E40C 


0425 


5305 


5EFB 


25C3 


716B 


3110 


CCF3 


E62C 


68E5 


74F5 


0BF6 


E528 




0194 


58AF 


F828 


F673 


C201 


3CE5 


7105 


CC33 


E65E 


28A8 


B445 


0B03 


E6CA 


38EF 


E913 


00F2 


DEBO 




0198 


1CA2 


FllO 


DCF3 


E50D 


1CE2 


F113 


CCFl 


FEBD 


3CF6 


7179 


CC63 


FFFC 


38B2 


0110 


FCF5 


A80C 




019C 


3CF5 


7110 


CCF4 


980C 


3CA5 


5110 


8CD6 


A40C 


58A2 


BllO 


CC72 


A400 


356E 


2111 


EC63 


E6AC 




OlAO 


3CB5 


5111 


EC63 


E6AD 


58FF 


F910 


F876 


6 4 AC 


2962 


BllO 


DC9S 


E400 


1CF9 


3710 


A525 


640C 




01A4 


18D9 


3711 


A523 


E62C 


3CB5 


7111 


CCC3 


E6AD 


3CE5 


7159 


CC23 


FFFE 


3035 


6312 


C812 


F40C 




01A8 


4CF5 


6110 


8C90 


E40D 


61A5 


6110 


E443 


E40D 


3997 


F82D 


FEF3 


ECOl 


3 8A2 


0901 


00F3 


E500 




OIAC 


38B5 


711D 


CCF3 


E903 


1028 


B528 


D780 


8001 


3AC5 


70C7 


CCF3 


EDE3 


3815 


751E 


0703 


FC06 




OIBO 


0CE6 


0110 


C293 


F80C 


2065 


7105 


CCD3 


E67F 


38E0 


0909 


OAF 3 


CEOO 


2882 


FllO 


CCF3 


E50C 




01B4 


38E6 


7109 


CCF4 


0024 


3CE2 


FllO 


CC93 


F80C 


2005 


7112 


CCD3 


EABC 


3D6A 


B510 


0B03 


E40C 




01B8 


34F8 


A625 


F803 


E6EB 


38E5 


7105 


CCF3 


E65F 


3402 


BllO 


DC95 


A73D 


2CE0 


0910 


0473 


E6DC 




OIBC 


3CD5 


7111 


CCF3 


E6AD 


58A5 


7110 


CC66 


640C 


58EF 


F905 


F8F3 


E68A 


70EF 


FBIO 


F8F3 


E40C 




OICO 


70A8 


F4C5 


C073 


E4F8 


38ED 


F510 


C183 


E40D 


38E3 


F509 


C071 


C008 


713B 


3112 


CCF4 


752C 




01C4 


38A5 


7522 


DC63 


F68D 


SCEO 


B505 


DCD3 


A733 


388D 


F51D 


C183 


F688 


38C5 


7118 


CCF2 


FFFE 




01C8 


50F5 


7110 


CCD3 


E407 


70EB 


6710 


E413 


FOOD 


4539 


A710 


CS73 


FFOD 


4CB3 


F105 


AC75 


241C 




OICC 


38EC 


3000 


CCF3 


E4BC 


3965 


7047 


CCF3 


E925 


38E8 


3113 


CCF5 


EOOO 


5074 


B12E 


DCF5 


F098 




OlDO 


24E3 


7140 


CCF3 


F89C 


5D79 


2710 


E513 


E4AC 


7135 


6112 


FC93 


F40D 


5809 


271E 


A493 


EC06 




01D4 


3935 


7110 


CCF5 


030C 


38D5 


7510 


C065 


E40D 


38E0 


A910 


0093 


E40C 


5074 


B12E 


0CF5 


F098 




01D8 


24E3 


7140 


CCF3 


E49D 


38D5 


7110 


CCF3 


E50D 


38E5 


7100 


CCF3 


E4A0 


3945 


7106 


CCF5 


2525 




OlDC 


60E2 


OBIO 


00F3 


E40D 


38AS 


7425 


C493 


E76F 


0401 


0001 


0000 


4400 


0314 


0200 


0000 


0500 




OlEO 


0000 


0000 


0401 


0001 


0000 


4400 


0341 


0200 


0000 


0500 


0000 


0000 


0300 


0100 


0440 


8000 
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CONTRO 


. STORE 














10/ 


ADDRE 
01E4 


;s 

0E40 


0000 


0002 


0000 


FFF2 


0407 


0001 


0000 


4400 


0342 


0302 


0002 


0000 


0400 


0343 


0200 


01E8 


0000 


osoo 


0000 


0000 


OlSO 


0000 


0008 


0013 


70E5 


6319 


A073 


E401 


28FD 


F427 


0183 


EFOF 


OlEC 


4CE3 


E105 


AC73 


E41D 


70E2 


2319 


A073 


E401 


38FD 


F427 


0183 


EFC7 


1D35 


eilE 


OOF 3 


DC04 


OlFO 


3C75 


651E 


9EC3 


F405 


1D35 


euE 


OOF 3 


D004 


3075 


611E 


8073 


F405 


50E5 


7109 


OOF 2 


OAOl 


01F4 


38AO 


0912 


08F3 


F80C 


38BD 


F467 


0183 


E945 


40E3 


DUO 


EC73 


E40C 


38E5 


7110 


CC93 


FOOD 


01F8 


38E5 


7110 


CCF3 


E40C 


3946 


3511 


D015 


2700 


3985 


7062 


CCF3 


040D 


38E5 


7110 


OOF 6 


2400 


OlFC 


38E5 


7110 


CCF3 


E40C 


3855 


7110 


CCF3 


E700 


38E5 


7110 


C0F3 


E400 


38F5 


7000 


OOFl 


640D 


0200 


38E0 


1909 


2099 


AOOl 


1070 


OBIO 


F0F4 


5D80 


28E5 


7159 


C2F9 


EOOO 


38AO 


0910 


0499 


24A3 


0204 


38D5 


7510 


D0A3 


E50D 


3A44 


FllO 


0064 


2403 


38EA 


3510 


D077 


6400 


8063 


70C6 


OOFl 


A41A 


0208 


39B5 


7022 


CCF7 


040D 


39B6 


3506 


D436 


E417 


38EF 


0909 


0816 


8240 


38A0 


8910 


0063 


A650 


020C 


38DO 


5910 


70F3 


E72C 


38A6 


1910 


F133 


E670 


38EB 


BllO 


0CF3 


DA7D 


38E5 


7510 


D0E3 


DA71 


0210 


38F0 


1910 


2013 


E66D 


2CF5 


711F 


0CF3 


0400 


2865 


7080 


C0F3 


E450 


38E5 


6000 


BC13 


050D 


0214 


38EO 


6910 


98F7 


25DC 


2905 


3110 


0CF3 


E40C 


20E3 


7109 


CCF3 


0602 


2075 


3110 


CCFC 


240D 


0218 


1CE3 


7109 


CCF9 


AOOl 


38A3 


6110 


4CF4 


6801 


4993 


7110 


OOF 3 


E40D 


2CE3 


7111 


OOF 6 


6400 


02 IC 


5473 


7108 


CCF3 


COFO 


58B3 


7110 


00F4 


2402 


5DA3 


7110 


0CF3 


E40D 


2CE3 


7110 


CCF3 


F80D 


0220 


2CE3 


7110 


CCF7 


6400 


6183 


7110 


CCF3 


E40C 


2D03 


7110 


00F9 


2403 


4CB3 


7110 


OOF 4 


2402 


0224 


50E3 


7110 


CC53 


F40C 


2CE3 


7110 


C0F3 


E40C 


74E3 


7159 


00F9 


EOOl 


38E5 


7105 


0093 


E42A 


0228 


28E3 


7139 


DCIA 


2EEE 


64E3 


7109 


CCF3 


804E 


68E3 


7109 


C0F3 


0023 


38E4 


EllO 


OOFl 


A40D 


022C 


38EO 


3109 


CC83 


8074 


38E5 


7110 


CCF3 


E400 


3880 


3400 


D303 


E40D 


38E5 


7110 


OOF 3 


E40C 


0230 


3 8CO 


5910 


FEF3 


E40C 


38B2 


EllO 


8CF3 


E400 


38B0 


4910 


20F3 


E40C 


3CB4 


EllO 


8CF3 


E400 


0234 


2CE3 


7109 


CCF3 


C69B 


20E4 


F104 


CCF3 


C7EA 


2D13 


7100 


CCF3 


E61C 


38E0 


0910 


1093 


E6ED 


0238 


3865 


702B 


CCF3 


0007 


3063 


7106 


CCFl 


A4DF 


38D5 


7110 


C0F3 


E63D 


38B0 


0911 


3493 


E63D 


023C 


3CE3 


7110 


CCF3 


E40D 


3CD3 


7100 


CCF3 


E63D 


38E2 


2910 


2213 


E6ED 


3865 


7020 


DCF3 


E40D 


0240 


3CA3 


7107 


CCFl 


98FA 


3A85 


711E 


OOF 3 


E409 


041B 


2110 


D0F3 


EDOC 


38E0 


0910 


10F6 


E40D 


0244 


2914 


FllO 


CCF5 


E51C 


3873 


7110 


DOFl 


A40D 


38A3 


7104 


OOFe 


4C0A 


1E70 


0AO4 


FE72 


EC83 


0248 


3A66 


30C5 


CC92 


E42B 


38E0 


0929 


OEDO 


6801 


44B0 


0804 


0491 


AC82 


1070 


0AC4 


0F17 


4A62 


024C 


38EO 


0929 


0053 


C07D 


2E65 


7004 


0062 


EC83 


38E5 


7129 


OCFl 


80BE 


84E5 


6104 


DD12 


AC82 


0250 


84E5 


7104 


CC66 


AC83 


38E8 


0904 


0463 


AC82 


38E0 


4909 


00F2 


E600 


38A0 


0904 


0469 


E083 


0254 


3855 


70C6 


CCFl 


6553 


3A75 


70C4 


CCF2 


EC82 


18ES 


B513 


D58A 


244C 


38EB 


3485 


D543 


E58A 


0258 


38E6 


7024 


CC62 


EC82 


3860 


1910 


CAFA 


2405 


38A5 


7110 


CCF3 


A40C 


38E6 


7024 


CC62 


EC82 


P25C 


38E5 


7111 


CCF2 


240C 


38E5 


7129 


OOFl 


80BO 


3A85 


70C4 


CCF2 


EC83 


38E5 


7129 


OCFl 


807E 


C260 


3A65 


70C4 


CCF2 


EC83 


44E0 


0904 


0496 


CA63 


38E0 


6909 


8317 


0671 


3A85 


7404 


DAB3 


D3E7 


0264 


BDFA 


F510 


D673 


E73C 


84E4 


F109 


0CF3 


DC80 


38B3 


7110 


D0F3 


EeOD 


3900 


0910 


06DD 


2400 


0268 


3910 


6910 


26FF 


E71D 


3 SAO 


6910 


2F73 


E6DD 


44A4 


7110 


80F3 


E6DC 


3906 


0908 


00F3 


805E 


026C 


28E3 


6149 


80F2 


EOOl 


3885 


7104 


CCFl 


AC83 


39D5 


712A 


DCC2 


EOOO 


2CE0 


0B04 


0E64 


AC83 


0270 


38E1 


8979 


00F4 


E6F3 


38E5 


7110 


OOF 3 


EA7C 


3B4A 


3510 


D731 


E40D 


392B 


B4C1 


D754 


A40C 


0274 


3935 


7426 


D724 


E71D 


38E0 


4910 


0063 


A430 


38A0 


1911 


20F3 


E670 


38A5 


7110 


00F3 


E50C 


0278 


38F6 


3028 


CCF3 


0081 


38E8 


E504 


5857 


6B1F 


3861 


FllO 


CCD3 


E670 


1070 


OBOA 


0E62 


F801 


027C 


9CE2 


F104 


CCF7 


6082 


0665 


70C4 


CC62 


EC83 


30E8 


8759 


AC94 


0802 


3B06 


3510 


0361 


E400 


0280 


38E1 


F179 


DCS 3 


FFEE 


58E4 


E129 


CCFB 


0000 


38E3 


7110 


DCF6 


A400 


5D74 


Bill 


DCF5 


E40D 


0284 


1CE3 


7104 


CCF6 


445F 


BCE8 


F509 


D871 


8100 


38EO 


6905 


B007 


6622 


38E1 


0910 


80D7 


640D 


0288 


28E2 


F159 


CCF2 


CE5C 


3BF5 


7110 


CCF4 


640D 


38EO 


F0C3 


9CD1 


9800 


30E5 


7105 


0093 


E637 


028C 


38F5 


7510 


D8A2 


FOOD 


1CD3 


802D 


0093 


FCOO 


ICEO 


0B05 


0E63 


E720 


BCE8 


F109 


02F1 


C6B6 


0290 


38D1 


C8C4 


8272 


EC83 


0665 


7004 


0062 


EC83 


4510 


0910 


06F3 


E71D 


2874 


7110 


CCF3 


E6DC 


0294 


38E5 


7169 


CCC3 


COOl 


2F43 


712A 


CCF2 


EOOO 


2CE0 


0B04 


0E63 


E083 


38E5 


7105 


CCF4 


A5C3 


0298 


39D0 


191A 


0062 


EOOO 


38E5 


7104 


CCF3 


EC83 


38E0 


2913 


009A 


65B9 


38A0 


0804 


10D2 


EC82 


029C 


18E8 


B309 


88F1 


ECOO 


38D5 


7510 


CCDB 


6C0D 


3870 


0804 


1062 


E082 


38E5 


7149 


00F3 


0101 


02A0 


2ED5 


70C4 


CC62 


EC82 


3870 


0804 


6062 


EC83 


3A92 


4806 


OOFA 


668B 


38A0 


0904 


406A 


6C82 


02A4 


3A95 


70C4 


FC62 


E083 


38DO 


0804 


2072 


EC83 


3862 


E8CD 


00F3 


DC04 


38E5 


7105 


CC63 


E749 


02A8 


3A64 


0910 


14F2 


E40C 


3A85 


6024 


8063 


EC82 


38E5 


7585 


D623 


E533 


38E0 


5979 


5ED0 


FFE7 


02AC 


38E0 


6910 


26F7 


240C 


38E5 


7510 


DBC3 


EB4C 


38E5 


7510 


0646 


E40D 


0200 


0000 


0408 


0002 


02B0 


0000 


0000 


033E 


0200 


0000 


0408 


0002 


0000 


0000 


0343 


0308 


0004 


0000 


0000 


0344 


0200 


02B4 


0000 


0408 


0006 


0000 


0000 


033F 


0200 


0000 


0408 


0002 


0000 


0000 


0342 


0300 


0100 


0000 


02B8 


0000 


0358 


0200 


0000 


0180 


0000 


FFFF 


0F05 


0200 


0000 


0003 


0500 


0300 


0000 


0000 


0000 


02BC 


38E5 


7110 


CCF3 


E65D 


38E0 


0909 


0863 


0071 


38E4 


F109 


8CF3 


804F 


38EO 


3110 


CC83 


B40C 


02C0 


38E5 


5111 


BC63 


340C 


388C 


3400 


DC23 


E40C 


3 8CA 


31B0 


CCF3 


E40C 


3905 


7100 


CCF4 


2C0D 


02C4 


38E8 


9510 


9BE3 


E2DC 


38E5 


7109 


9CD3 


D601 


2CE8 


Alio 


ACF3 


E40C 


3831 


68C6 


40DO 


E6F7 
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CONTROL 


STORE 














10 


ADDRESS 
































02C8 


38E8 


BIBO 


CCF3 


E66C 


39D8 


3179 


OOFl 


BD81 


84E5 


7110 


0CF3 


E400 


3A80 


382B 


B0D3 


0002 


02CC 


38EF 


F904 


E833 


C31E 


38EO 


6910 


26F7 


2400 


38E5 


7510 


DB03 


EB40 


38E0 


0910 


E0F3 


E400 


0200 


38A5 


7110 


CCF3 


E50C 


38E0 


1910 


E0F3 


E63D 


38A5 


7110 


0CF3 


E500 


38E5 


7510 


0676 


E400 


02D4 


38E6 


B159 


CCD4 


0E5C 


38E5 


7110 


CCF6 


265D 


39BO 


350B 


DBOO 


0040 


40E8 


9759 


AD54 


0E50 


02D8 


38E5 


7109 


CC24 


0601 


41E5 


7110 


0001 


A40D 


4024 


7110 


0CF3 


C800 


2D03 


6110 


00F3 


E70D 


02DC 


38E5 


7110 


CCF3 


E40C 


08F5 


7110 


D023 


E40D 


78E5 


6109 


4CF3 


EOOl 


7C25 


6007 


8003 


E36A 


02E0 


18E8 


AT 10 


AD63 


E40C 


38E0 


0909 


1092 


EOOO 


38E0 


0909 


4053 


81A0 


3f)E5 


7110 


00F7 


6560 


02E4 


3815 


70A5 


FC80 


479E 


34E5 


7129 


0081 


A801 


34E5 


7104 


0093 


E082 


3490 


0911 


1093 


A570 


02E8 


38D5 


70C7 


CCF3 


D78F 


38EA 


3800 


00D3 


E66C 


38E5 


7000 


00F3 


E400 


0600 


0000 


0200 


0000 


0?EC 


0503 


0000 


0000 


0030 


FFF6 


0030 


0405 


0009 


0009 


8000 


033F 


0200 


0000 


0502 


0000 


0000 


02F0 


0030 


FFEA 


0405 


OOOD 


OOOD 


0000 


0343 


0200 


0000 


030E 


0100 


0000 


0000 


0358 


0200 


0000 


02F4 


0503 


0000 


0000 


0010 


0010 


0010 


0180 


0000 


3E00 


0000 


0000 


0008 


7411 


0000 


0000 


0003 


02F8 


1800 


0001 


0000 


OOOD 


0405 


0001 


0000 


0000 


034A 


0200 


0000 


030E 


0014 


0000 


0400 


0367 


02FC 


0180 


0003 


0000 


0000 


BOEA 


F509 


D677 


0669 


84E4 


F109 


00F7 


DC81 


9DF3 


7110 


00F3 


E73D 


0300 


39F5 


7110 


CCF3 


E6D0 


38E5 


7104 


00F3 


099F 


18E0 


3B10 


OOFA 


2400 


28E5 


6109 


88F3 


OlAl 


0304 


38B5 


7110 


CCF3 


A960 


38E5 


7110 


00F3 


E570 


20E5 


7100 


00F3 


E40D 


2f)A8 


3045 


0093 


E585 


0308 


38E1 


8909 


04F4 


OlAO 


38AO 


083F 


0708 


6676 


38FO 


1880 


20F3 


E450 


3&AB 


B550 


01F2 


E40F 


030C 


80E5 


7105 


DCD3 


E42C 


80EB 


3709 


2084 


4034 


3900 


F510 


0183 


A400 


38E5 


7110 


BOD 7 


6560 


0310 


2A19 


3510 


C921 


E579 


20E7 


FllO 


OD93 


E440 


3911 


3111 


C0F4 


6400 


4404 


FllO 


00F3 


00B6 


0314 


2CB3 


71B4 


CCFl 


A082 


38E6 


3510 


D0F3 


E40D 


38EO 


0909 


3292 


0008 


20BA 


B710 


2DF3 


A400 


0318 


34E0 


F025 


DC93 


FCIC 


38E5 


7113 


0CF2 


FCFD 


38F5 


7510 


0182 


244D 


38E5 


7509 


DlEl 


0001 


031C 


38E1 


C900 


0073 


E40D 


60EA 


B539 


04A1 


0001 


38E0 


F510 


OE33 


E40D 


38E5 


7509 


0E84 


4149 


0320 


3875 


711E 


CCF3 


E509 


38EA 


3110 


00F3 


E40D 


38E5 


7509 


OE84 


4146 


38B5 


7510 


0213 


E500 


0324 


60D2 


0E108 


00D3 


0201 


34B0 


0A04 


40F3 


DF12 


38A1 


0804 


00F3 


D80E 


38A5 


7510 


01B3 


E500 


0328 


28E5 


7110 


0CF3 


E40D 


7172 


6375 


A072 


F36F 


50A3 


E07E 


BCF3 


A004 


3D21 


301E 


0073 


0005 


032C 


2121 


301E 


CC73 


DC04 


5CE5 


7110 


0CF3 


E40D 


7172 


6375 


A072 


F36F 


5CA5 


611E 


B0F3 


AD24 


0330 


5525 


611E 


0CF3 


DD15 


20E2 


6105 


8073 


FCAB 


70E2 


2375 


A073 


E461 


4C:A3 


E31E 


9CF3 


F405 


0334 


3CE1 


3CI10 


CC73 


E40D 


70E2 


2375 


A073 


E461 


2935 


611E 


0CF3 


E804 


3C72 


251E 


9333 


F404 


0338 


28E5 


7110 


0CF3 


E40D 


7172 


6310 


A072 


FOOC 


50A0 


271E 


93B3 


AD25 


2121 


311E 


0003 


DC04 


033C 


38E5 


7010 


CCF3 


E40D 


5CE5 


7110 


00F3 


E40D 


7172 


6310 


A072 


FOOO 


5CA5 


611E 


BCF3 


AD24 


0340 


5525 


611E 


0CF3 


DD15 


20E2 


6105 


8073 


FOEA 


70E2 


2310 


A073 


E40D 


40 A 5 


631E 


9CF3 


F404 


0344 


3CE1 


3105 


CCC3 


E41D 


70E2 


2310 


A073 


E40D 


2935 


611E 


0CF3 


E804 


3072 


251E 


9433 


F405 


0348 


28ES 


7110 


0CF3 


E40D 


7172 


6365 


A072 


F37A 


38A0 


6110 


9CD1 


A4F0 


3D71 


3063 


CC73 


E8FD 


034C 


48F5 


7210 


98F1 


A78C 


5C65 


SHE 


B0F3 


B025 


5005 


711E 


6CF3 


B020 


20E1 


3110 


0073 


E400 


0350 


3888 


7110 


CCFl 


A78C 


50E5 


7110 


OOF 3 


E40D 


7172 


6365 


A072 


F37A 


5CA5 


611E 


B0F3 


A024 


0354 


5525 


611E 


0CF3 


DD15 


20E2 


6105 


8073 


FD2B 


70E2 


2365 


A073 


E460 


4CE3 


E311 


9CF1 


EA80 


0358 


3CB1 


auE 


CC73 


F4F5 


4CF5 


5210 


08F1 


A7 80 


28E5 


7110 


0CF3 


E40D 


7170 


A375 


A072 


F38A 


035C 


5CA5 


6CI62 


BCF3 


AD2D 


48EB 


5705 


F683 


E5A3 


3888 


EllO 


0CF3 


E4F7 


38B8 


7110 


OOFl 


E7AC 


0360 


3888 


7110 


CCFl 


E7A5 


7170 


6375 


A072 


F38A 


5525 


7002 


CC03 


E92C 


5C7F 


9662 


0653 


BD2D 


0364 


4955 


7077 


ACF3 


F9A2 


3888 


EllO 


0CF3 


E4F7 


38B8 


7110 


CCFl 


E7AC 


3888 


7110 


OOFl 


E7A5 


0368 


3875 


7149 


CCF3 


COOD 


2020 


707E 


0073 


E004 


5CA5 


600E 


BCF3 


BD2S 


5CE5 


7110 


00F3 


E40D 


036C 


7172 


6375 


A072 


F3eF 


5CA5 


611E 


BCF3 


AD24 


555F 


F0D2 


0CF3 


F91C 


2128 


6112 


02F3 


Eg3D 


0370 


2157 


E310 


36F1 


AA9D 


50BE 


6662 


0733 


BD20 


48EB 


5705 


B763 


E50A 


4818E 


9310 


OOF 3 


E4F7 


0374 


3888 


7110 


CCFl 


E7AC 


3888 


7110 


CCFl 


E7A5 


3865 


7149 


0CF3 


0001 


2D20 


707E 


C063 


EC05 


0378 


5CA5 


600E 


BCF3 


BD25 


28E5 


7110 


00F3 


E400 


70E5 


6375 


A073 


E461 


3958 


B512 


C571 


E8FD 


0370 


38E5 


7010 


CCF3 


E40D 


70E5 


6175 


0073 


E460 


38E3 


F105 


CCF3 


E41D 


5CE5 


7110 


OOF 3 


E40D 


0380 


7172 


6375 


A072 


F36F 


5CA3 


E07E 


BCF3 


AC04 


3025 


601E 


0C73 


DC04 


2125 


601E 


00 7 3 


DC05 


0384 


28E5 


7110 


0CF3 


E40D 


7174 


6310 


A072 


FOOC 


5CA3 


AllE 


BCF3 


AD24 


0123 


701E 


0083 


0005 


0388 


5CE5 


7110 


0CF3 


E40D 


7172 


6310 


A072 


FOOC 


50A5 


611E 


BCF3 


AD24 


5525 


611E 


OOF 3 


0015 


03 8C 


20E4 


6105 


8C73 


FEIB 


28E5 


7110 


0CF3 


E40D 


7174 


6310 


A072 


FOOO 


5CA3 


AllE 


BCF3 


A024 


0390 


0523 


711E 


CC83 


0005 


5073 


911E 


ECF3 


BD21 


00E3 


7010 


0083 


E40D 


5CE5 


7110 


OOF 3 


E40D 


0394 


7172 


6310 


A072 


FOOC 


50A5 


6HE 


BCF3 


AD24 


5525 


611E 


OOF 3 


0015 


20E4 


6105 


8073 


FE3F 


0398 


28E5 


7110 


0CF3 


E40D 


7170 


6310 


A072 


FOOD 


38A7 


E349 


36F4 


0000 


5C73 


9112 


F0F3 


BD2C 


039C 


487B 


56D7 


FAA3 


FEAA 


008E 


FIBO 


04F3 


E409 


2003 


6210 


8483 


E400 


0085 


7110 


OAF 3 


E404 


03A0 


2CE3 


6210 


8483 


E400 


7170 


6310 


A072 


FOOD 


38A7 


E349 


36F4 


0000 


5523 


B0D2 


00D3 


0D2D 


03A4 


5C7F 


9662 


DA63 


RD2D 


4955 


7077 


A0F3 


FAAB 


008E 


FIBO 


C4F3 


E409 


2D03 


6210 


8483 


E40C 


03A8 


0085 


7110 


CAF3 


E404 


2CE3 


6210 


8483 


E400 


4120 


707E 


CCF3 


EC05 


5CAE 


E60E 


9A83 


B025 
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03AC 


5CE5 


7110 


0CF3 


E40D 


7172 


6310 


A0D2 


FOOC 


5CA5 


611E 


BCF3 


AD24 


555F 


F0D2 


CCF3 


F91C 


03B0 


2126 


6112 


02F3 


E93D 


2157 


E310 


36F1 


EA9C 


5CBE 


6662 


DB43 


BD2C 


48EB 


5705 


FB83 


E6E3 


03B4 


008E 


BIAO 


CAF3 


E4C4 


48B8 


731D 


9CF2 


2AD2 


0085 


7110 


C4F3 


E409 


48B8 


731D 


9CF2 


2AD2 


03B8 


3875 


7149 


CCF3 


COOO 


48B5 


6270 


DCFl 


E6gD 


5CB5 


600E 


FCF3 


BD25 


3948 


8510 


3BD3 


E5BD 


03BC 


70E4 


2305 


E0F3 


E71B 


38E1 


4105 


1C03 


E41C 


70E2 


2221 


A073 


CIBD 


4CE7 


A106 


ACF4 


26F7 


03C0 


3C74 


lllE 


CCF3 


F406 


4CAE 


23gE 


9EF3 


F407 


38C5 


7505 


C575 


2722 


40E1 


4305 


2003 


E41D 


03C4 


3948 


8710 


1C83 


E5AD 


70E4 


2310 


E0F3 


E400 


4CAE 


A31E 


9EF3 


F407 


38C8 


3110 


CCF5 


240D 


03C8 


38E1 


4105 


3C03 


E41D 


70E2 


2223 


A073 


ClAD 


4CE7 


A706 


BC04 


2723 


3948 


A510 


7CD3 


E5BC 


03CC 


70E4 


2305 


E0F3 


E74B 


38E1 


6105 


5CC3 


E41C 


3948 


A510 


7CD3 


E40C 


70E2 


2306 


E0D4 


275F 


03D0 


3948 


A710 


5D43 


E5AC 


70E4 


2310 


E0F3 


E40D 


4CAE 


A31E 


9EF3 


F407 


38C8 


3110 


CCF5 


240D 


03D4 


38E1 


6105 


7CC3 


E41D 


3948 


A710 


5D43 


E40D 


70E2 


2313 


E0D4 


2400 


4CA5 


631E 


9EF3 


F406 


03D8 


3CE4 


3110 


8CF3 


E40C 


4CA5 


631E 


9EF3 


F406 


40C1 


6105 


4CC5 


241C 


5D74 


Bill 


DCF5 


E49D 


03DC 


24C3 


7047 


CCF3 


F944 


1CE2 


7000 


CCF3 


FCOD 


5CE4 


BllO 


DCF3 


E49D 


24A3 


7111 


CCF5 


E49D 


03E0 


24C3 


7047 


CCF3 


F944 


1CE2 


7000 


CCF3 


FCOD 


SD74 


6111 


DCF5 


E49D 


24C3 


7047 


CCF3 


Fg44 


03E4 


ICEO 


7000 


CCF3 


FCOC 


74EA 


F4F5 


D086 


E528 


3805 


7510 


C070 


24CC 


38E5 


7175 


CCF6 


E460 


03E8 


74EA 


F510 


D163 


E40D 


3B45 


7510 


C071 


E4FD 


04E1 


3105 


CCC3 


E41C 


OOEl 


6104 


4CC3 


E2EE 


03EC 


OOEl 


6105 


4C03 


E41C 


38E1 


2105 


4C13 


E41D 


OOEl 


3104 


CCC3 


E2EF 


38E1 


2175 


4C73 


E461 


03F0 


38E3 


F105 


CCF3 


E41D 


04E1 


6105 


4CC3 


E41D 


04E1 


6105 


4C13 


E41C 


38E5 


7105 


CCC3 


E41C 


03F4 


38E5 


7175 


CCF3 


E460 


38E3 


F105 


CC73 


E41C 


38ED 


B575 


C183 


E46C 


38E5 


7510 


DF51 


A4FC 


03F8 


38E5 


7105 


CC13 


E41D 


OOEl 


0304 


4413 


E2EF 


OOEl 


0304 


4013 


E2EE 


OOEl 


0304 


4813 


E2EF 


03FC 


OOEl 


3105 


FC03 


E41D 


38E5 


7110 


CCF3 


E40C 


38E5 


7110 


CCF3 


E40C 
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0400 


380F 


F424 


CDF 3 


D3CE 


395A 


8110 


3C92 


E40D 


3987 


0110 


1C97 


240D 


0415 


7108 


C2F4 


4002 


0404 


4CD2 


211C 


8C73 


EDCB 


2CA5 


611E 


8CF3 


F407 


4CA5 


631E 


9EF3 


F406 


4CE5 


5305 


DEF3 


E42F 


0408 


380F 


F425 


CDF3 


E7CE 


395A 


8110 


3C92 


E40D 


3997 


0105 


1C97 


2627 


4477 


F710 


F932 


E40C 


040C 


002F 


311D 


EC73 


C551 


OOEC 


31F6 


CC7 8 


24DF 


38E5 


7510 


D233 


FE4D 


3CE5 


71A0 


C901 


DC03 


0410 


3CE5 


7103 


CA91 


DC03 


3CE5 


7105 


C6F4 


644E 


80E3 


6311 


8504 


640C 


04EB 


0711 


91A2 


FE4D 


0414 


3A0A 


3447 


D431 


DC63 


3CF5 


7110 


CA93 


E406 


3513 


6309 


C4F4 


4004 


38E5 


7511 


D142 


FE4C 


0418 


4112 


7027 


CCFO 


OlOE 


3915 


7513 


D410 


OOOD 


34EE 


FIDO 


CEF3 


9C0D 


34E5 


6200 


8503 


E40D 


041C 


391A 


348E 


D433 


E458 


8203 


7081 


CCF4 


6C5D 


4515 


7027 


C2F0 


OlOF 


28E8 


9110 


E4F0 


OOOD 


0420 


40A2 


74C0 


D223 


A40D 


38E5 


7510 


D1C3 


E45D 


80E5 


7105 


C890 


2507 


3CE5 


7180 


C501 


DC02 


0424 


3CE5 


7103 


C691 


DC03 


3CE5 


7105 


CAF4 


649F 


80E5 


E311 


8504 


640D 


08EB 


0713 


52E2 


FE4D 


0428 


3A0A 


3447 


0501 


DCB3 


3CF5 


7110 


C693 


E40A 


3515 


E309 


C4F4 


4005 


38E5 


7513 


D282 


FE4D 


042C 


4112 


7025 


CCFO 


0142 


3915 


7511 


D4E0 


OOOC 


34EE 


BIDO 


CEF3 


9C0C 


34E5 


6200 


8503 


E40D 


0430 


391A 


348E 


D503 


E459 


8205 


F081 


CCF4 


6C5C 


4515 


7025 


C2F0 


0143 


28E8 


9110 


E4F0 


OOOD 


0434 


40A2 


74CO 


D363 


A40D 


38E5 


7510 


D303 


E45C 


80E5 


7105 


C490 


253B 


38EF 


5110 


C293 


FE4C 


0438 


3CE5 


7510 


D464 


640C 


28D5 


71B5 


C891 


E4F2 


3CE5 


7113 


C4F1 


DC03 


34E3 


6306 


84F4 


64FB 


043C 


3A0A 


3447 


D431 


DCFF 


3D13 


7109 


CCF4 


4004 


38E5 


7511 


D3C2 


FE4C 


4112 


7027 


CCFO 


OlOE 


0440 


3D15 


7113 


C890 


OOOD 


3D15 


7111 


C4F0 


440C 


3513 


6511 


9F30 


880C 


0118 


BllO 


CCFO 


440D 


0444 


3915 


7510 


DF30 


880D 


3915 


7512 


CIFO 


OlDC 


28D5 


71A5 


C491 


E526 


3CE5 


7113 


C8F1 


DC03 


0448 


34E5 


E306 


84F4 


652F 


3A0A 


3447 


D501 


DD33 


3D15 


F109 


CCF4 


4005 


38E5 


7513 


D492 


FE4C 


044C 


4112 


7025 


CCFO 


0142 


3D15 


7111 


C490 


OOOC 


3D15 


7113 


C8F0 


440D 


3515 


E513 


9F30 


880C 


0450 


0118 


B112 


CCFO 


440C 


3915 


7512 


DF30 


880C 


3915 


7510 


CIFO 


OIDD 


380F 


F425 


CDF 3 


E622 


0454 


395A 


8110 


3C92 


E40D 


3987 


0105 


1C97 


264F 


ICIO 


7108 


CCD4 


4002 


04D5 


711C 


C294 


2C0B 


0458 


4D32 


2112 


8C73 


F40D 


3505 


6310 


DEF3 


E80C 


4CB5 


631E 


DEF3 


F406 


38E5 


7511 


D608 


240C 


045C 


380F 


F425 


CDF 3 


E622 


395A 


8110 


3C92 


E40D 


3997 


0105 


1C97 


264E 


ICEO 


7106 


CCD8 


2627 


0460 


OOIF 


711D 


CD03 


C951 


3915 


75E2 


D713 


E54C 


38EE 


F105 


CCF3 


E5AA 


38E5 


7510 


D673 


E40D 


0464 


3CF5 


7110 


C6F3 


E405 


38AO 


70C7 


9CD4 


2E0A 


3A0A 


3427 


D850 


0202 


3CF5 


7110 


C4F3 


E407 


0468 


38A3 


IOC 7 


DC74 


2E0B 


3A05 


7427 


D640 


0203 


3CE5 


71A5 


0493 


E5BB 


3CF5 


7110 


C6F3 


E406 


046C 


3CA5 


70C7 


C494 


2E0B 


3A0A 


3427 


D850 


0202 


38F3 


1110 


DC73 


E404 


38DO 


70C7 


9CD4 


2E0B 


0470 


3A05 


7427 


D6B0 


0203 


38EE 


BIOS 


CCF3 


E5E6 


38E5 


7510 


D763 


E40D 


3CF5 


7110 


C4F3 


E407 


0474 


38AO 


70C7 


BCD4 


2E0B 


3A0A 


3425 


D850 


0203 


3CF5 


7110 


C6F3 


E405 


38A3 


10C7 


FC74 


2E0A 


0478 


2A05 


7425 


D730 


0203 


3CE5 


71B5 


C693 


E5F6 


3CF5 


7110 


C4F3 


E404 


3CA5 


70C7 


C694 


2E0A 


047C 


3A0A 


34.25 


D850 


0203 


38F3 


1110 


FC73 


E406 


38D0 


70C7 


BCD4 


2E0A 


3A05 


7425 


D7A0 


0202 


0480 


80E5 


4110 


4C13 


E79C 


80E5 


4105 


8C23 


E7C7 


8105 


4110 


2CF3 


E79D 


28E5 


4110 


6C13 


E40C 


0484 


30E5 


4105 


AC23 


E7C7 


80E5 


4110 


2CF3 


E40D 


28E5 


4110 


6C13 


E40C 


30E5 


4104 


AC23 


C07E 


0488 


38E1 


3105 


CCF3 


E7C7 


052F 


F0D2 


C273 


FD9D 


5D56 


7112 


CCF3 


F93C 


541E 


6108 


ACF4 


4003 


048C 


2 8D7 


911C 


FCF3 


ECOA 


0551 


FllO 


C2F3 


ECOC 


54B3 


2110 


8C74 


280D 


5D29 


A71E 


D9D3 


EE55 


0490 


5D29 


971E 


D9D3 


DC04 


38E5 


7070 


CCF3 


E66C 


38E5 


7000 


CCF3 


E40C 


092F 


F0D2 


C273 


FD9D 


0494 


5D56 


7112 


CCF3 


F93C 


542E 


6108 


ACF3 


C003 


2807 


911C 


FCF3 


ECOA 


0951 


FllO 


C2F3 


ECOC 


0498 


54B2 


6110 


8C74 


280D 


5D29 


A71E 


D9D3 


EE55 


5D29 


971E 


D9D3 


DC04 


38E5 


7070 


CCF3 


E66C 


049C 


38E5 


7000 


CCF3 


E40C 


387F 


B462 


DA03 


FA6D 


610A 


B4D2 


C573 


F80C 


48E5 


5305 


DCF3 


E55C 


04A0 


38E8 


3J.10 


CCF3 


E40C 


555F 


F0D2 


CCF3 


F80C 


5D26 


7112 


0CF3 


E93C 


540E 


6110 


AC73 


E403 


04A4 


2817 


AJ.90 


ECF3 


E402 


0071 


F112 


C2F3 


ED3D 


0551 


FllO 


C2D4 


2A9C 


392F 


F51E 


CDB3 


EC04 


04A8 


5412 


71. ID 


8C93 


CISC 


7520 


061E 


08F3 


E804 


3CE5 


71E3 


C673 


E93D 


5CE5 


7105 


DCD3 


E6DA 


04AC 


OOOA 


F510 


DB14 


640D 


34FF 


F910 


FE91 


E7A4 


390A 


3511 


DC64 


269C 


340E 


7027 


DC93 


C799 


04B0 


3805 


4466 


1C80 


2703 


40FB 


7710 


9CA1 


E407 


38BE 


5110 


CB03 


E7AD 


3805 


7427 


DC83 


C798 


04B4 


340B 


7656 


BCCO 


2702 


80F3 


5510 


DAEl 


E7A5 


0008 


F510 


DC54 


640C 


3«FF 


F910 


FE91 


E407 


04B8 


40BB 


7 710 


9CA3 


E7AD 


340E 


7027 


DC93 


C799 


3805 


7456 


DC80 


2703 


36FA 


3510 


DC61 


E7A4 


04BC 


390E 


5111 


CB04 


269C 


3805 


4627 


1C83 


C799 


340B 


7656 


BCCO 


2702 


80F3 


55.10 


DB81 


E407 


04C0 


44E5 


4110 


3CF3 


E40D 


34A0 


7110 


CCFO 


455C 


3975 


41F6 


3C02 


E7C7 


34F5 


7310 


98F3 


E404 


04C4 


8103 


651E 


DF13 


FC04 


38F5 


7510 


DBCl 


E7A4 


44A5 


6110 


ACFO 


240D 


28E5 


4105 


4C13 


E47D 


04C8 


1C7F 


FA2 8 


BEF3 


C080 


38A8 


3110 


CCFl 


E40C 


38EF 


B0F5 


FCD3 


F95D 


4079 


A600 


E573 


E40D 


04CC 


38EF 


B0F5 


FCD3 


F95D 


40E9 


A600 


E573 


E40D 


555F 


F0D2 


CCF3 


F80C 


5D26 


7112 


0CF3 


E93C 


04D0 


055E 


7.193 


C2F3 


E80D 


38BF 


F512 


CDB3 


E93C 


0401 


FllO 


C2F4 


6405 


015F 


BllO 


C702 


EAID 


04D4 


5D29 


A71E 


DDE 3 


EC05 


0578 


F511 


DD91 


E40C 


3CA5 


71B0 


C690 


640D 


4478 


A667 


BDB3 


FFBF 


04D8 


38EA 


3511 


CIFO 


440C 


3CE5 


7111 


C492 


FEIC 


0515 


74C7 


FD63 


EB6F 


80D5 


7110 


CCF3 


E7AC 


04DC 


38D5 


702D 


CCF3 


EBDl 


38E5 


7510 


DF33 


E7CC 


38E8 


30F5 


CCF3 


E55D 


555F 


F0D2 


CCF3 


F80C 


04E0 


5D26 


7112 


0CF3 


E93C 


055E 


7193 


C2F3 


E80D 


38BF 


Fbl2 


CDB3 


E93C 


0401 


FllO 


C2F8 


2407 
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0ilE4 


015F 


BllO 


C502 


EAIC 


5D79 


A711 


DDE! 


E40C 


0528 


F5BE 


DEA3 


FC04 


3075 


7067 


C6F3 


FFBE 


04E8 


820B 


2627 


BED3 


EBBB 


38EA 


3511 


CIFO 


440C 


30E5 


7111 


C4F2 


FEIC 


820B 


2627 


BED3 


EBBB 


04EC 


38E5 


75B1 


DE70 


440D 


38E5 


7510 


DF13 


E70D 


38E5 


7S10 


DF13 


E70C 


38ES 


70F5 


FC73 


F950 


04F0 


3CB8 


30D7 


C6F3 


FD5C 


74E0 


0B55 


06F3 


E7CE 


28EB 


7710 


3F63 


E400 


74AA 


FllO 


C0F3 


E40D 


04F4 


2CA3 


BOBO 


CCF3 


E403 


38E5 


7510 


C073 


E40D 


5CE5 


6110 


8093 


E400 


58EB 


6710 


A493 


E40D 


04F8 


38D5 


7510 


C075 


E4AC 


3A80 


582B 


D6D3 


C004 


38E0 


6904 


8313 


0B2F 


38E0 


6910 


26F7 


2400 


04FC 


38EF 


F910 


E433 


EB4D 


38E0 


0904 


0573 


CAF2 


3A50 


6910 


62F3 


E401 


38E5 


6110 


CCF3 


EB20 


0500 


38E5 


7110 


CCF3 


EADC 


38EO 


6979 


B2F0 


FFF9 


38E0 


5910 


F203 


EB4D 


38E0 


6904 


80,13 


CAF2 


0504 


38E5 


7104 


CCF6 


CBF7 


380A 


8024 


3098 


14E2 


3936 


8110 


1092 


040D 


40BS 


631E 


OOF 3 


F404 


0508 


54D5 


4110 


8C73 


FCOC 


4CB5 


631E 


DCF3 


F404 


3585 


5110 


0076 


E400 


5D29 


971E 


0314 


5004 


050C 


5D29 


971E 


D314 


5C04 


S4E4 


41B0 


8CF3 


FE3D 


38E5 


7505 


0193 


E4A3 


380A 


8025 


3098 


24E3 


0510 


3956 


8110 


1C92 


C40D 


5029 


A71E 


0314 


6004 


5405 


4110 


8073 


FCOC 


5029 


A71E 


0314 


6004 


0514 


3595 


5110 


CC76 


E40C 


5D29 


971E 


D314 


5C04 


5D29 


971E 


0314 


5004 


54E4 


41A5 


8CF3 


E49E 


0518 


04EB 


0710 


9203 


FE3C 


38EA 


3511 


F1D2 


FE3D 


3CA3 


7427 


0190 


006E 


3A05 


7110 


CCFO 


440C 


051C 


3A05 


7510 


D380 


880D 


3A05 


7112 


CCF3 


COOD 


3885 


7112 


OCFO 


4400 


3805 


7512 


CIFO 


8800 


0520 


3805 


7110 


CCF3 


A40C 


38EA 


348E 


C1F4 


2459 


3CE3 


7081 


CCF4 


205D 


4105 


4112 


40.13 


8005 


0524 


40B5 


40C0 


8C23 


E40C 


40E5 


4110 


2C03 


E45D 


3 8 AS 


7405 


D383 


E487 


08EB 


0710 


52A3 


FE3C 


0528 


38EA 


3513 


F1D2 


FE3C 


3CA5 


F425 


D280 


006F 


3805 


7110 


00F3 


A40C 


38EA 


348E 


C1F4 


2448 


052C 


3CE5 


F083 


CCF4 


2C4C 


4105 


4112 


4C13 


8005 


40BS 


40C0 


8023 


E40C 


40E5 


4110 


2C03 


E44C 


0530 


38A5 


74C5 


D383 


E4AF 


48EF 


FllO 


CCD4 


3 80D 


38E8 


3179 


CCF3 


FFF9 


5CB4 


BODE 


DCFl 


B098 


0534 


24E3 


7043 


CCF3 


EC9D 


4575 


7111 


8CF5 


D88D 


290S 


62A7 


D0F3 


ED45 


38E8 


3110 


CCF3 


E40C 


0538 


74EA 


Flic 


CCF3 


E40C 


38A3 


BOBO 


CCF3 


E403 


38E5 


7510 


C073 


E4D0 


719F 


F8F5 


F0F6 


E529 


053C 


28AA 


B428 


D493 


COOS 


38E5 


7104 


D0F6 


F403 


28E9 


B725 


OOF 3 


E421 


08EE 


F545 


0083 


E42D 


0540 


4804 


A045 


8C98 


2517 


295F 


BllO 


CCF2 


C63C 


2C0B 


2624 


9203 


D30F 


38EA 


3511 


F102 


FE3D 


0544 


3CA3 


7427 


D430 


006E 


355F 


BllO 


CCF2 


0830 


280B 


2624 


D2A3 


03CF 


38EA 


3513 


F102 


FE30 


0548 


3CA5 


F425 


D470 


006F 


30EC 


B509 


0084 


OOOB 


28EB 


774S 


0083 


E420 


410B 


7667 


2083 


F060 


054C 


410B 


7667 


2083 


F060 


0C05 


3025 


OOF 8 


26BE 


0049 


3508 


0537 


OlFF 


0828 


9108 


2CF6 


CIFF 


0550 


041B 


0710 


D5B3 


E63D 


38EA 


3511 


F590 


4630 


3CA3 


7427 


D510 


0163 


0828 


9108 


2CF6 


CIFF 


0554 


OCIB 


0710 


5623 


E63D 


38EA 


3513 


F570 


4630 


3CA5 


F425 


D550 


0162 


3A05 


4107 


5C13 


C16A 


0558 


3A05 


7510 


DAFO 


CDEC 


3A05 


4112 


7C13 


OOOD 


38B5 


7512 


CIFO 


CCOO 


3805 


7110 


CCF3 


ASEC 


055C 


38EA 


348E 


C1F4 


2459 


3CE3 


7081 


CCF4 


2C5D 


410F 


4112 


4C13 


8005 


40BC 


0000 


8023 


E40D 


0560 


40E5 


4110 


CC33 


E45C 


3905 


74C7 


DAFO 


0172 


3805 


7110 


CCF3 


A5EC 


38EA 


348E 


C1F4 


2448 


0564 


3CE5 


F083 


CCF4 


2C4C 


4105 


4112 


4C13 


8005 


40B5 


40C0 


CC33 


E40C 


40E5 


4112 


2C03 


E44D 


0568 


38A5 


74C5 


DAFO 


258E 


74E0 


OAFS 


10F6 


E528 


38A0 


0825 


0Ag3 


E5F2 


2 8AB 


7667 


2083 


F060 


056C 


34EB 


7711 


2084 


26B1 


3429 


B710 


0181 


8801 


10F5 


5110 


OOFl 


6630 


2C42 


E025 


8CF1 


E51C 


0570 


3D09 


9710 


0473 


EABC 


3C89 


3511 


D7A3 


E6BC 


38F4 


090S 


0097 


OlFF 


3CB3 


6310 


84F4 


6400 


0574 


14F2 


FllO 


CCFl 


4C0C 


1822 


D025 


4CF2 


E51D 


3009 


8710 


8473 


EABC 


3CB9 


3511 


D7B3 


E6BD 


0578 


34F3 


631D 


84F8 


0148 


14C5 


3508 


D926 


CIFE 


10E5 


7105 


CCD3 


E570 


08E5 


7105 


COD 3 


E570 


057C 


39A5 


74F5 


CDF6 


E529 


S404 


4045 


8098 


260A 


292F 


BUO 


CCF2 


C63D 


2C0B 


2624 


9203 


D3CF 


0580 


38EA 


3511 


F1D2 


FE3D 


3CA3 


7427 


0800 


006E 


352F 


BUO 


CCF2 


C63C 


280B 


2624 


D2A3 


03CF 


0584 


38EA 


3513 


F1D2 


FE3C 


3CA5 


F425 


D840 


006F 


74E0 


OBIO 


10F6 


E400 


38AO 


0824 


0893 


D37F 


05 8 8 


28E9 


B6F5 


0183 


E528 


34DB 


7667 


2083 


F060 


34EB 


7711 


2084 


26B1 


3429 


6625 


0181 


E51C 


05 8C 


08F5 


4110 


80F3 


E63D 


2CE2 


E119 


8CF1 


8000 


3009 


8710 


8474 


2AB0 


3093 


5310 


84F4 


6400 


0590 


3009 


3511 


D7B3 


E6BD 


S4F4 


4108 


CC56 


OlFE 


44FB 


2110 


ECF2 


0630 


38BC 


3 IAS 


OOF 3 


E65E 


0594 


2C0B 


1625 


55B8 


26BE 


38EA 


3511 


F9A2 


FE3D 


3CA3 


7427 


0950 


0267 


38EA 


3513 


F9A2 


FE30 


0598 


3CA5 


F425 


0970 


0266 


7600 


0B05 


OEFO 


CEC2 


3A05 


7112 


CCF3 


0000 


38B5 


7112 


CCFO 


440D 


059C 


■38C5 


7512 


CIFO 


CCOC 


74E0 


OBIO 


10F6 


E40D 


38A0 


0824 


0893 


D33B 


28E9 


B6F5 


0183 


E528 


O5A0 


34DB 


7667 


2083 


F060 


34EB 


7711 


2084 


26B1 


34E9 


B719 


0181 


8000 


00F7 


0110 


00F3 


E63D 


05A4 


2C32 


L025 


8CD1 


E51C 


3D09 


8710 


C473 


EABD 


30B9 


3511 


0AE3 


E63D 


3093 


5310 


84F4 


640D 


G5A8 


3CF4 


cioa 


8C5 6 


CIFF 


4558 


A310 


C0F2 


061C 


2C0B 


1625 


5588 


26BE 


38EA 


3511 


F1D2 


FEIO 


05AC 


3CA.1 


7427 


DABO 


02B7 


7600 


0B05 


OEFO 


8AC2 


0CE5 


7105 


CCD3 


E571 


74E0 


08E0 


0EF3 


E40D 


0^,80 


2A08 


7710 


3860 


440D 


74AA 


B310 


F693 


E40D 


2CA3 


BOBO 


0CF3 


E403 


34E8 


FllO 


CCF3 


E4ED 


05B4 


38E8 


7110 


CCF3 


E40D 


38E5 


7510 


C073 


E4DD 


5CE5 


6110 


8093 


E40D 


58EB 


6710 


A493 


E400 


05B8 


38D5 


7510 


C075 


E4AC 


6140 


8810 


0001 


E40C 


28AB 


3000 


C0F3 


E40C 


70E4 


1210 


EOF 3 


E40C 


05BC 


4CA5 


63;E 


9EF3 


F406 


60C5 


7305 


8085 


241D 


6140 


8810 


00D3 


E40D 


70A2 


2200 


E073 


E400 


05CO 


4CE7 


AGIO 


ACF3 


E40D 


3C74 


HIE 


CCF3 


F406 


4CAS 


631E 


9EF3 


F406 


60C5 


7305 


80B5 


241D 


05C4 


6140 


8810 


OODl 


E40C 


28A8 


8020 


CCF3 


E400 


70E4 


1210 


E0F3 


E40C 


4CA5 


631E 


9EF3 


F406 
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05C8 


60C5 


7305 


80B5 


241D 


6140 


8B10 


00D3 


E40D 


70A2 


2220 


E073 


E40C 


4CE7 


AOlO 


ACF3 


E40D 




05CC 


3C74 


151E 


DC23 


F407 


6141 


0B05 


000 1 


E6EB 


6141 


0B05 


00D3 


E6FE 


6141 


0B05 


OODl 


E716 




05D0 


6141 


OB05 


00D3 


E72B 


OOOA 


E230 


94F3 


E4CC 


70E4 


3305 


60F3 


E41D 


4CA5 


631E 


9EF3 


F406 




05D4 


38C5 


7105 


CCF5 


241D 


7002 


2230 


A073 


E4CC 


4CE7 


A105 


ACF3 


E41C 


3C74 


lllE 


CCF3 


F406 




05D8 


4CAE 


239E 


9EF3 


F407 


38C5 


7505 


C575 


241D 


0008 


E2B0 


94F3 


E4CC 


70E4 


3305 


60F3 


E41D 




05DC 


4CA5 


631E 


9EF3 


F406 


38C5 


7105 


CCF5 


241D 


7002 


22B0 


A073 


E4CD 


4CE7 


A105 


ACF3 


E41C 




05EO 


3C74 


lllE 


CCF3 


F406 


4CAE 


239E 


9EF3 


F407 


38C5 


7505 


C575 


241D 


70E5 


6349 


A074 


0000 




05E4 


2C05 


6110 


4C93 


EODD 


40A5 


40D2 


4CF3 


EFBC 


34EB 


6103 


BCF3 


E79C 


38E8 


7010 


CCF3 


E40C 




05E8 


1CE4 


3510 


DF13 


E79D 


70E2 


2349 


A074 


0000 


2C05 


6110 


4C93 


EODD 


40A5 


40D2 


4CF3 


EFBC 




05EC 


34EB 


6103 


BCF3 


E79C 


38E8 


7010 


CCF3 


E40C 


4C75 


531E 


DEF3 


F406 


3CE4 


1510 


DF13 


E79D 




05F0 


70E4 


23E5 


A0F3 


E41D 


4CA5 


631E 


9EF3 


F406 


38C5 


7105 


CCF5 


241D 


70E2 


23E5 


A073 


E41C 




05F4 


28A5 


611E 


0CF3 


F407 


3D34 


211E 


8CF3 


DC07 


4CA5 


631E 


9EF3 


F406 


38C5 


7105 


CCF5 


241D 




05F8 


5CE5 


7110 


0CF3 


E40D 


7172 


6310 


A073 


FOOD 


5CA5 


611E 


BCF3 


AD24 


4D25 


611E 


0CF3 


DD15 




05FC 


20E4 


2105 


8CF3 


E7C7 


60E2 


0B09 


00D3 


DOOO 


34B0 


OBIO 


20F3 


E50D 


34A0 


2AC5 


00F3 


E569 




0600 


34A2 


0AC4 


00F3 


DF13 


38A0 


C824 


00F3 


CC6E 


38A5 


7510 


8823 


E50C 


38E5 


7109 


CCF3 


8036 




0604 


38E0 


1800 


6083 


E40C 


7174 


2310 


A072 


FOOD 


54A0 


411E 


8CD3 


F407 


5CA5 


611E 


BCF3 


BD25 




0608 


0407 


F149 


CCFl 


COOO 


4C8E 


D3A0 


DE73 


EOOD 


1CB7 


A112 


ECF3 


DD3C 


48EE 


3309 


9CF3 


C007 




060C 


5094 


3467 


D193 


ED5C 


3935 


7105 


CCF5 


ICID 


7174 


2310 


A072 


FOOD 


5412 


4110 


8CD3 


E54D 




0610 


5CA5 


611E 


BCF3 


BD25 


3870 


091E 


06F3 


F406 


4895 


7267 


9CF3 


E95D 


2003 


4149 


4CF1 


0001 




0614 


4CA5 


53A0 


DED2 


EODD 


20B9 


4102 


4C83 


DD3C 


3876 


7112 


CCF3 


FD3C 


4CEE 


3190 


8CF3 


E40C 




0618 


50A4 


3J05 


CCF5 


241C 


38E3 


B510 


C063 


E4DC 


70E4 


2349 


A074 


0000 


04A7 


FllE 


CCF3 


F407 




06 IC 


410E 


ElAO 


4CF3 


GOOD 


2CA7 


A112 


ACF3 


ED3C 


4D4E 


1390 


DEF4 


240D 


5074 


3105 


CCF5 


2410 




0620 


3905 


7510 


C065 


24DC 


7014 


2310 


A0D3 


E54D 


04A9 


611E 


4CC3 


F407 


2806 


7549 


D261 


COOO 




0624 


4CAE 


F3A0 


9E73 


EOOC 


1CB7 


A112 


ECF3 


DD3C 


393E 


7180 


CCF5 


ICOC 


3948 


7110 


CCF5 


2700 




0628 


38E5 


7510 


C063 


E4DC 


OOOB 


344E 


D2C3 


E408 


28Bg 


3111 


C0F3 


E40D 


00A5 


6105 


FCC3 


E406 




062C 


38E0 


0810 


20C3 


E79C 


3805 


6025 


4C93 


E4CA 


3805 


704E 


CCF3 


E408 


2885 


7040 


DCF3 


E401 




0630 


28B5 


6110 


4CC3 


E40D 


38C8 


7110 


CCFO 


279C 


34E0 


0810 


20C3 


E79C 


70E5 


6110 


0CF3 


E58D 




0634 


38A5 


7108 


CCF3 


COIF 


38B5 


710B 


CCF3 


805E 


38EE 


3110 


CCF3 


E40C 


3888 


301D 


CCF3 


0395 




0638 


70E5 


6105 


0CF3 


E4D2 


3885 


7113 


CCF3 


E40C 


38B5 


701D 


CCFO 


0005 


70E5 


6105 


0CF3 


E4D2 




063C 


3885 


701D 


CCFO 


0003 


70E5 


6105 


0CF3 


E4D2 


3885 


7010 


CCFO 


0000 


70E5 


7109 


CCF4 


OOEl 




0640 


28A5 


6109 


80F3 


8041 


28E5 


6179 


80F4 


7FE0 


7489 


E579 


9461 


FFFF 


0105 


702F 


CCF3 


E800 




0644 


2915 


7220 


F4F3 


ECOC 


30E1 


1210 


C803 


E40D 


00E5 


702E 


CEF3 


E008 


2915 


7220 


F4F3 


ECOC 




0648 


30E1 


1210 


C803 


E40D 


70E5 


7110 


CCF3 


E40C 


28A5 


6108 


80F3 


COIE 


28B5 


6109 


80F3 


8040 




064C 


70E9 


2110 


8AF3 


E40D 


288C 


3179 


4CF3 


FFFE 


2CA5 


7508 


D533 


4E01 


2805 


709F 


FCF3 


E821 




0650 


28B5 


729C 


F6F3 


E42E 


30C5 


4310 


48F3 


E4CD 


38B8 


711D 


CCFO 


6B92 


2fl05 


7110 


CEF3 


E40E 




0654 


28B5 


769F 


D503 


E821 


70E1 


3375 


E073 


E461 


38E3 


F105 


CCF3 


E41D 


70E6 


F305 


E0C3 


E41D 




0658 


70E1 


4305 


2003 


E41D 


7405 


7110 


C493 


E54D 


28E5 


706F 


CA73 


E7E7 


3 8B5 


728C 


FAF3 


0055 




065C 


38B5 


7U0 


CCF3 


E40C 


3875 


711D 


86D3 


EC06 


2CB5 


70C8 


CAF3 


FFOl 


28B1 


321D 


8403 


EOOl 




0660 


38B5 


74C5 


C073 


E591 


70EB 


3510 


C683 


E40C 


38E5 


70AE 


CCF4 


0009 


3805 


7102 


CCF4 


2 SAD 




0664 


3905 


7 OFF 


CCD3 


E407 


70E5 


628C 


BCF3 


EC54 


38E5 


6110 


8CF3 


ECOD 


3«D5 


7010 


CCFO 


2790 




0668 


70E9 


4311 


2093 


E4CD 


38B5 


751D 


C073 


C392 


34E1 


3010 


CCF3 


E40D 


70E1 


2305 


6003 


E4ig 




066C 


70E1 


0305 


0403 


E419 


70E1 


0305 


0003 


E418 


70E1 


0305 


0803 


E419 


OOEl 


4304 


6013 


E2EE 




0670 


04E7 


FOEF 


CC93 


E7E6 


38B5 


728C 


FAF3 


C055 


38B7 


Clio 


0CF3 


E4BD 


0405 


711D 


CCF3 


E007 




0674 


38A1 


31 ID 


8C03 


EC06 


2CA8 


B51C 


0643 


E800 


38E5 


7010 


CCF3 


E40D 


040A 


BOCO 


0003 


E54C 




0678 


0415 


7105 


EC13 


E5A0 


2C07 


C31D 


OOFl 


E40C 


3815 


74FF 


D8C3 


E7E6 


OOEl 


7105 


EC03 


E41D 




067C 


00E9 


4U1 


6C93 


E40D 


38B5 


751D 


C073 


C793 


34E1 


3010 


CCF3 


E40D 


0401 


4310 


EOFO 


88D1 




0680 


28B5 


7010 


CC33 


E78D 


00E7 


FOEF 


CC93 


E7E7 


38B5 


728C 


FAF3 


C454 


38B7 


Clio 


4CF3 


E40D 




0684 


3815 


7nD 


8C03 


EC07 


3805 


711D 


CCFO 


6C06 


2C05 


751C 


CF53 


C3C0 


0807 


F042 


CD03 


E4BD 




0688 


08B7 


C;!25 


OOFl 


E5A0 


0405 


731C 


E014 


2401 


ICEB 


631C 


BCF3 


EC04 


38E5 


64EF 


9913 


EFE6 




068C 


1CE5 


62 8C 


BCF3 


EC54 


38E1 


El ID 


8202 


EF6A 


80DA 


A22D 


80F0 


679C 


00B5 


7045 


E003 


FD90 




0690 


38E5 


7010 


CCF3 


E40D 


40E5 


7110 


CCD3 


E40D 


3818 


31FF 


CCF3 


E7F7 


0401 


711C 


EOFO 


2401 




0694 


28B5 


7010 


CC13 


E78C 


0409 


411C 


ECF4 


08E1 


38AC 


3110 


CCF3 


E79C 


3908 


7110 


D0F3 


E78D 




0698 


28E1 


o;?io 


C4F3 


E40C 


38ED 


3525 


C083 


E42D 


34DB 


3426 


0083 


F02C 


74E8 


F510 


DAA3 


E40D 




069C 


0C17 


FOAO 


CCF3 


E40D 


040A 


B112 


CCFO 


253D 


0431 


BUD 


EC13 


C540 


0C25 


7310 


E0F3 


E401 




06A0 


2CA5 


7110 


CC92 


E40C 


38E5 


71EF 


CCF3 


E7E7 


28B5 


428C 


7AF3 


C055 


21SB5 


7110 


CCF3 


E40D 




06A4 


38BA 


B02D 


8CF3 


E8D3 


38E6 


3100 


8CF3 


FFFO 


28B1 


338C 


E033 


E401 


23B5 


7010 


CCFO 


A780 




06A8 


38BE 


F42D 


DA53 


E803 


38E5 


7505 


DA73 


E697 


0418 


8310 


04F3 


E54D 


3835 


7510 


0683 


E54D 





PAGE 518 














CONTROL 


STORE 














10 


ADDRESS 
































06AC 


0405 


731C 


EOFO 


2401 


2835 


711D 


CC13 


C541 


0C25 


731C 


E0D2 


E401 


38E5 


71FF 


CCF3 


E7E6 


06B0 


0405 


628C 


BCF3 


ECS 5 


38E1 


EllC 


8290 


2000 


34E7 


8310 


E023 


FCOC 


2CB1 


B22D 


E033 


EB62 


0EB4 


3487 


C24D 


C0F3 


E801 


OCEl 


3100 


CCF3 


E40C 


00E7 


B310 


E003 


E7FC 


3421 


8210 


E013 


E78C 


06B8 


38E1 


6105 


5CC3 


E41C 


38E1 


6105 


7CC3 


E41D 


38E1 


4105 


1C03 


E41C 


38E1 


4105 


3C03 


E41D 


06BC 


38Ei 


4105 


5C13 


E41C 


38E1 


4105 


7C13 


E41D 


3803 


B062 


CCF3 


C7BC 


38E3 


B513 


C073 


E79C 


06C0 


0001 


026D 


6013 


C40C 


38E3 


BlOO 


CCF3 


E7CD 


38E8 


7110 


CCF3 


E7DC 


00E5 


70EF 


CC93 


E7C6 


06C4 


38B5 


7 2 8C 


FAF3 


C454 


38B5 


7020 


CCFO 


679C 


38E5 


7110 


8C03 


E7DC 


38E5 


7010 


CCF3 


EB8C 


06C8 


OOEB 


3510 


D873 


E40D 


0406 


30D7 


CCD3 


CB3A 


38E6 


71FF 


CCF3 


CBF6 


00E5 


628C 


BCF3 


EC55 


06CC 


38E1 


EUO 


8213 


E4CC 


34E1 


3010 


CC23 


E40C 


0816 


74FF 


DCB3 


E7E6 


38E5 


7509 


CE84 


4149 


06D0 


3BF5 


5110 


CC97 


E40D 


38E0 


0909 


2873 


8061 


38D6 


8910 


26F3 


E50D 


3885 


7110 


CCF2 


280D 


06D4 


68E2 


0AA5 


00F3 


EF62 


38E5 


60C0 


8CF3 


E80C 


3B45 


6111 


8CFD 


240C 


39F5 


6106 


8CF7 


E74B 


0608 


ICAO 


FOCO 


DCF3 


E40D 


3B45 


75H 


DE4D 


240C 


38E5 


7509 


CE84 


401E 


39F2 


D046 


FCFF 


E782 


06DC 


60FA 


BUG 


COFl 


ECOC 


BCF9 


F512 


DEIF 


E58D 


BCEl 


F109 


CDF3 


COOF 


3CB3 


5110 


CCF3 


E50D 


06E0 


60E2 


0B05 


OOFS 


E608 


28E6 


B139 


CCD3 


FEFF 


BCEB 


6349 


C9F4 


1802 


38E3 


7510 


C9E3 


E40C 


06E4 


38E8 


3110 


CCF3 


E40C 


38E5 


7110 


CCF3 


E40C 


38E5 


7110 


CCF3 


E40C 
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CONTROL 


STORE 














10/ 2/86 


9:28 AM 


ADDRESS 


































0700 


7578 


F4I-5 


D062 


F128 


38ED 


F510 


0186 


E40D 


39A0 


EOOO 


4CF3 


E40D 


5CA3 


E072 


BCF3 


BCOC 




0704 


38F5 


7010 


CCFl 


E79D 


3885 


7010 


CCFl 


E79C 


38EC 


B510 


C086 


E52C 


39A4 


EOOO 


40F3 


E40C 




0708 


5CA3 


Ali2 


BCF3 


BD2C 


00E3 


7010 


CC83 


E40D 


74EA 


F109 


C2F4 


0007 


38E5 


74F5 


D1A3 


E528 




070C 


7508 


F512 


D133 


F13C 


3815 


7108 


CCF6 


CIFE 


5CB5 


7175 


0072 


E461 


OlAO 


F0C2 


C0F3 


EOOO 




0710 


5CA3 


E072 


BCF3 


9C0D 


38F5 


7010 


CCFl 


E79D 


3885 


7010 


OOFl 


E79C 


3825 


7108 


0CF6 


CIFE 




0714 


0484 


F595 


D162 


E420 


04A4 


F108 


CCF6 


CIFF 


5DA5 


7002 


OOF 3 


ECOD 


5013 


8072 


70F3 


A80D 




0718 


00E3 


7010 


CCF3 


E40C 


00E5 


7010 


CC83 


E40D 


74E8 


F509 


D254 


4004 


3 8 ID 


8508 


0186 


CIFE 




071C 


0002 


Fill 


CCF3 


E6BD 


3815 


7108 


CCF3 


CIFE 


39A3 


F027 


OOF 3 


E087 


3D71 


3110 


CC73 


FOFD 




0720 


38F8 


71 ID 


CCFl 


AF8B 


5C03 


C112 


3CF3 


A12C 


5C05 


4113 


2CF3 


A12D 


20E1 


3110 


CC73 


E40D 




0724 


3888 


7110 


CCFl 


A7 8C 


411B 


76D7 


0083 


F02C 


09A4 


FllO 


CCF3 


E4DD 


OCBO 


IBIO 


FEF3 


E40C 




0728 


2CAB 


2710 


B2B6 


E40D 


04E3 


7110 


0CF3 


E40C 


0173 


7010 


CCF3 


FOOD 


5025 


4112 


BCF3 


AD2D 




072C 


04E3 


7110 


CC83 


EOOC 


5C25 


4113 


ACF3 


A12D 


00E3 


7010 


CC83 


E40D 


28E5 


7110 


OOF 3 


E40D 




0730 


7172 


6310 


A073 


FOOD 


5CA5 


611E 


BCF3 


AD24 


3925 


711E 


DCF3 


D005 


20E1 


6110 


80F3 


E40D 




0734 


2 8E3 


7010 


CC83 


E40D 


5CE5 


7110 


0CF3 


E40D 


7172 


6310 


A072 


FOOC 


5CA5 


611E 


BCF3 


AD24 




07 3 8 


5526 


611E 


0CF3 


DD15 


20E2 


6105 


8C73 


FC07 


28E5 


7110 


0CF3 


E40D 


7172 


6310 


A073 


FOOD 




073C 


5CA5 


611E 


BCF3 


AD24 


3925 


771E 


D333 


DC05 


5CE5 


7110 


0CF3 


E40D 


7172 


6310 


A072 


FOOC 




0740 


5CA5 


611E 


BCF3 


AD24 


5525 


611E 


0CF3 


DD15 


20E2 


6105 


8073 


F0F2 


28E5 


7110 


00F3 


E40D 




0744 


7172 


6310 


A073 


FIBD 


5CA5 


811E 


8CF3 


AD24 


48E5 


5310 


D0F3 


E40C 


20E1 


4305 


2003 


E41D 




0748 


5CE5 


7110 


0CF3 


E40D 


7172 


6310 


A072 


FIBC 


50A5 


611E 


BCF3 


AD24 


5525 


611E 


OOF 3 


DD15 




074C 


20E2 


6105 


8C73 


FD17 


70E2 


2310 


A073 


E40D 


4CA5 


631E 


9EF3 


F406 


3Ct:i 


4010 


0C03 


E40D 




0750 


70E2 


2310 


A073 


E40D 


2935 


611E 


OOF 3 


E807 


3C72 


251E 


94E3 


F407 


28t:5 


7110 


00F3 


E40D 




0754 


7172 


6310 


A073 


FIAC 


5CA5 


671E 


9463 


AD24 


5CE5 


7110 


0CF3 


E40D 


7172 


6310 


A072 


FIAD 




0758 


5CA5 


611E 


BCF3 


AD24 


5525 


611E 


00F3 


DD15 


20E2 


6105 


8073 


FD56 


70E2 


2310 


A073 


E40D 




075C 


4CA5 


631E 


9EF3 


F406 


3CE1 


4010 


2C03 


E400 


70E2 


2310 


A073 


E40D 


2935 


611E 


0CF3 


E807 




0760 


3C72 


251E 


95C3 


F407 


5CE5 


7110 


0CF3 


E40D 


7172 


6310 


A072 


FOOC 


5CA5 


611E 


BCF3 


AD24 




0764 


48E5 


5305 


DCF3 


E5B2 


28E5 


7110 


OOF 3 


E40D 


7172 


6310 


A072 


FOOC 


5CA5 


611E 


80F3 


AD24 




0768 


5525 


611E 


0CF3 


DD15 


20E2 


6105 


8C73 


FD8E 


70E2 


2309 


A073 


801F 


4CA5 


631E 


9EF3 


F406 




076C 


20E5 


7110 


CC73 


E40D 


28E7 


FOEF 


CC93 


E7E7 


3885 


7280 


FAF3 


0055 


3887 


0394 


10F3 


D9D3 




0770 


1C05 


711D 


CCF3 


EC07 


70E2 


2310 


A073 


E40D 


2935 


611E 


0CF3 


E807 


3072 


251E 


96B3 


F406 




0774 


28E5 


7110 


0CF3 


E40D 


7172 


6310 


A073 


FOOD 


5CA5 


611E 


BCF3 


AD24 


3925 


711E 


OOF 3 


D0C4 




0778 


20E9 


4111 


2CF3 


E40C 


38B8 


711D 


CCF3 


0393 


20E1 


0010 


20F3 


E40C 


50E5 


7110 


OOF 3 


E40D 




077C 


7172 


6310 


A072 


FOOC 


5CA5 


SHE 


BCF3 


AD24 


5525 


611E 


0CF3 


DD15 


20E2 


6105 


8073 


FDDB 




0780 


70E2 


2310 


A073 


E40D 


4CA5 


631E 


9EF3 


F4C6 


3CE9 


4111 


2CF3 


E40D 


38B8 


711D 


CCF3 


0393 




0784 


3CE1 


0010 


2CF3 


E40D 


70E2 


2310 


A073 


E40D 


2935 


611E 


OOF 3 


E807 


3072 


251E 


9813 


F407 




0788 


38EC 


F509 


CE33 


8144 


5CE4 


8109 


DOFO 


0140 


2083 


7110 


OOF 3 


E44D 


2D73 


7109 


C0F5 


0005 




078C 


3895 


70C7 


CCF3 


C22A 


38E0 


1909 


4A03 


8145 


38E5 


7110 


CC82 


244D 


3895 


7007 


00F3 


C23B 




0790 


38E5 


7104 


CCF3 


F527 


38E4 


0904 


0106 


4B53 


38E2 


4109 


04F3 


8060 


38E5 


7311 


B4D2 


2400 




0794 


3CA0 


7110 


DCF4 


2400 


B0E5 


7110 


C1C3 


0109 


38F6 


74A4 


0363 


006E 


38E5 


7104 


0DF6 


8 OCA 




0798 


38E0 


0910 


0CF3 


EA7C 


38E2 


E159 


8CF2 


EOOl 


38EO 


4908 


0074 


4131 


3CE2 


FllO 


DCF3 


ElOO 




079C 


44E6 


7104 


CCF7 


4C0E 


2919 


3509 


D9F4 


4101 


38E5 


7104 


CCF3 


EC83 


3910 


0807 


OOF 3 


DE72 




07A0 


68EB 


1310 


C8F3 


E90C 


38E6 


3149 


CCF4 


1203 


3CE1 


FllO 


D0F3 


E40C 


38E3 


6110 


80F3 


E5DC 




07A4 


38E6 


B105 


CCD3 


E679 


38EC 


F510 


CE36 


E5CC 


38EO 


6909 


A6F3 


8012 


28E4 


F109 


0002 


F800 




07A8 


38E3 


7110 


FCF3 


E73C 


00E2 


FllO 


OOF 3 


FE7D 


3805 


7110 


00F4 


2400 


30E5 


7109 


OOF 3 


COEl 




07AC 


20B8 


F510 


DC33 


E500 


38E5 


7109 


0CF4 


5000 


2CEB 


342F 


DB13 


E407 


44D2 


E280 


04F3 


EC50 




07B0 


3915 


7579 


DAE4 


7FF0 


3CE5 


7109 


CCF3 


ClEO 


3885 


7110 


CC73 


E500 


38i;f 


F939 


D602 


0001 




07B4 


1CE5 


7104 


CCF3 


CCOF 


2879 


3509 


DB81 


0101 


A4E0 


0D04 


8193 


EC82 


38E5 


7006 


COFO 


02DF 




07B8 


38E0 


4959 


0064 


5554 


387F 


F8C7 


D603 


EAD3 


3905 


7110 


CCF3 


E73C 


3915 


7110 


C0F3 


E6DD 




07BC 


39B5 


7111 


CCF6 


E40C 


3905 


7110 


CCF3 


E63D 


39B5 


7111 


C0F6 


E40C 


3D05 


7110 


CCF3 


E630 




07C0 


38E5 


7110 


DC93 


E40D 


3CE5 


7104 


CCF3 


C82B 


38E5 


7510 


DC23 


E40D 


3 8E8 


3510 


D813 


E63D 




07C4 


6CE5 


7109 


C693 


CF95 


2CA4 


E06B 


8CF3 


C012 


6000 


3105 


OOF 3 


E750 


3 8E5 


6110 


8C93 


E400 




07C8 


38E0 


1909 


00F3 


8165 


38A8 


3110 


CCF3 


E50C 


38E5 


7509 


DF43 


0401 


38E5 


7509 


DD43 


CCOl 




07CC 


38E5 


7510 


DD63 


E40D 


38E5 


7510 


DDA3 


E40D 


38E5 


7510 


DDD3 


E400 


38E6 


F509 


DE03 


81CB 




07D0 


38E6 


B509 


DE03 


81CA 


38E5 


7511 


DE94 


2571 


38E6 


7509 


DEC3 


8031 


38E6 


7509 


DF13 


81CA 




07D4 


38B5 


7110 


CCF3 


E50D 


38E5 


7510 


8822 


6400 


6CE0 


IBIO 


FEF3 


640D 


28E5 


7110 


CA93 


E40D 




07D8 


20E0 


1B09 


FEF3 


C030 


34B5 


6305 


8483 


A7CE 


6CE0 


IBIO 


FE93 


640D 


20EF 


EB09 


00F3 


0031 




07DC 


34B5 


6305 


8483 


A7CE 


20E5 


7110 


CCF3 


640D 


38AO 


0910 


30F2 


240C 


3 8A5 


7105 


CCF3 


A7CE 




a7Ea 


6CE5 


7109 


CA73 


81C8 


20E5 


7110 


C2F3 


E40D 


208E 


EllO 


8CF6 


E44D 


6CA5 


7180 


C473 


E73C 
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CONTROL 


STORE 




ADDRESS 




















07E4 


38B5 


7100 


CCF3 


E6BD 


2075 


7100 


DC83 


EBDD 


38F5 


711D 


07E8 


38E5 


7105 


8083 


E609 


34EA 


B509 


DF33 


8030 


6CE8 


8149 


07EC 


38E5 


7109 


CC83 


81CA 


38E5 


7110 


CCF3 


E40C 


20E5 


7149 


07F0 


38E6 


7105 


9CD3 


E4AC 


38E5 


7149 


CCD4 


1E03 


3885 


7425 


07F4 


68E5 


6310 


C8F3 


E40D 


38A5 


7024 


CCF3 


CC6E 


38E5 


7510 


07F8 


00E3 


B109 


C6F3 


81CA 


294B 


3511 


DFC5 


270D 


38E3 


BllO 


07FC 


38E3 


Bill 


CCF2 


245C 


0406 


FllO 


CC82 


2405 


38E5 


7109 


0800 


0417 


FOCD 


CCF3 


C002 


38E5 


7105 


CC93 


E42F 


0405 


731C 


0804 


40E5 


7110 


CAD2 


E40C 


3905 


7110 


8AF3 


E407 


38B9 


FllE 


0808 


309E 


Flic 


CCF3 


E40A 


3106 


231C 


F2F0 


2402 


4401 


EOlO 


080C 


00E7 


F175 


CCF3 


E461 


380E 


F025 


CCD3 


E45B 


38E5 


7529 


0810 


2889 


FllE 


C6F4 


6588 


28B9 


F31C 


F8F4 


6427 


309E 


sue 


0814 


4001 


EOlO 


8C03 


E79C 


0005 


7712 


F103 


E40A 


38E1 


3510 


0818 


0405 


401C 


ECF3 


C800 


2831 


304D 


CCF3 


ECOB 


38E5 


7010 


081C 


OCll 


FllO 


CC94 


676D 


2C07 


AllC 


ACF3 


CBEl 


44DF 


F878 


O820 


34C0 


0805 


7E74 


24CE 


2A00 


ODIO 


8113 


6400 


4600 


OADB 


0824 


3^ES 


7105 


CCD3 


EODF 


2C77 


B30A 


E0F2 


C080 


2CE1 


829E 


0828 


8406 


31EC 


4C94 


6031 


2CE8 


A300 


84F3 


CD4C 


3515 


751D 


082C 


3889 


E31C 


68F4 


6426 


749E 


B31C 


5493 


E4BA 


2D16 


731C 


0830 


2 CD 8 


83ED 


04F3 


EB93 


38E5 


7410 


C673 


E40D 


3915 


74A5 


0834 


2A00 


OC49 


8113 


D800 


38D5 


74CD 


D243 


C853 


38E1 


3510 


0838 


0401 


3110 


CC33 


E4DC 


38Bg 


7110 


CCFO 


A7 8D 


3815 


7549 


033C 


282F 


FA2D 


8093 


EBE3 


451F 


FACD 


80F3 


C002 


04D7 


C305 


0840 


OCAS 


730A 


48F2 


C080 


00A5 


711D 


CC91 


E002 


38E5 


715F 


0844 


2886 


3510 


D2B3 


E44D 


OCll 


FOCO 


CC73 


E76C 


2C0F 


FA25 


0848 


38R5 


750A 


D364 


4080 


3871 


7178 


CCD3 


FF80 


04D7 


C312 


084C 


2820 


0D6F 


80F3 


E406 


4405 


628C 


BCF3 


EC54 


4407 


AllC 


0850 


2CD6 


3105 


CCF3 


E4AF 


3gE5 


7110 


CCF3 


E4BD 


OCEl 


3110 


0854 


04E8 


8349 


04F3 


COOl 


3815 


751D 


D0B3 


EF91 


2C08 


7110 


0858 


2CEB 


6579 


9742 


EEOO 


04D7 


F0A9 


CCF3 


EAOl 


04BO 


0B05 


085C 


2805 


709E 


CCF3 


E429 


28B5 


729C 


FAF3 


E427 


3005 


731C 


0860 


28B5 


751C 


D6E3 


EFCl 


04EA 


8579 


5742 


EEOO 


04A7 


F0A9 


0864 


2880 


0D13 


80F3 


640C 


2805 


709E 


CCF3 


E429 


2885 


729C 


0868 


2885 


751C 


D6E3 


EFCl 


3895 


7065 


CCD4 


3DC8 


3400 


0C9E 


086C 


30C5 


731C 


E090 


27EI 


28B5 


711C 


CCF3 


EFCO 


28D8 


BllO 


0870 


38E8 


7110 


CCF3 


E7DC 


350E 


82C5 


04F3 


E590 


38A5 


74C5 


0874 


38E1 


7110 


CCFO 


240D 


38E8 


7110 


CCFO 


640C 


70EB 


2509 


0878 


38BB 


2110 


BCF3 


E409 


38C8 


7110 


CCFO 


279C 


70EB 


2509 


087C 


38BB 


211C 


BCF3 


E40A 


38C8 


7110 


CCFO 


279C 


70EB 


2509 


0880 


38BB 


2110 


BCF3 


E400 


38C8 


7110 


CCFO 


279C 


70EB 


2509 


0884 


38B8 


2110 


BCF3 


E403 


38C! 


7110 


CCFO 


279C 


70EB 


2509 


0888 


388B 


2 lie 


BCF3 


E40C 


38C8 


7110 


CCFO 


279C 


70EB 


2509 


08 8C 


38BB 


211C 


BCF3 


E40F 


38C8 


7110 


CCFO 


279C 


70EB 


2510 


0890 


0405 


708E 


CCF3 


E458 


28B5 


728C 


F8F3 


E453 


30C1 


3105 


0894 


38A5 


7108 


CCF3 


807E 


0405 


708E 


CCF3 


E458 


2885 


728C 


0898 


70EB 


2510 


1903 


E40D 


3SAS 


7108 


CCF3 


807E 


0405 


708E 


089C 


30C1 


3105 


CC13 


E6B3 


70EB 


2510 


1A13 


E40C 


38A5 


7108 


08A0 


28B5 


708C 


C2F3 


E451 


30C1 


3105 


CC13 


E6B3 


70EB 


2510 


08A4 


0405 


708E 


CCF3 


E458 


28B5 


728C 


F4F3 


E453 


30C1 


3105 


08A8 


38A5 


7108 


CCF3 


807E 


0405 


708E 


CCF3 


E458 


28B5 


728C 


08AC 


38B8 


7110 


CCFO 


278C 


38E5 


7110 


CC93 


E40C 


7005 


6510 


08B0 


30C1 


3110 


CC33 


E40C 


38B5 


7110 


8CF0 


A7 8D 


38A5 


7110 


08B4 


7005 


6510 


5872 


E40C 


28B5 


728C 


FAF3 


E457 


30C1 


3105 


0888 


0C28 


308E 


CCF3 


E458 


3805 


7510 


C070 


64CC 


38E5 


7510 


08BC 


00E5 


7125 


CCF3 


E420 


28E3 


6104 


CCF3 


F526 


00E5 


7125 


08CO 


OOF 5 


7125 


CCF3 


E420 


38A5 


7020 


CCF3 


E4CC 


38E5 


7109 


08C4 


38ED 


3525 


C083 


E42D 


34E9 


3709 


2081 


D804 


38ED 


F510 
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CCF3 DED2 
C4D4 1403 
C0D4 1E03 
8823 E4AD 
8823 E40C 
CC82 240C 
CCF3 8039 
E0D4 2401 
46F4 2809 
8C13 E78D 
D154 0701 
CCF3 E4FD 
C071 E4FD 
CCF3 E38D 
80F4 3F80 
7E73 D801 
E0F3 E828 
D363 C548 
72F0 6483 
C673 E599 
D390 E4DD 
DICO 4000 
C0F3 E8DB 
CCF3 E407 
8093 E54e 
C0F3 ECOD 
ACF3 EC40 
CCF3 E4BC 
CC13 E78C 
7E93 6DA7 
F2F3 E403 
CCF3 EAOO 
FAF3 E427 
80F3 E428 
CCFO 679D 
Ee43 E591 
1793 C07F 
17D3 C07E 
1813 C07E 
1853 C07F 
1893 C07F 
18D3 C07E 
1923 E40C 
CC13 E6B3 
FAF3 E452 
CCF3 E458 
CCF3 807E 
1A63 E40D 
CC13 E6B3 
F6F3 E452 
5B72 E40C 
CCFO 678D 
CC33 E6C3 
C073 E4DD 
CCF3 E420 
CCF3 8035 
C183 E79D 



38E5 


7109 


CCF3 


8030 


38E6 


7105 


CC83 


E4AC 


38E5 


7110 


CC82 


240C 


38E5 


7109 


CC83 


C401 


38ED 


3525 


0083 


E42D 


38ES 


7509 


DFF3 


803C 


38E5 


7105 


CC83 


E41D 


04E1 


3129 


CCF4 


4F00 


28B9 


F31C 


F8F4 


2426 


38E1 


3010 


CCF3 


E40D 


0005 


7110 


CCF3 


E40A 


3116 


631C 


F2F1 


E403 


7411 


02AD 


C4F3 


CCEl 


OC25 


470C 


7193 


COOO 


04A7 


C382 


C0F8 


2C01 


0915 


70CD 


CC03 


C053 


38E5 


629C 


BAF3 


EC27 


30C9 


FliE 


CCF4 


6448 


4101 


EllC 


8C14 


695C 


4600 


0812 


7EF3 


65E0 


383E 


3110 


CCF3 


E79D 


OCll 


FllO 


CCF4 


676D 


0480 


0B69 


7EF4 


0080 


28B5 


528C 


FAF3 


C854 


0818 


9308 


C4F2 


C07F 


OCBO 


0B19 


7EF4 


3F80 


38E1 


FllO 


CCD3 


FC04 


3815 


7510 


C693 


E78C 


04E5 


7149 


0093 


ClOl 


2880 


0D13 


80F3 


640C 


28B5 


731C 


E090 


27E0 


04B0 


0B05 


7E93 


6DA7 


28B5 


731C 


E090 


27E0 


28B5 


709C 


C0F3 


E420 


3808 


7110 


CCF3 


E780 


38A8 


711C 


CCFO 


67CE 


2C0B 


231E 


88F3 


E409 


2C0B 


231E 


88F3 


E409 


2C08 


231E 


88F3 


E409 


2C0B 


231E 


88F3 


E409 


2C0B 


231E 


88F3 


E409 


2C0B 


231E 


88F3 


E409 


38A5 


7108 


CCF3 


807E 


70EB 


2510 


1973 


E40C 


30C1 


3105 


CC13 


E663 


2885 


708C 


C0F3 


E450 


0405 


708E 


CCF3 


E458 


38A5 


7108 


CCF3 


807E 


70EB 


2510 


1AB3 


E40C 


30C1 


3105 


CC13 


E6B3 


2885 


728C 


F8F3 


E456 


38E8 


7110 


CCFO 


3F8C 


04A5 


7108 


CCD3 


807F 


38E5 


7510 


C073 


E4CC 


28E3 


B104 


CCF3 


F526 


38E5 


7104 


CC83 


F526 


38E0 


182F 


2063 


DE76 
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CONTROL 


STORE 














10/ 2/86 


9; 28 AM 


ADDRESS 


































08C8 


38F1 


088D 


0497 


0858 


3810 


0910 


7073 


E74D 


38EB 


8579 


C1F3 


FFFD 


0008 


F51D 


DCD3 


E274 




08CC 


38E5 


7510 


DCF3 


E4DD 


38EB 


B426 


DCFl 


DF33 


3801 


3710 


DCD3 


E67C 


3860 


8910 


00F3 


E50D 




08D0 


38F1 


311D 


CCF3 


EA79 


38C5 


7110 


CCFO 


64CC 


38F5 


7104 


CCFO 


B527 


38E0 


0904 


0673 


FC52 




08D4 


38E0 


0910 


1036 


E5CC 


OOEO 


3B04 


0047 


4C0E 


28E9 


3510 


DF92 


E5DD 


38E1 


8910 


04F3 


E40D 




0808 


38E5 


702F 


CCF3 


EA77 


38E5 


7080 


CCF3 


E45D 


38EB 


B510 


C1F3 


E40D 


10E5 


5304 


3843 


EC83 




08DC 


1834 


OBIO 


00F3 


E6BC 


28EB 


3509 


DF92 


EOOO 


OCFO 


FllO 


DCF6 


E40C 


lOEO 


0910 


30F3 


E40C 




08E0 


38F5 


7110 


CCFO 


E80D 


2CB2 


Fill 


CCF3 


E6BD 


38E3 


7U3 


FCF3 


E79C 


3CE5 


7179 


CCDl 


AOlO 




08E4 


38A5 


7044 


CCF3 


F528 


OOFA 


B510 


DEDl 


640C 


OCEO 


0910 


0CF3 


E60D 


28A2 


Fill 


CCF3 


E6BD 




08E8 


3851 


3110 


CCFO 


A40C 


38F3 


7110 


CCFO 


240D 


3CB5 


7148 


CC13 


COOE 


0C84 


FllO 


CCF3 


E6DD 




08EC 


38E3 


7104 


8CF3 


F526 


38E1 


8910 


04F3 


E40D 


38E5 


702F 


CCF3 


EA77 


38E5 


7080 


CCF3 


E45D 




08F0 


38EB 


B510 


DF73 


E40C 


38E5 


7104 


CCF3 


EC83 


OCEO 


0910 


0EF3 


E40C 


38A1 


3110 


CCF3 


E6BD 




08K4 


0CE4 


F149 


CCF3 


COOl 


38FO 


09 ID 


FEF3 


EED3 


00E3 


6304 


88F3 


F526 


0CE4 


FllO 


CCF3 


E40D 




08F8 


38E3 


7105 


8CF3 


E47D 


A4E5 


7110 


CCFO 


640D 


38A5 


70A0 


CC23 


E7BD 


38E5 


7113 


CCOO 


240C 




08FC 


38E5 


7104 


CCF3 


F527 


38E5 


7110 


CCF3 


E40C 


38E5 


7110 


CCF3 


E40C 
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CONTROL 


STORE 














10 


ADDRFSS 
































0900 


3915 


70C5 


C-'C 


693F 


80A5 


7598 


D931 


DFFE 


3885 


7710 


D691 


E72D 


B3B0 


0904 


C093 


E97A 


0904 


B3B0 


0904 


C093 


E9F7 


3BA8 


0905 


0323 


E62F 


3BA8 


0905 


0528 


25CA 


B3B0 


0904 


E093 


E978 


0908 


B3B0 


0904 


E093 


E9F6 


BOEO 


0905 


7E93 


E612 


3CE7 


3025 


CD23 


E56B 


38E5 


7510 


D583 


E40D 


090C 


38A5 


7510 


DCAl 


A5CC 


38E5 


7529 


D611 


COOO 


44E2 


F104 


DCF7 


A82E 


3875 


7440 


DFC3 


E40E 


0910 


B360 


0905 


7E92 


E78F 


B360 


0905 


E322 


E79E 


18E7 


7109 


C2FC 


8601 


28E6 


F109 


C2F0 


8E01 


0914 


28E5 


7109 


C2FC 


4401 


28EO 


0B09 


1E8E 


5400 


39A0 


0910 


lOFB 


E40C 


2860 


FOAO 


CCF3 


E40E 


0918 


28E0 


F105 


DCF3 


E69B 


38FF 


F910 


F0F6 


A40C 


A5DB 


311E 


4CF1 


E409 


28B8 


3109 


4CF1 


ClOl 


091C 


387F 


5iE0 


86D3 


DCOO 


38F8 


3110 


CCFE 


EEAC 


3862 


A108 


DCFE 


800F 


2CF5 


7110 


CD64 


668C 


0920 


3DD5 


710A 


CD3C 


EOOl 


38EO 


0911 


07A2 


E5DE 


3FB4 


EUO 


9CFF 


2A2C 


38F5 


7105 


8274 


272E 


0924 


1C65 


702F 


C263 


E407 


3CE5 


7080 


CD43 


EC52 


38E1 


EUC 


CD88 


699F 


2CBC 


0A28 


OOF 3 


COOS 


0928 


38A5 


5110 


8293 


E5AD 


38B8 


F56B 


92B8 


0000 


3875 


7485 


D343 


E52A 


3B9C 


08C5 


09D2 


FF2F 


092C 


18D5 


70B0 


C273 


E403 


28E5 


7105 


0273 


E52A 


38EC 


0910 


41D7 


DD8D 


34EA 


F510 


D343 


E40C 


0930 


1F25 


70C7 


C292 


FF2F 


1B83 


70C5 


CCF2 


E72E 


38E3 


5110 


8CF3 


E59D 


34E8 


0C24 


0093 


E976 


0934 


90E0 


OBiO 


1E93 


E40C 


90EA 


8509 


D40F 


9E00 


34A8 


F445 


D3A7 


A90E 


38DE 


7425 


D4A3 


E4EA 


0938 


lAlO 


0A34 


8073 


E8A6 


9BE5 


70C5 


CC62 


E72A 


3825 


70C5 


F262 


E72B 


93CC 


OBIO 


0143 


E72C 


093C 


44A0 


FllO 


CCF3 


E6DD 


4200 


0AC5 


80F3 


E543 


2918 


B511 


D104 


640D 


3918 


3510 


D4F3 


E40C 


0940 


90CE 


7510 


D483 


E59C 


34A8 


F4A5 


D9A3 


E92B 


38D5 


7425 


D383 


E66B 


B8E6 


7129 


CD42 


COOO 


0944 


3BA5 


7509 


DCAl 


8011 


AOEA 


F509 


D391 


80C1 


9B50 


0SC5 


3122 


E72B 


38E5 


7509 


D5A2 


C801 


0948 


2CEA 


B510 


D4A7 


A58D 


34DB 


3435 


DA13 


E687 


8CEF 


F809 


C0F2 


DSOl 


30A4 


F025 


CCF3 


E536 


094C 


B7A3 


7509 


DCAl 


8010 


38E5 


7585 


D9AA 


6687 


3918 


3509 


D4F4 


4007 


3916 


Fill 


CCF3 


E6BD 


0950 


64E0 


OBll 


10F4 


6E3D 


38F8 


A510 


9A61 


A5F7 


3 SBC 


0909 


0293 


D200 


38F4 


EUO 


CCF4 


25D8 


0954 


2CB0 


3108 


C872 


DEOl 


9507 


7113 


CC64 


259D 


1C60 


0A49 


070D 


FFDC 


3CE8 


3104 


CCD3 


EAD3 


0958 


44E4 


F105 


CCF3 


E72E 


18E3 


7105 


CCF3 


E53E 


88E0 


0805 


1E73 


E72E 


8875 


7108 


CCF3 


805F 


095C 


38AF 


F828 


3E73 


C020 


3885 


710D 


CCFl 


9803 


3885 


751D 


DCAl 


ACOO 


38EF 


35E5 


D4F3 


E717 


0960 


39E5 


7445 


DC83 


E4E6 


4475 


70C8 


CCD4 


OOOF 


38E5 


7511 


DDS4 


200D 


3CE5 


7110 


C6F2 


E40C 


0964 


3C7C 


310D 


C491 


A993 


38D2 


FllD 


9CD1 


9D82 


3905 


7579 


DCA4 


3FFE 


390E 


7425 


D653 


E53B 


0968 


38E5 


7105 


CCF3 


E58E 


9910 


1910 


0063 


EADC 


8864 


08A4 


0093 


E976 


ASE4 


9179 


CCF3 


COOO 


096C 


9105 


62C8 


C8F1 


C801 


2BE3 


70C5 


DCF2 


E72A 


A07A 


F425 


D713 


E5C6 


3907 


34A5 


DD83 


E447 


0970 


BB20 


1CC5 


4062 


E72A 


38EF 


F825 


EC73 


E6BB 


38E0 


0929 


3E94 


007E 


3SE5 


7510 


DD83 


E40C 


0974 


38F5 


7108 


CCF3 


COOS 


2F78 


8435 


D7F3 


E5DA 


BOEO 


0825 


7C62 


E72A 


38E5 


7110 


CCF2 


E65C 


0978 


3 8DB 


3529 


DCAl 


8081 


3A05 


7529 


DCAl 


80C0 


88E5 


7105 


CC63 


E72B 


38E5 


7110 


CCF3 


E66D 


097C 


38E5 


71F0 


CCF3 


E40D 


38EF 


3400 


D8D3 


E40D 


38E6 


F104 


CCF3 


EAFA 


44E4 


F025 


CCF2 


E72F 


0980 


18E5 


7105 


CAD3 


E72F 


8060 


0910 


BCF3 


E405 


ZCA3 


7305 


84F1 


A72A 


3905 


7510 


DCAl 


A5CD 


0984 


BOEO 


0825 


E0D4 


2763 


34E0 


0825 


3E62 


E72A 


3BAB 


3529 


DCAl 


8040 


38E5 


7105 


8C63 


E72B 


0988 


3875 


7549 


DCAl 


8000 


3905 


7529 


DCAl 


8009 


38D5 


7510 


DCAl 


A5CD 


2CE7 


3109 


CC98 


0021 


098C 


38EE 


F510 


D732 


E5FD 


44E4 


F105 


CCF3 


E72E 


38E3 


5129 


8491 


80BF 


44E2 


E105 


9CF3 


E72A 


0990 


34E9 


1129 


ECFl 


807F 


3CE5 


7105 


4C73 


E728 


3915 


70C6 


CCF4 


5D3E 


40B7 


FllD 


CCFl 


EIFO 


0994 


3B7E 


F426 


DD83 


E656 


80E5 


7110 


CCF3 


E40C 


8FB4 


E180 


8CF3 


E72D 


8BE3 


51A0 


CCF3 


E5CC 


0998 


2D15 


7111 


CCF3 


E6DC 


9B20 


08C7 


1062 


EB2A 


38EC 


3509 


DCB2 


D601 


18E0 


0B09 


E0D2 


C600 


099C 


38E6 


F105 


F263 


E72A 


9BE5 


72C5 


8462 


E72B 


A31S 


F510 


DAF2 


E5FD 


385C 


3510 


DC82 


E5EC 


09A0 


18E0 


0B05 


8063 


E72B 


98E0 


0939 


1122 


COOl 


38A5 


7105 


CCFl 


A72B 


93C4 


OBIO 


00F3 


E72D 


09A4 


AOEA 


FllO 


CCF3 


EADC 


38E6 


7509 


D5A2 


C801 


BCEO 


0B09 


0677 


6000 


38EB 


8911 


0063 


E5B1 


09A8 


A4BF 


F91E 


F0F3 


E408 


28B7 


FIAC 


4CF3 


E59F 


BEF8 


A310 


C8F6 


A40D 


18E1 


F025 


CC62 


E72F 


09AC 


6352 


OBIO 


00F3 


E670 


2875 


74C4 


CF33 


C9CB 


3875 


74C6 


DA61 


E6BB 


38E5 


7025 


FC6A 


6728 


09B0 


38EC 


3509 


DCB2 


C401 


8060 


0910 


8E63 


E553 


38EC 


35F5 


DCA2 


E6D7 


BOEO 


0905 


7E63 


E72A 


09B4 


3B50 


08C5 


C062 


E72B 


38E5 


71F5 


CCF3 


E6F6 


38EC 


3509 


DCB2 


C401 


18E0 


0810 


08F2 


E5FD 


0988 


28AB 


30C5 


CCF3 


E72E 


38E5 


7529 


DB61 


8032 


3A9F 


3434 


DC83 


E95A 


38EC 


3510 


DCA2 


E5EC 


09BC 


3CE6 


F595 


D013 


E686 


38E5 


7110 


CCF3 


E65D 


385C 


3510 


DCB2 


E40C 


18E0 


0879 


COFS 


7BFE 


09C0 


28E0 


0D05 


6063 


E72A 


3A1C 


34C6 


DCB8 


6707 


38E5 


7110 


CCF3 


E66D 


18E0 


0F05 


2263 


E72B 


09C4 


38E8 


3110 


CCF3 


E40C 


38EC 


3509 


DCB2 


C401 


1C67 


3030 


DC73 


E5F3 


2CAA 


F424 


DC53 


EADA 


09C8 


BB20 


1CC5 


4062 


E72A 


38E5 


7510 


DA63 


E5FD 


3B35 


710D 


CCF7 


3E52 


39D5 


711D 


DC67 


3E52 


09CC 


A460 


5D10 


04F3 


E74C 


90EC 


OBIO 


0153 


EA7D 


18EB 


3509 


CCBD 


4C00 


3868 


B0E6 


CCFl 


A73B 


09D0 


3865 


7426 


DCFl 


A74D 


3B50 


1911 


20F3 


E670 


38EO 


8910 


02F3 


E90D 


94E5 


7111 


DD53 


EA7D 


09D4 


38E0 


0910 


3AF3 


E271 


BOFO 


18CD 


87B1 


AA64 


38F8 


A510 


CFll 


A40D 


ACES 


31C5 


CCF6 


E53E 


09D8 


B3Bn 


1910 


83D3 


E65C 


3B14 


A0C5 


CCF2 


E72F 


B4AB 


12CD 


88F1 


9A65 


47E8 


B104 


CC73 


EAF6 


09DC 


2D18 


317B 


CCFl 


8000 


386A 


90BO 


8E94 


24nc 


1910 


4909 


0064 


4201 


350A 


BOAO 


C0F3 


E400 


09E0 


1910 


1909 


0064 


4801 


3873 


5110 


FCF4 


640D 


44E6 


5025 


8DD3 


E52A 


38E8 


0905 


7E73 


E72F 
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ADDRESS 
































09E4 


38EA 


9510 


98A2 


E40C 


38E5 


7509 


DD84 


OODB 


BOEO 


0905 


E2D2 


E61B 


38E5 


7105 


F09A 


672E 


09E8 


38E5 


74A5 


DD83 


DBE7 


18D0 


0810 


08F8 


25EC 


38A5 


7405 


D773 


E7BF 


38E5 


7549 


DCAl 


8005 


09EC 


3BA5 


757A 


D778 


3FC0 


38E5 


7549 


DOAl 


8005 


3A05 


7406 


DD88 


278A 


BOEO 


0825 


8E62 


E728 


09F0 


BOEO 


0905 


7E63 


E72A 


38E5 


7510 


D0B3 


E5FC 


1866 


3105 


C891 


E72E 


18D5 


7005 


0513 


E6DA 


09F4 


3865 


74A5 


DCB3 


E6DA 


1865 


52A0 


0073 


E40D 


3885 


7445 


DCB3 


EFE6 


1875 


7005 


C4F3 


E60A 


09F8 


8468 


A6A5 


BB63 


E6DA 


3875 


7178 


OOF 3 


FFEO 


2D0B 


3510 


DC53 


E400 


30B6 


7445 


D013 


E53F 


09FC 


IDIF 


E901 


OOF 3 


DF3D 


3D15 


7111 


CCF3 


EB3D 


38A5 


7510 


D4F3 


E6D0 


80B5 


7084 


0CD3 


E807 


OAOO 


38E8 


0824 


0062 


E72B 


lEAE 


0811 


0073 


E63D 


3905 


6028 


8E73 


DOOl 


38A1 


6909 


0091 


0201 


0A04 


38E1 


0909 


OOF 4 


1201 


40A0 


1AC4 


FE62 


E72B 


3D05 


7004 


0062 


E72A 


3B95 


7004 


8C62 


E72B 


0A08 


9BB5 


5110 


CC63 


E5FC 


A8D4 


A0C4 


00F2 


E728 


94E3 


7104 


D0F3 


E69A 


38EC 


0911 


049A 


AABD 


OAOC 


3916 


3110 


F4F1 


A40D 


3FB8 


A310 


8913 


E72D 


38E5 


7113 


DF13 


DADO 


38F5 


7110 


8D04 


2400 


OAIO 


38A5 


7024 


CCF3 


E977 


84E5 


7109 


0063 


EOOl 


8509 


BOCD 


AC98 


6004 


3900 


3128 


8D11 


DIFF 


0A14 


8615 


70C5 


CCD3 


E46B 


A105 


7040 


OOF 3 


E40C 


2CAA 


A104 


C0F3 


E7FF 


84BC 


3064 


0063 


E806 


0A18 


B8E5 


6224 


8462 


E72B 


38E5 


7104 


CCF3 


E806 


410A 


8528 


DlEl 


FIFE 


8109 


9718 


8241 


8001 


OAIC 


3905 


7138 


CCF3 


FIFE 


38EC 


2110 


0073 


E40D 


8355 


7004 


00D2 


E72E 


1DE2 


0020 


0073 


E40D 


OA20 


1870 


OBIA 


COFl 


EOOO 


28EO 


0D04 


4463 


E728 


BB20 


0804 


0462 


E72B 


38E5 


7104 


00F3 


E806 


0A24 


18EB 


3585 


D263 


E47B 


3905 


7528 


DlEl 


FIFE 


38E5 


7110 


00F7 


A40C 


3905 


7538 


DlEl 


FIFF 


0A28 


38E5 


710^5 


CCD3 


E4C8 


3826 


7004 


F262 


E72A 


3900 


0910 


150A 


6406 


20BF 


F80B 


FADl 


801D 


0A2C 


390C 


0910 


0294 


2409 


811B 


3311 


8924 


6630 


1908 


8508 


0844 


OlEl 


3DF5 


751D 


D958 


3E55 


0A30 


850B 


76A5 


B283 


E4A2 


2B8S 


7004 


CCD2 


E72E 


1895 


7004 


CD12 


E72E 


4504 


F028 


CCD3 


0801 


0A34 


18E6 


FlCiS 


8CD1 


E4E7 


2903 


7358 


94F1 


BFFE 


A874 


FllO 


40F1 


E40A 


84E5 


FllO 


CCF3 


E40C 


0A38 


18E3 


5110 


CCFl 


E40D 


8A9B 


3435 


D583 


E526 


3F55 


7004 


0672 


E72F 


1900 


0808 


C0F4 


2000 


0A3C 


3905 


6104 


9C63 


672B 


420B 


3510 


D404 


2400 


3898 


34A4 


97B3 


E53A 


3915 


7509 


D7B4 


4005 


0A40 


3DFA 


BllO 


CCFl 


A402 


IDOF 


E91D 


0074 


3000 


1905 


7110 


0293 


E40C 


2090 


0AA5 


0063 


E51F 


0A44 


290B 


3424 


D7B3 


E4CE 


3918 


B509 


9784 


4005 


3915 


7510 


D7B4 


5000 


19FB 


3510 


D783 


E40E 


0A48 


38B5 


7434 


D463 


E4CF 


41FA 


B510 


D4D1 


A403 


38E6 


A104 


CE93 


E6C2 


1A05 


7025 


0293 


E5C3 


0A4C 


38D6 


F434 


D703 


E4CE 


1A06 


B025 


CEF3 


E503 


18A6 


F044 


0293 


E4CF 


3FB9 


FllO 


06F3 


E620 


0A50 


39EC 


2 DCS 


8073 


E54E 


28EF 


E904 


0073 


E6C3 


3915 


7510 


D7B4 


5C0C 


BOEl 


1905 


FE73 


E687 


0A54 


3A25 


7510 


F9E4 


663C 


2CE5 


5224 


0873 


E806 


38E5 


7110 


CCFA 


640D 


39F5 


75A5 


D521 


A52F 


0A58 


4389 


3510 


D8C3 


E62C 


39E5 


7405 


D8F3 


E68e 


3A25 


7510 


F9E4 


6630 


3CF5 


7108 


OD07 


81E1 


0A5C 


38E5 


7105 


CCF3 


E497 


34E6 


7024 


CDD3 


E52A 


2074 


6508 


D923 


OOIE 


43AD 


FB79 


FEF8 


3FC1 


0A60 


38A5 


71B4 


F094 


25DE 


8505 


7128 


CCFl 


DIFE 


3908 


A6A4 


9113 


E802 


42AE 


B511 


D663 


E63D 


OA64 


28E9 


202 1 


80F1 


A40C 


38E8 


0824 


0262 


E72A 


30E5 


7024 


0092 


E72E 


3907 


D108 


80F7 


OlFF 


OA6 8 


BODO 


0910 


BE68 


26CC 


3915 


5111 


8473 


E63D 


1CF9 


1510 


D6C2 


E589 


3805 


5110 


0E72 


E595 


0A6C 


4600 


0910 


0503 


E74C 


3875 


751D 


DA83 


FED3 


38E5 


7024 


0072 


E72B 


BOEO 


0904 


7E63 


E72B 


rjA7 


41F9 


35B5 


D734 


25DA 


BOEO 


0824 


BE62 


E72A 


BOEO 


0904 


7E63 


E72B 


3BB8 


8510 


97A3 


E62D 


0A74 


39F5 


7425 


DA13 


E5EB 


38E5 


7105 


00F3 


E5EB 


3FB5 


7110 


C663 


E62D 


38E5 


70A0 


D073 


E80F 


DA78 


3.-i68 


65 7 9 


97A1 


BEOl 


3905 


7425 


DA13 


E5F2 


3915 


7105 


CCF4 


5E03 


38E6 


F104 


00F3 


E53A 


rjA7C 


3315 


7510 


D7B4 


580D 


2C74 


8508 


D923 


COIE 


43A2 


0D79 


OOF 8 


3F81 


38A0 


0904 


3094 


25DF 


0A8rj 


42AA 


B51 1 


D251 


A6BC 


8506 


7108 


CCF7 


OlFE 


38F8 


A710 


9118 


26CD 


3905 


50A0 


BD03 


E401 


0A8 4 


38F9 


2100 


COFl 


A585 


38C5 


7510 


D881 


A407 


39E5 


7110 


B0F3 


E400 


2CA8 


BOOS 


00F3 


E626 


OA88 


B8E5 


5110 


8C63 


E40D 


38E5 


7104 


0073 


E72A 


3905 


7178 


00F4 


IFFE 


3885 


7510 


DA83 


E62D 


0A8C 


39E8 


B510 


98E4 


240C 


3885 


7405 


D8F3 


E687 


38E5 


7511 


DBOl 


E401 


3850 


0804 


0062 


E72A 


0A90 


BOEO 


0824 


7E62 


E72A 


3AAB 


3510 


DF03 


E6BC 


3516 


6110 


0D23 


E65D 


38E3 


6184 


F0F3 


E763 


0A94 


3C75 


7108 


CCF4 


OlEO 


38EC 


0805 


0493 


EA63 


3905 


7424 


DB03 


E977 


3CEB 


3510 


D5D3 


E40C 


0A98 


44E2 


F113 


DC91 


A66D 


3CA5 


7111 


CODA 


A6BD 


3915 


7110 


F4F3 


DABC 


30F8 


A310 


8914 


25EC 


0A9C 


3915 


70ei9 


DF18 


800B 


38F5 


7008 


8D07 


81E0 


38AO 


0911 


049A 


AE8D 


3008 


3512 


D5D3 


E2BD 


OAAO 


3CF8 


3110 


CCD4 


240C 


391C 


0910 


0493 


E40C 


30E0 


F113 


COFl 


ACOD 


3CA4 


F0D7 


0CF3 


ED77 


0AA4 


18F8 


A3 10 


80F1 


A40C 


20CF 


EB08 


1E63 


ClEl 


3880 


0827 


20F3 


E176 


18E3 


6000 


80F3 


E40D 


0AA8 


3905 


702 8 


BCD3 


0801 


8104 


FOOD 


CCF3 


E19B 


B0E3 


6310 


C0F3 


E250 


4208 


A396 


C8F8 


2686 


OAAC 


2CE3 


7113 


CC93 


E591 


80E4 


EUO 


CCF3 


E66C 


38E3 


7179 


8CF3 


DOOO 


3A08 


2024 


0093 


E977 


OABO 


4105 


702F 


C2D3 


E407 


38E5 


7080 


82F3 


EC53 


20E9 


A179 


8CF3 


0005 


3918 


2110 


0094 


6A3D 


0AB4 


47B6 


7110 


CCF3 


E72C 


38E5 


7513 


D5D3 


EADD 


38E5 


7104 


CCF3 


E6F7 


3B65 


7004 


0062 


E72A 


0AB8 


3B50 


08C4 


D262 


E72A 


6360 


1804 


0062 


E72B 


38E5 


7104 


CCF3 


E6F7 


3815 


70C4 


F062 


E72B 


rjABC 


3 8r5 


7104 


CCF3 


E722 


38E6 


FllO 


C0F3 


E40D 


47B5 


7110 


CCF3 


E72C 


38E5 


7113 


D073 


EADC 


OACO 


B8Ff 


El 09 


8C64 


0008 


2B25 


70C4 


4062 


E72B 


9BE0 


18C4 


0062 


E72A 


9300 


OBAO 


00F3 


E72D 


0AC4 


3300 


7100 


CCF3 


EADD 


3905 


7110 


OOF 3 


EEDD 


38E5 


7104 


OOF 3 


E69B 


38E0 


1979 


FEF2 


COOl 
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CONTROL 


STORE 














10> 


DDRE' 
0AC8 


38A6 


3104 


CCF3 


A72F 


21A0 


0B04 


1E7B 


FC3B 


3871 


FllO 


CDE3 


A43D 


2865 


708E 


C3C3 


E459 


OACC 


38B5 


708C 


CCFl 


A4SD 


3870 


0910 


1E73 


A5FD 


18E6 


FllE 


CCF3 


E408 


2897 


F3AD 


F4F3 


DC45 


OADO 


38E5 


6129 


C0F2 


COOO 


38A0 


1910 


FEF7 


6801 


38A0 


2904 


0093 


A72F 


18E0 


4B10 


0097 


5804 


0AD4 


1805 


70C4 


CCD2 


E72E 


18E0 


0B09 


20F2 


E600 


38A5 


7024 


8C63 


E44B 


38DS 


7024 


F2F3 


E44A 


0AD8 


BOAS 


7104 


CC91 


A72F 


38D5 


70C4 


CCF2 


E72E 


38E5 


7040 


84F3 


D80E 


18E0 


0A24 


0E93 


EBB3 


OADC 


38E0 


1824 


FE92 


E72F 


38E5 


5110 


84F3 


D80B 


38B5 


70CD 


8C64 


2802 


38D1 


6904 


OOF 3 


A44B 


OAEO 


38A5 


70C4 


CCF2 


E72F 


3865 


7108 


CCF3 


800F 


2D05 


708E 


CCD3 


E458 


28B5 


708C 


CCF4 


245D 


0AE4 


38E5 


7113 


CCF3 


A80D 


41D6 


FllE 


CCFl 


E409 


28E7 


F3A0 


F4F3 


E44D 


3895 


7049 


CCF3 


FFFO 


0AE8 


3885 


7110 


CCF3 


A40D 


ICEO 


0B09 


F0F3 


81FF 


3895 


711D 


CCF7 


6803 


2CE0 


4D04 


0063 


E44B 


OAEC 


38D5 


710B 


CCF3 


804F 


38E5 


7024 


CCF2 


E72F 


1885 


7110 


C4F3 


E40C 


2CE5 


6224 


8463 


EB77 


OAFO 


38F5 


7108 


CCF3 


EOOO 


2D1B 


3510 


D7B4 


5C0C 


BOEO 


0824 


BC62 


E72B 


3B65 


7004 


CCF2 


E72F 


0AF4 


98EO 


08A0 


80D3 


D80C 


BOEO 


0824 


E262 


E72A 


B0E5 


7024 


0062 


E72A 


B0E5 


7104 


8C63 


E72A 


OAF 8 


BOEO 


0904 


E263 


E72B 


B0E5 


7104 


0063 


E72A 


38E5 


7510 


D7B3 


E40C 


38E5 


7509 


CE84 


4149 


OAFC 


38E5 


7110 


CCF3 


E40C 


2085 


711C 


DC82 


2401 


38E5 


7105 


CCF3 


A71E 


38E5 


7110 


CCF3 


E40C 


OBOO 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0B04 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0808 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


OBOC 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


OBIO 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0814 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0818 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


QBIC 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0001 


0002 


0003 


0004 


0820 


39D5 


71 ID 


DC87 


3ES2 


A4E0 


5D10 


04F3 


DB4D 


38E5 


7110 


CCF3 


EA7C 


18EB 


3509 


C0B8 


1804 


0824 


38EB 


B0E6 


CCFl 


988E 


38E5 


7426 


D241 


9B4C 


3A00 


1910 


20F3 


E67C 


A4E5 


71C0 


DCF3 


E90D 


0828 


38F0 


88C7 


02F3 


EB30 


38E5 


7111 


CCF3 


EA7D 


38E0 


0910 


3AF3 


E271 


38F5 


70CD 


CCFl 


AA64 


0B2C 


2CFB 


3110 


CCFl 


A40D 


3861 


31C8 


FCF3 


C038 


3888 


30C5 


CCF3 


E750 


74E0 


OBOg 


0EF3 


D668 


0B30 


2CE4 


6109 


8CF3 


coil 


74E0 


2310 


C8F3 


E40D 


38A5 


7025 


DCF3 


E4F8 


28E8 


3349 


F78A 


0000 


0B34 


38E6 


3105 


CCF3 


E4F3 


38E7 


3105 


CCF3 


E4F2 


38E5 


7105 


CCF8 


F8F2 


38E5 


7105 


CCF3 


E4F2 


0838 


38E0 


0905 


06D3 


E76F 


38E0 


0905 


08D4 


279A 


38E5 


7105 


CCF3 


E4F8 


38E5 


7105 


CCF3 


E4F8 


0B3C 


38E0 


09B4 


0673 


FC53 


54E5 


4110 


0003 


A7EC 


5575 


4179 


8D32 


FFFA 


4955 


4310 


ICFl 


C80D 


0840 


5405 


411E 


4013 


FC05 


48A5 


631E 


9CF3 


FC04 


4875 


531E 


DCF3 


FCA4 


38E2 


4139 


0CD4 


7FFE 


0844 


38E5 


7110 


CCF2 


C69D 


3CE5 


7109 


CC83 


8009 


44F5 


6310 


8892 


240D 


3910 


091D 


0704 


2004 


0848 


3892 


7179 


9CD3 


BFFA 


80EF 


F911 


FF02 


FE9D 


3C95 


7109 


CC83 


8008 


34F5 


6310 


8492 


240C 


0B4C 


8108 


B51D 


D484 


2C03 


38BF 


3585 


DAE 2 


E6BE 


0040 


0B08 


7EF3 


C07E 


28BO 


ODOA 


8003 


0081 


0B50 


OOBF 


FBIO 


8101 


240D 


3846 


6198 


4D18 


3F80 


38E5 


7000 


00F3 


E40C 


7608 


F510 


D764 


6400 


0854 


3508 


3425 


DF73 


E7DE 


0405 


7110 


CC92 


E40C 


38E5 


716F 


00D3 


E406 


28B5 


5280 


3AF3 


D455 


OE58 


2885 


7110 


GDAA 


E40C 


38E5 


7110 


8CC2 


BCOD 


0405 


7110 


0092 


E40C 


38E5 


716F 


0CD3 


E406 


0B5C 


28B5 


528C 


BAF3 


DC55 


28B7 


AllC 


4CC2 


B801 


AABl 


BllC 


ODAA 


E401 


38E5 


7110 


8D43 


E40D 


0B60 


1445 


7110 


CC92 


E40C 


38E5 


716F 


CODA 


6407 


28B5 


428C 


BAF3 


CC55 


28A7 


AllC 


4002 


B800 


0864 


AABl 


BllC 


CDAA 


E401 


38E5 


7110 


CCF3 


E40C 


9067 


6110 


8D42 


E40D 


1E91 


BllC 


009A 


6400 


0868 


38E5 


71EF 


CCD3 


E407 


28B5 


428C 


BAF3 


CC55 


28E5 


7110 


CCF3 


E40D 


28A5 


7110 


CAFl 


E407 


0B6C 


9297 


Alio 


8C93 


E40C 


2E31 


BllO 


CCF2 


A40D 


38A5 


7110 


OOF 3 


F800 


2877 


AllC 


4CD2 


ECOl 


0B70 


AABl 


BllC 


CC04 


2401 


84E6 


7110 


CCC3 


A43C 


8201 


F138 


CCF3 


FFFF 


2E05 


6110 


8CF3 


E40C 


0B74 


80A7 


E369 


C0F3 


ClOl 


38E5 


6105 


CD03 


E71F 


40DB 


3425 


DF73 


E697 


38E5 


4110 


8AF3 


0007 


OB78 


2CE5 


6310 


8424 


040B 


38E5 


4110 


86F4 


0407 


40E5 


6310 


8413 


COOB 


40E5 


6310 


C404 


1C07 


0B7C 


3805 


4112 


CA33 


DOOD 


38E5 


511C 


8AF3 


ED5C 


40E5 


6310 


84D4 


140A 


38E5 


5110 


86F4 


1407 


0B80 


40E5 


6310 


8453 


DOOB 


40E5 


63F9 


C443 


8035 


3A05 


7110 


CC93 


E44D 


80E7 


E310 


C0F2 


DCOA 


OB84 


1056 


711E 


CCF3 


E409 


0015 


628C 


BCF3 


EC55 


38E5 


711C 


4264 


2000 


34E5 


7110 


0C59 


BOOD 


OB88 


38E5 


611C 


FC44 


6800 


38E5 


71EF 


CCD3 


E407 


28BS 


428C 


BAF3 


CC55 


28B5 


7110 


C0D2 


E40D 


0B8C 


38E7 


831C 


ACD2 


FCOO 


1901 


B31C 


AC74 


3D90 


38EA 


A529 


992A 


8000 


0837 


BllO 


8CD2 


FOOl 


OB90 


0101 


911C 


CC74 


0400 


4445 


7110 


CC59 


A40C 


3906 


51FF 


CCF3 


E406 


0015 


6280 


BCF3 


EC55 


0B94 


38E5 


611C 


8359 


6C00 


34E5 


7110 


CC64 


7C0C 


38E5 


71EF 


CCD3 


E407 


2885 


428C 


BAF3 


0055 


0898 


2885 


7110 


CCF3 


E40D 


9655 


631C 


ACF3 


ED90 


38EA 


A511 


99D3 


E40C 


4465 


7310 


ECFl 


ACOl 


0B9C 


38E5 


7110 


CCF4 


680C 


3A65 


5110 


8C91 


240D 


8201 


F138 


CCF3 


FFFF 


28D5 


61E0 


ECF2 


E43C 


OBAO 


46A5 


7100 


CCD4 


680D 


38B5 


7179 


CC94 


7F81 


1055 


702F 


CCF3 


E406 


38E5 


6280 


BA04 


2056 


0BA4 


44E5 


7105 


CD03 


A71E 


6107 


3025 


CC33 


E7DE 


8C44 


7108 


CCF3 


C07F 


44E3 


6110 


CCF3 


E40C 


0BA8 


14A3 


7110 


CCF3 


E79C 


18E3 


7110 


CCF3 


E40D 


1CE3 


7110 


C0F3 


E40C 


3830 


0840 


14D3 


CFEO 
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CONTROL 


STORE 














10/ 2/86 


9:28 AM 


ADDRESS 


































OBAC 


8CE5 


7010 


CCF3 


E7FD 


3955 


7512 


C700 


288C 


3A87 


7110 


CCFO 


OOOC 


3 805 


7110 


CCF3 


FC02 




OBBO 


34B8 


8025 


CCD3 


E7DF 


3905 


70C0 


CC03 


E40C 


38E5 


7110 


CC91 


2400 


1877 


811C 


ACF3 


CCOO 




0BB4 


0045 


4110 


02F3 


0002 


2C51 


AllC 


ACF3 


C400 


3A8F 


F80E 


F8F3 


E809 


28E9 


BUO 


0CF3 


E470 




OBBS 


3846 


351D 


D4E3 


C140 


8201 


F138 


CCF3 


FFFF 


2CE5 


6110 


ACF3 


A40C 


38A1 


C910 


00F3 


6801 




OBBC 


40CB 


3462 


DFA3 


E80C 


38E8 


3505 


9FA3 


E7E8 


1877 


B31C 


E0D2 


E400 


1051 


B31C 


E0F3 


E400 




08C0 


28B5 


709E 


CC44 


2428 


2885 


729C 


FA44 


2427 


0837 


BllC 


8CD2 


FCOl 


1101 


811C 


0C04 


0401 




0BC4 


28B5 


731D 


84F3 


FC32 


80B7 


FllO 


CCF3 


E802 


80B5 


6025 


8303 


E7DF 


0109 


FllE 


CCF3 


E408 




0BC8 


28B9 


F31C 


F804 


2426 


38E7 


BUC 


9CD2 


FCOl 


0101 


BllC 


CCF3 


E400 


2 885 


731C 


FA04 


2407 




OBCC 


6095 


711C 


CC53 


E40A 


80B5 


411C 


0CF3 


E40A 


2CB7 


E310 


8490 


2B6C 


8CE4 


7110 


CC73 


E40C 




OBDO 


3803 


4110 


0CF3 


E79D 


40E3 


7110 


CCFl 


BCOC 


3903 


7110 


8CF3 


FC03 


1883 


71 ID 


CCF3 


EB82 




0BD4 


34D8 


A235 


C4F3 


E75A 


38E5 


7410 


0063 


E5A0 


3850 


0910 


1003 


07E0 


38E:E 


E040 


8CF3 


ECOC 




0BD8 


38E1 


2010 


8CF3 


E7F0 


395E 


F112 


CCFO 


1C80 


38E5 


7105 


9CD3 


E5C1 


38EC 


8513 


0084 


2400 




OBDC 


5575 


6110 


8C02 


FOOC 


38E5 


7110 


CCF3 


E4CC 


410B 


3711 


BE51 


C290 


5CB5 


611E 


FCF3 


BD25 




OREO 


4905 


52C1 


DCF4 


240C 


3885 


7149 


CCF4 


4000 


38C4 


4025 


0CF3 


E77A 


5C05 


4112 


3CF3 


8D2C 




0BE4 


4513 


701D 


CC83 


F392 


38E5 


7010 


CCF3 


E79D 


04ED 


3525 


C083 


E42D 


5555 


6110 


8CF0 


OOOC 




0BE8 


28A5 


7510 


DFIO 


6 400 


74A1 


12A0 


C4F3 


DCOl 


1CE7 


FOlO 


CCF3 


E400 


4005 


7062 


AC73 


OFBC 




OBEC 


2CE8 


B513 


DEF4 


279D 


0475 


7425 


OF 13 


E41D 


38E5 


7510 


DEB3 


E40C 


38EE 


F510 


C073 


E76C 




OBFO 


3905 


701D 


CCF3 


EF91 


6D05 


7110 


OC72 


EA9C 


5CB5 


611E 


FCF3 


A925 


4122 


411E 


OC73 


FC05 




0BF4 


5CA5 


611E 


BCF3 


9024 


4885 


5310 


OCFl 


E400 


2105 


7001 


CC94 


240C 


8CE4 


702F 


CCF3 


E406 




0BF8 


38E3 


7080 


CCF3 


E45D 


38EF 


3410 


OA83 


E790 


8C04 


7108 


CCF3 


C07E 


80E3 


6110 


CCF3 


E40D 




OBFC 


04A3 


7110 


CCF3 


E79D 


0823 


7110 


CCF3 


C403 


0C33 


7010 


CCF3 


CF83 


38E5 


7110 


CCF3 


E40C 




OCOO 


3816 


3'j08 


DlAl 


83FF 


3805 


7508 


DlAl 


83FF 


38E5 


7105 


CCF3 


E4F8 


38E5 


7105 


CCF3 


E4F8 




0C04 


38E5 


7105 


CCF3 


E4F8 


38E5 


7105 


CCF3 


E4F8 


3807 


3508 


DlAl 


83FO 


38E5 


7105 


CCF3 


E4F8 




0C08 


38E5 


7105 


CCF3 


E4F8 


BCOO 


0004 


03F1 


C3E3 


3805 


7105 


CCFl 


E410 


3805 


7510 


0423 


E540 




OCOC 


33E5 


7511 


D3C3 


E40D 


60EA 


8510 


C4A6 


E40D 


38F1 


8975 


0474 


6461 


38A0 


0910 


0E73 


E670 




OCIO 


S.TIS 


0909 


02D4 


1800 


28F1 


3125 


CCF3 


E421 


IDIO 


FOCO 


DC63 


E40D 


38E5 


7145 


CCF3 


E421 




0C14 


18E2 


F109 


DCF2 


COIB 


40F4 


FllO 


CCF6 


E5B0 


3CE5 


7129 


C014 


4001 


3910 


0007 


0293 


FCF8 




0C18 


380B 


B510 


C1F7 


640C 


34E8 


3110 


C293 


E5CC 


34E0 


0804 


3C97 


OCOA 


1875 


50D7 


90F3 


DB3C 




OCIC 


8465 


6188 


9C97 


40FF 


38DF 


3510 


0504 


25E3 


3582 


FllO 


CCF7 


A40D 


38E3 


TllO 


FCF3 


E40C 




0C20 


3CEB 


3510 


F393 


E40C 


38E5 


7113 


CCF7 


A80C 


3CE7 


F395 


8873 


E4A3 


30E4 


0B29 


00F2 


EOOl 




0C24 


3878 


A568 


9374 


0001 


44E8 


A310 


C0F3 


E79C 


3008 


F425 


02E3 


E4BB 


38E5 


7511 


D373 


E79C 




0C28 


451B 


1710 


F373 


E79C 


3881 


3186 


CCF4 


2C0E 


3CE0 


0839 


1EF2 


EOOl 


4505 


6027 


9CD3 


DCBB 




0C2C 


38EB 


2511 


F2E3 


E79D 


44E0 


0910 


0403 


E790 


38EF 


F910 


FAF3 


E40C 


34D4 


F190 


CCF3 


EB30 




0C30 


1800 


0810 


0E63 


E6DC 


38E5 


7104 


CCF3 


EC83 


38E3 


7110 


BCF3 


E400 


3943 


BlEl 


CCF5 


270C 




0C34 


38E0 


8910 


00F3 


E4CD 


38A5 


7110 


CCF3 


E67D 


38E5 


7510 


C073 


E40C 


38D5 


7110 


CCF3 


E73C 




0C38 


39E5 


7510 


D333 


E6DD 


38E5 


71FF 


CCF3 


E407 


38E5 


7080 


CCF3 


E450 


38E5 


7105 


CCF3 


E47A 




0C3C 


08BD 


3427 


C0B3 


F021 


04A7 


F1B4 


CCFl 


8C0A 


3823 


B508 


0444 


OOFE 


4508 


B5A5 


0332 


C503 




0C40 


38E5 


4024 


0C63 


EC83 


38E5 


7510 


D333 


E79C 


04E5 


7145 


CCF4 


2420 


28A0 


0B34 


FE91 


8C0A 




0C44 


18EE 


91A9 


90FA 


3FF6 


84E0 


E027 


9CF3 


0830 


38EE 


8509 


04A7 


6000 


38F4 


09FF 


00F3 


E407 




0C48 


38F8 


A080 


DCF3 


E45D 


38F4 


0826 


00F3 


E512 


40F8 


B510 


D3F4 


6804 


3808 


A5A5 


D332 


C132 




0C4C 


38E1 


3024 


CCF7 


6C83 


3A05 


7080 


CCF3 


E40D 


2E88 


F426 


D4CA 


253F 


3865 


7510 


0330 


65EC 




0C50 


18F5 


5109 


86F3 


C035 


2003 


2108 


8CF3 


805F 


38E5 


7110 


CC73 


E400 


3886 


0913 


00F3 


E40C 




0C64 


3CA3 


62C4 


C8F2 


EC82 


38E0 


0979 


0872 


FFFl 


34E4 


DUO 


CC93 


E400 


38E3 


70C6 


CCF2 


FD5A 




0C5 8 


38E0 


0909 


10D2 


DCOl 


38E2 


0904 


0093 


EC82 


34EB 


1379 


B8F4 


7BFE 


38E1 


3509 


0332 


C201 




0C5C 


38EO 


2904 


0093 


EC82 


18E8 


8309 


88F1 


ECOO 


3805 


7510 


0334 


2F9C 


3870 


0BC4 


1062 


EC82 




0C60 


38E5 


7149 


CCF3 


ClOl 


2005 


70C4 


CC62 


EC83 


3870 


08C4 


6062 


EC83 


3912 


48C6 


00F4 


658E 




0C64 


38AO 


0904 


4064 


eC83 


3915 


70C4 


FC62 


EC82 


38DO 


08C4 


2072 


EC83 


3862 


E8C0 


00F4 


5C04 




0C68 


38A5 


70C4 


CC62 


EC82 


3915 


7512 


0333 


0F9D 


70E5 


70F5 


CCF6 


E529 


38A5 


6109 


4C73 


81CD 




0C6C 


70EB 


3509 


D724 


0401 


3880 


F508 


C186 


C03E 


1C80 


4978 


OOF 3 


FFCO 


38A3 


FllO 


CCF3 


EEBD 




0C70 


38E5 


7110 


CCF3 


E40C 


38F5 


7010 


CCFl 


E790 


38E5 


4125 


0CF3 


E421 


3905 


7110 


CCF3 


EABC 




0C74 


38E5 


7110 


CCF3 


E40C 


38F5 


7108 


CCF6 


C03E 


ICFO 


4978 


OOF 3 


FFCl 


38A5 


7110 


CCF3 


EEBC 




DC 7 8 


38E5 


7110 


CCF3 


E40C 


38F5 


7010 


CCFO 


279C 


70E5 


70F5 


CC96 


E529 


38A5 


6109 


4C73 


81CD 




or, 70 


70EB 


3509 


0824 


0401 


3885 


7108 


CCF6 


C03F 


1C80 


4978 


00F3 


FFCO 


38A5 


7110 


CCF3 


EF3C 




or, 80 


3805 


7 110 


CCF3 


r/lBC 


38C8 


7110 


CCF3 


E6DC 


3105 


7110 


4C73 


C2BD 


38E3 


BllO 


CCF3 


E40C 




0C84 


38FD 


3508 


C086 


C)-!F 


38F5 


7178 


CCF3 


FFCO 


3875 


7110 


CCF3 


EF3D 


3813 


BUO 


CCF3 


E40C 




OC8 8 


3 8r,s 


7110 


CCF3 


f i.DC 


38E0 


0910 


1E76 


E40D 


38E0 


4910 


0093 


E40D 


38E5 


7110 


CCF3 


E40C 




0C8C 


ICDF 


F910 


FE73 


DF.BD 


3075 


7109 


CCF3 


81CC 


30F8 


B510 


D8C2 


240D 


38E5 


7184 


CCF3 


F526 
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CONTROL 


STORE 














10/ 2/86 


9; 28 AM 


ADDRESS 


































0C90 


38E5 


71A4 


CCF3 


FZ4F 


38E5 


7104 


CCF3 


COCA 


38E6 


B104 


CCF3 


F226 


38ED 


B510 


C1B3 


E40C 




0C94 


38E5 


7109 


CCF3 


8077 


3985 


7110 


CC8e 


E40C 


50E4 


F119 


CCF3 


EOOO 


2CE3 


7109 


CCF3 


8071 




OC9 8 


3941 


8910 


0493 


E70D 


38E5 


7510 


DE43 


E40C 


38F5 


7110 


gC73 


E40D 


78E5 


7105 


CC93 


E793 




0C9C 


1CE5 


7310 


8073 


E40D 


7CE5 


7109 


CC93 


D8D5 


2CE4 


FllO 


CC83 


E44C 


38EB 


1109 


CCF3 


C021 




OCAO 


34E4 


E310 


C083 


E40D 


50E4 


F119 


CCF3 


ElAl 


2CE3 


7108 


CCF3 


8071 


3941 


8910 


F493 


E70C 




0CA4 


38E5 


7510 


DE43 


E40C 


38F5 


7110 


8C73 


E40D 


7gE5 


7105 


CC93 


E793 


1CE5 


7310 


8073 


E40D 




OCAS 


7CE5 


7109 


CC93 


D8F4 


2CE4 


FllO 


CC83 


E44C 


38EB 


1109 


CCF3 


C021 


34E4 


E309 


C083 


804F 




OCAC 


50E4 


F109 


CCF3 


COID 


38E3 


6109 


CCF3 


DA07 


38E4 


EllO 


CCF3 


E40D 


38E0 


3109 


CC83 


8077 




OCBO 


38E5 


7110 


CCF3 


E40C 


388C 


3400 


DB33 


E40C 


38E5 


7110 


CCF3 


E40C 


38C5 


7110 


CCFl 


E40C 




0C84 


38B5 


7110 


CCF3 


E403 


2CE3 


FB05 


FE93 


E792 


3875 


7168 


8C74 


0002 


38E0 


0905 


3A93 


E792 




0CB8 


1CE5 


7309 


8073 


C03A 


3gE5 


6109 


C0F3 


8046 


3901 


A91D 


0694 


2802 


2CE0 


0E20 


02F3 


DCOD 




OCBC 


34E4 


FllO 


CCF4 


280D 


38E0 


3110 


CCFl 


E4FC 


40E4 


FllO 


CC83 


E40D 


38E5 


7110 


CCF3 


E40C 




OCCO 


38EC 


3400 


DC13 


E40C 


38E0 


5910 


20F6 


E4FD 


3942 


Elll 


8CF5 


270C 


38E0 


0909 


08F3 


8075 




0CC4 


3CE3 


6309 


84F3 


C5FF 


38BS 


7110 


CC83 


E6BD 


38E5 


7109 


CCF3 


C422 


38F5 


7110 


CCF3 


EF3C 




0CC8 


38E5 


7110 


CCF3 


E6DC 


38E5 


7110 


CCF3 


E6DC 


38E0 


0910 


7EF3 


E6DC 


38A5 


7110 


CCF3 


E6DD 




OCCC 


38E5 


7010 


CCF3 


E40D 


70E8 


B0F5 


CC96 


E528 


OOEC 


B509 


C082 


C400 


2CA5 


6110 


4C73 


EEBD 




OCDO 


70DB 


3110 


CCF3 


E2BD 


38F5 


7508 


DD46 


C03E 


70C8 


B178 


CCF3 


FFCl 


3885 


7510 


DD83 


DE3C 




0CD4 


38F5 


7108 


CCF6 


C03E 


38C5 


7178 


CCF3 


FFCO 


3 8BD 


F510 


C183 


DE3D 


38E3 


F104 


CCF3 


CCD3 




0CD8 


3CE1 


3010 


CC03 


E40C 


3gE0 


48F5 


0096 


E528 


70A5 


7110 


CCF3 


C2BD 


38D5 


7110 


CCF3 


EABC 




OCDC 


70FB 


3108 


CCF6 


C03E 


34CC 


2178 


4CF3 


FFCl 


38B3 


B510 


DE23 


EB3C 


38F5 


7108 


CCF6 


C03E 




OCEO 


34C5 


6178 


4CF3 


FFCO 


00B3 


6510 


DE33 


EB3C 


04E3 


B145 


CCF3 


E421 


38A8 


7110 


CCF3 


E6DC 




aCE4 


38E5 


7110 


CCD3 


E65C 


34EB 


3510 


DE93 


E40D 


34EA 


F109 


CCF3 


C003 


2CD5 


7310 


80D3 


E402 




0CE8 


2CB5 


70C5 


CC93 


E79A 


38E8 


BllO 


CCF3 


Ee6C 


38E8 


3110 


CCF3 


E40C 


38EC 


8509 


0083 


8078 




OCEC 


3944 


Elll 


8CF5 


270C 


38E3 


B109 


CC83 


807A 


38E5 


7010 


CC83 


E40C 


38E5 


7109 


CCF3 


807D 




OCFO 


38E5 


7104 


CC83 


F526 


38E5 


7110 


CCF3 


E40C 


38E5 


7110 


CCF3 


E40C 
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ADDRESS 










ODOO 




38FO 


0909 


2A93 


DAOA 


0D04 




38E8 


2105 


BC7 3 


E400 


0D08 




3945 


7511 


D405 


270D 


ODOC 




38E5 


7104 


CCF3 


E34F 


ODIO 




38E5 


7104 


CCF3 


E302 


0D14 




38E5 


7104 


CCF3 


F3AF 


0D18 




38E5 


7105 


CCF3 


E4F8 


ODIC 




38E5 


7105 


CCF3 


E4F8 


0D20 




38E5 


7104 


CCF3 


F802 


OD24 




38E5 


7110 


CCF3 


E40C 



CONTROL STORE 



2CE4 F109 CCF3 8033 38E0 3110 CCD3 E57C 34F2 

3CE5 7513 D443 EABD 3CE5 7513 D463 EABC BCEF 

38E0 0904 0693 E313 38E2 0904 0097 5E97 38E5 

3945 7106 CCF5 252A 38E5 7104 CCF3 E2F3 38E5 

38E5 7104 CCF3 DFDF 38E6 3104 CCF3 F227 38E6 

38E5 7104 CCF3 F3BE 38E5 7105 CCF3 E4F8 38E5 

38E5 7105 CCF3 E4F8 38E5 7105 CCF3 E4F8 38E5 

38E5 7104 CCF3 F603 38E5 7104 CCF3 F64B 38E0 

38E0 0904 0873 F883 38E1 3104 DCF6 F9DF 38E5 



10/ 2/88 9:28 AM 



F06B CCF3 C021 

EB05 FFF3 E527 

7104 CCF3 DE22 

7104 CCF3 E2FA 

7104 CCF3 F24A 

7105 CCF3 E4F8 
7105 CCF3 E4F8 
0904 0AD6 F733 
7110 CCF3 E40C 



PAGE 528 CONTROL STORE 10/ 2/86 9:28 AM 

ADDRESS 

0D40: BCEO IDIO 01F3 E40D eOEA BllO C0F3 E40D BCE9 3510 C953 E40C 38E8 7110 CC('3 E40D 

0D44: 3BF5 7175 CCF2 E860 38F5 7510 D491 ECFC 3BF5 7125 CCF2 E821 34F4 FUO CCF3 EEDC 

0D48 0003 7512 D49F E4CC 3945 7511 C065 270D 2CD4 3111 CCF3 E63C 38EO 0949 0E91 COOO 

0D40: fiOFA BUD C0F3 EED3 38E6 B549 C9E4 1802 BCD8 5310 C5F3 E50C 38E5 7110 CCF3 E40C 

0D50 38E5 7110 CCF3 E40C 
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CONTROL 


STORE 














10 


ADDRESS 
































0D80 


50E4 


31.09 


DCF3 


81D3 


38E0 


0910 


08F6 


E40D 


3882 


E178 


8CF3 


FFCl 


2C80 


4908 


12F6 


C03E 


0D84 


3D60 


EJ.79 


8C73 


FFFE 


3942 


AlU 


CCF5 


240C 


38FB 


F828 


FEF3 


C400 


3D23 


6219 


88F3 


FFFD 


OD88 


38EF 


FJIIO 


F4F3 


EE2C 


48AO 


0910 


46F3 


DEBC 


3CE0 


Alio 


AC73 


E400 


3P.F5 


712A 


CCF4 


0000 


0D8C 


38F5 


70C0 


CCF2 


E40C 


2D03 


7110 


0CF3 


E6DD 


28AF 


F910 


F2F3 


0F2D 


3 8A9 


20A1 


8CF3 


E400 


0D90 


38E8 


7110 


CCF3 


E6DD 


38E5 


7010 


CCF3 


E6DD 


3945 


7111 


CCF5 


270C 


3flED 


3510 


C0B6 


E40C 


0D94 


38ED 


7109 


CCF3 


C009 


38E5 


7510 


C083 


EEBD 


38E5 


7109 


CCF3 


81D3 


38E5 


7110 


CCF3 


E40C 


OD9 8 


3885 


7J178 


CCF3 


FFCl 


2C80 


4908 


12F6 


C03E 


48FF 


F910 


FCFl 


EABD 


3itB2 


A179 


8CF4 


3FF5 


0D9C 


48F0 


0«28 


46F3 


C400 


3CE2 


A105 


AC03 


E6EB 


38F5 


7110 


CCF4 


640D 


3D05 


7110 


CC93 


E6BD 


ODAO 


38EB 


2110 


8CF3 


E40C 


38FA 


B558 


DAS 4 


3FFF 


34E5 


7110 


DC93 


E40D 


3«E4 


BUO 


9CF3 


E40D 


00A4 


38E3 


7110 


CCF3 


E40C 


38D4 


B179 


8CF2 


FFFE 


2CE3 


7020 


CCF3 


ECOC 


ICEF 


F8A5 


EEF3 


E6C2 


0DA8 


2902 


FllO 


CCF3 


E6DD 


3915 


7178 


CCF4 


77FE 


3016 


0B08 


00F3 


C800 


2«EB 


3025 


CCF3 


EEC3 


ODAC 


3875 


7510 


DB03 


E73D 


3D10 


00 10 


04F3 


E6DC 


28E3 


7110 


CCF3 


E40D 


3«E5 


7510 


DC63 


E40C 


ODBO 


38D5 


7179 


CCFl 


FFF2 


2CE9 


3109 


CCF3 


COOC 


2C14 


B020 


8CF3 


E40D 


ICEA 


B0B9 


CCFl 


C801 


0DB4 


34E4 


B105 


8CF3 


E6EB 


04E3 


7020 


CCF3 


FCOD 


38E5 


7105 


CCF3 


E6EE 


3825 


70C8 


CCF3 


FF80 


0DB8 


38E5 


7105 


CCF3 


E6EE 


38E5 


7105 


CCF3 


E726 


38E5 


7179 


CCFl 


F7FF 


5«20 


B108 


CCF4 


007F 


ODBC 


08AF 


FBIO 


80F3 


E40D 


28FC 


E912 


80F5 


ACOD 


286B 


3579 


DC43 


FFFF 


38E5 


7110 


CCF3 


EEAC 


ODCO 


38E5 


7080 


CCF3 


DCOC 


38F5 


7110 


CCF3 


DED4 


38E5 


7030 


CCF3 


DC 00 


31iF5 


7110 


CCF3 


0E02 


0DC4 


3905 


71 lA 


CCFO 


2601 


38E5 


7010 


CCF3 


E79D 


38E5 


7109 


CCFO 


4028 


38E5 


7109 


CCFO 


8401 


0DC8 


38BS 


7010 


CC03 


E79D 


38E5 


7109 


CCFO 


8402 


3825 


7110 


CCFO 


640D 


3825 


7010 


CCF3 


E79D 


ODCC 


38E2 


E109 


BCF3 


8103 


396D 


F51D 


DE63 


EAAE 


3C80 


4978 


04F3 


FFCO 


2C83 


2108 


8C97 


003F 


ODDO 


58E4 


B:319 


ACFl 


FFFE 


3D49 


3511 


DE65 


270D 


3CF3 


5338 


C8F4 


3FFF 


3CB8 


0AC5 


0004 


6F7A 


ODD 4 


38E0 


3909 


F863 


81DB 


3505 


311D 


CCF3 


DC04 


2C83 


7378 


84F3 


FFCO 


1880 


E108 


CCF6 


COSE 


ODDS 


38E0 


EllO 


BCF3 


E79D 


38F5 


7110 


CCF5 


640C 


38F5 


7110 


CCF6 


640C 


39A5 


5020 


DCF3 


ECOl 


ODDC 


28E2 


ODOO 


00F3 


E90D 


38E8 


7110 


CCF3 


E90C 


38E5 


7109 


CCF3 


8100 


44E5 


7109 


C0F4 


4401 


ODEO 


2C85 


6178 


8CF2 


FFCO 


2882 


E108 


CCF6 


C03F 


3110 


0910 


0663 


FEBC 


3D09 


3579 


DE63 


FFFE 


ODE 4 


38F4 


0BA7 


00F3 


EF9A 


3CE3 


6305 


84F3 


E756 


38E5 


7111 


CCF3 


E790 


33E5 


7010 


CCF3 


E40D 


ODE 8 


38E5 


7110 


CCF3 


E4ac 


38E5 


7110 


CCF3 


£400 



















PAGE 530 














CONTROL 


STORE 














io> 


ADDRESS 
































OEOO 


38E5 


7109 


CCD3 


81E1 


38E0 


0910 


2AF6 


E40D 


38E0 


0910 


2eF3 


EA3C 


3880 


E178 


8CF3 


FFCO 


0E04 


3CB5 


7109 


CCF4 


440D 


2FFF 


F910 


FE73 


E80D 


28FF 


F910 


FC90 


2C0D 


3885 


7108 


CGF8 


C03F 


0E08 


3875 


7110 


CCF3 


E6BC 


34E2 


Flic 


CCFO 


640D 


44E2 


FllO 


CCF4 


640D 


3D45 


7111 


CC75 


270C 


OEOC 


3CF5 


7110 


CCF3 


E40C 


0405 


euc 


CCFO 


A801 


28E5 


7129 


CC33 


F800 


38E5 


6109 


cca2 


CA4C 


OEIO 


2CA5 


411C 


ECFO 


0801 


28ES 


7110 


CC13 


E40C 


28E9 


3579 


D173 


FFD2 


2C0B 


1110 


CCFO 


A40D 


0E14 


ICES 


BllO 


DC73 


E40D 


38E5 


7110 


CC73 


E40D 


3815 


7110 


CCFO 


E40C 


596F 


F979 


F6F3 


FFF9 


0E18 


28B4 


BllO 


CCF3 


E72D 


38E5 


71EF 


CCF3 


E406 


28BS 


728C 


FAF3 


DC55 


28B5 


7110 


CCF3 


E40D 


OEIC 


28E5 


7110 


CCFO 


3C0D 


38E5 


7110 


8CF3 


E40D 


2805 


411C 


CCF3 


CADI 


28E3 


7010 


CCF3 


E40C 


0E20 


28EA 


BllO 


2CF3 


E40C 


38ES 


7510 


C083 


E40C 


1CE9 


3709 


3213 


C0C9 


0405 


711C 


CCFO 


2C00 


0E24 


38E5 


6110 


8C13 


ECOC 


28E5 


7109 


CCDl 


C0C9 


3815 


70FF 


CCF3 


E406 


1CE5 


628C 


BCF3 


EC54 


OE28 


38E5 


6110 


8263 


E40D 


34E5 


7110 


CC13 


E40D 


00E5 


7110 


CCD3 


E40C 


1805 


70FF 


CCF3 


E406 


0E2C 


1CE5 


628C 


BCF3 


EC54 


38E5 


8110 


82F3 


E40D 


38E5 


7109 


CCF3 


81E0 


3545 


7111 


CC05 


270C 


0E30 


3880 


4978 


OOF 3 


FFCO 


2C82 


E108 


8C56 


C03F 


38E5 


6110 


9CF3 


E40D 


3CE5 


7311 


F8F3 


EABC 


0E34 


28E5 


7310 


F8F3 


E40D 


28F5 


7025 


CCF4 


65BE 


38FO 


0847 


16F3 


E9C7 


14F5 


70A7 


CCF3 


Egce 


0E38 


28F0 


0910 


04F3 


EABD 


38E4 


E109 


8CF4 


0011 


44F5 


7308 


FAFl 


87FF 


28B5 


731C 


FA73 


E408 


0E3C 


2D63 


7379 


F8F3 


FFFO 


2CA4 


BOCO 


CCF3 


E40C 


38E3 


5110 


CCF3 


E58D 


40E5 


7110 


CC43 


E40D 


0E40 


28E2 


Diog 


4CF3 


COOS 


38B5 


7110 


CCF3 


EA3D 


3CE0 


7B11 


FE63 


EEBC 


28E5 


7310 


F8F3 


E40D 


0E44 


38E5 


711C 


CCF4 


2808 


3CF5 


411C 


6CF0 


0000 


28B5 


7110 


CC13 


E40C 


410B 


3509 


D4D3 


C004 


0E48 


2CE2 


DllO 


4CF3 


E40C 


38E5 


7111 


CCF3 


EABD 


38E5 


7110 


CCF3 


E40C 


3CF5 


411C 


6CF3 


COOO 


0E4C 


38EA 


ASIO 


93F3 


E40C 


08E6 


3510 


0733 


E40D 


0CE5 


708F 


CCF3 


E406 


38B5 


708C 


CCF3 


E858 


0E50 


38B5 


7149 


CCFl 


8000 


40E5 


7310 


FAF3 


E40D 


44A4 


DllC 


4CF3 


E40A 


1853 


6110 


CCF3 


D23D 


0E54 


3913 


411C 


8CF3 


E40A 


3883 


411C 


4CF3 


E40B 


38B3 


4108 


0CF3 


C7FE 


3CBF 


8B10 


OOFS 


E40D 


OE58 


40BB 


351D 


D603 


EAD2 


3905 


7109 


CCF3 


C004 


2CE2 


DllO 


4CF3 


E40C 


38E5 


7111 


CCF3 


EABD 


0E5C 


38E5 


7110 


CCF3 


E40C 


3CF5 


7110 


CCF3 


E40C 


0405 


611C 


ACF3 


EEDl 


38E3 


6110 


8CF3 


E40C 


0E60 


OCEO 


OBIO 


20F7 


240C 


08E0 


4825 


10F3 


E9AF 


3833 


2108 


8CF3 


COIE 


38BF 


F8CB 


FCF3 


COIF 


0E64 


38E5 


6105 


8CF3 


EDAB 


28B5 


7110 


CCF3 


E40D 


38E5 


6113 


8CF3 


ECOD 


38E5 


62C5 


B4F3 


ED9A 


OE68 


38E5 


6110 


8CF3 


ECOD 


38E5 


6110 


8CF3 


ECOD 


3CE3 


6310 


88F3 


E40D 


1510 


0909 


12F1 


EOOl 


0E6C 


38E4 


EUO 


8CF3 


E40C 


38E3 


5185 


CCF3 


E5D7 


38E5 


7010 


CCF3 


E79D 


38E5 


7109 


CCFO 


0007 


0E70 


38E5 


7010 


CCF3 


EF9C 


38E5 


7109 


CCFO 


0032 


38E5 


7010 


CCF3 


EF9C 


38E5 


7109 


CCFO 


0034 


0E74 


38E5 


7010 


CCF3 


EF9C 


38EF 


F909 


FEFD 


0009 


38E5 


7010 


CCF3 


EB9D 


3940 


7511 


DA55 


270D 


OE78 


38E0 


5909 


6EF3 


0014 


2962 


FllD 


CCF3 


EEAF 


38E0 


4909 


3873 


81DE 


3CE8 


B509 


DA51 


8013 


0E7C 


38F1 


3045 


CCF3 


E697 


2CE5 


7109 


CCD4 


0008 


1C82 


F178 


CCF3 


FFCl 


2C80 


4908 


0037 


003F 


0E80 


3D05 


7110 


CCF3 


E63C 


OCAS 


2109 


8CF4 


0010 


3063 


711D 


CCF3 


DA2F 


38B3 


7111 


8CF3 


E62C 


0E84 


3CB3 


7111 


CCF3 


E62C 


3CB3 


7111 


CCF3 


E62C 


3CB3 


7111 


CCF3 


E62C 


3CB3 


7111 


CCF3 


E62C 


OE8 8 


3CE3 


7109 


CCF3 


C7FE 


3D03 


70A7 


CCF3 


EE8E 


38EO 


0909 


28F3 


81E0 


39C2 


EllO 


9CF7 


640D 


0E8C 


3880 


F108 


7CF7 


003E 


3C85 


7178 


CCF3 


FFCO 


2CF0 


4910 


OAF 3 


E80C 


2BF3 


3110 


CCF2 


ECOD 


0E90 


28AF 


F911 


FCF3 


E6CC 


38AS 


C910 


0093 


E6CC 


3CF5 


711C 


CCDl 


BCOl 


34E5 


7109 


C092 


CA4D 


0E94 


2CA5 


711C 


ACFl 


5801 


28F9 


3510 


D991 


640D 


2855 


7110 


CCDl 


A40D 


38F5 


7029 


CCFl 


7FD2 


0E98 


38F5 


7111 


CCFl 


640C 


39D5 


7110 


CCD7 


240D 


38E5 


7110 


8C43 


CECD 


38E5 


71EF 


CCF3 


E406 


0E9C 


28B5 


728C 


FAF3 


D454 


28B5 


7110 


CCF3 


E40D 


1065 


711C 


8CF4 


7C00 


0CA3 


3110 


DCF3 


E6DC 


OEAO 


44F3 


7110 


CCF3 


E40C 


2CE3 


7110 


CCF3 


E40C 


3CE3 


7109 


CCF4 


0010 


1CE4 


FllO 


CCF3 


E40C 


0EA4 


40E3 


7110 


CCF3 


E40C 


38E5 


7010 


CCF3 


E40D 


38E5 


7110 


CCF3 


E40C 


38E5 


7110 


CCF3 


E40C 



10/ 2/86 9:28 AM 



PAGE 531 

ADDRESS 
OF 00. 
0F04: 
OF08: 
OFOC: 
OFIO: 
0F14: 
0F18; 
OFIC: 
0F20: 



38DD F434 C183 F036 

38E5 7110 CCF3 E40C 

28E9 3559 D0B2 EOOO 

BCB5 7CC5 CCF3 E41E 

38E8 3129 CCF2 COlO 

1C78 8022 2CF3 FOOC 

24C3 7047 CCF3 F92D 

38F5 7510 D142 266D 

38E5 7505 C3E3 E4F8 



CONTROL STORE 



38E3 F109 CCF3 8165 38E5 7110 CCF3 E40C 3885 

38E1 8909 04F8 6001 38A0 0910 A903 E67D 14E5 

3A15 7104 CCF2 EC83 80E5 7104 CE63 EC82 1450 

38A6 34B4 C023 C852 386C 0824 41D3 E69B 18E9 

38E5 7024 CCF7 672E 3861 FllO CDE7 65F5 28E5 

38E8 3110 CCF3 E65D ICEB 7710 31A3 E40C 5D74 

38E5 7510 D143 E66D 5D70 B179 CCF5 FFFF 58EB 

38E5 7110 CCF3 E40C 74E0 0B09 1EF3 COlO 2CA8 

38EF F904 FA93 DA67 38E5 7110 CCF3 E40C 38E5 



10/ 2/86 9:28 AM 



7010 CCFl E79C 

7104 CCF7 4C0E 

190B 0053 C301 

1109 8CFE 1200 

7104 C3C3 E44A 

Bill DCF5 E49D 

6710 8483 B08D 

A228 88F3 COOC 

7110 CCF3 E40C 
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CONTROL 


STORE 














10 


ADDRESS 
































1000 


70E5 


7109 


C2F3 


EOOE 


2D54 


EllO 


8CF3 


E40C 


392F 


F0D2 


CCF3 


ED9C 


3956 


7112 


CCF3 


F930 


1004 


38E0 


3190 


CCF6 


E5FD 


70E7 


F310 


F6F3 


E5ED 


74F5 


7000 


CC94 


2580 


38E5 


7104 


CCF3 


C58B 


1008 


38E5 


7104 


CCF3 


C4EA 


38E5 


7105 


CCF3 


E4F8 


38E5 


7105 


CCF3 


E4F8 


38E5 


7104 


CCF3 


C95A 


lOOC 


38E5 


7104 


CCF3 


C286 


38EE 


F5A5 


D5B3 


E537 


38EE 


F510 


D573 


E40D 


3940 


0911 


54F5 


2700 


1010 


4105 


70D7 


C2F3 


E8F8 


28E5 


7109 


C2F3 


E02B 


2004 


EllC 


8CF3 


E40F 


3880 


307C 


CCF3 


E54F 


1014 


40E5 


7000 


CC93 


E40C 


38E5 


7105 


CCF3 


E4F8 


38EE 


F5A4 


C3E3 


C283 


38E5 


7105 


CCF3 


E666 


1018 


38E5 


7105 


CCF3 


E666 


38E5 


7104 


CCF3 


C80E 


38E5 


7104 


CCF3 


C80E 


38E5 


7104 


CCF3 


C80E 


lOlC 


38E5 


7104 


CCF3 


C80E 


38EE 


F5A5 


D203 


E4C3 


38EE 


F5A4 


DFF3 


E002 


38E5 


71B4 


CCF3 


E006 


1020 


3976 


7125 


CCF2 


F021 


3905 


7080 


CCF3 


E40D 


38E6 


0113 


02F2 


FCBC 


5402 


6174 


8C74 


411A 


1024 


38E5 


71F5 


CCF3 


E49B 


487B 


56D7 


F433 


FDOE 


3CE5 


7110 


CC93 


OCOC 


5C83 


E072 


FCF3 


BCOC 


1028 


44D8 


FlOO 


CCFl 


E40D 


3888 


5110 


DCFl 


E40C 


38E0 


6110 


8CF1 


OCOA 


5CA5 


607E 


BCF3 


BC04 


102C 


38F5 


7100 


CCF4 


6406 


3885 


7110 


CCF4 


6406 


38E5 


7110 


CCF3 


E40C 


44E5 


5210 


C473 


E40C 


1030 


3976 


7125 


CCF2 


F021 


3905 


70B0 


CCF3 


E40D 


38E6 


0113 


02F2 


FCBC 


5402 


6164 


8C74 


4127 


1034 


38E5 


71F5 


CCF3 


E4DA 


487B 


56D7 


F433 


FDOE 


3CE3 


FUO 


CC93 


DC 00 


5CB3 


E072 


FCF3 


BCOC 


1038 


3 8D5 


7100 


4CF1 


E40D 


3880 


6110 


9CD1 


E40D 


5CA5 


607E 


BCF3 


BC04 


44F8 


FlOO 


CCFl 


A40D 


103C 


3888 


7110 


9CF1 


A40D 


38E0 


6110 


8CF1 


DCOA 


5CA5 


607E 


8CF3 


BC04 


38F5 


7100 


CCF4 


6406 


1040 


3885 


5110 


86F4 


6406 


28E5 


5310 


C473 


D80B 


44E5 


6210 


C463 


E400 


3875 


7149 


CCFl 


COOl 


1044 


48B5 


631E 


DCF3 


FC04 


38E2 


5000 


CCF3 


E40C 


5074 


Bill 


DCF5 


E49D 


24C3 


7047 


CCF3 


F944 


1048 


1CE2 


7000 


CCF3 


E40D 


5CE4 


BllO 


DCF3 


E49D 


24A3 


7111 


CCF5 


E49D 


24C3 


7047 


CCF3 


F944 


104C 


1CE2 


7000 


CCF3 


E40D 


60E5 


7145 


C4D3 


E42C 


38E0 


0910 


06F3 


E40C 


294B 


7710 


2081 


E40C 


1050 


60E5 


7110 


C8F4 


0405 


60B5 


711D 


CC14 


6802 


4C25 


5118 


EC22 


FFFE 


3825 


7128 


CCF3 


COOl 


1054 


2CB5 


7110 


CCD3 


E40D 


42C8 


BeC7 


8673 


ED9F 


3935 


7510 


D643 


FFOO 


38EO 


0525 


4083 


E42C 


1058 


28E8 


8710 


2073 


E4BD 


38E6 


7110 


CCF3 


E4BD 


3SE5 


7110 


CCF3 


E40C 


3SE0 


3525 


C083 


E42D 


105C 


38E5 


7129 


CCF3 


COOO 


04E5 


6310 


C8D3 


E40C 


60E5 


7110 


C8F4 


00B5 


38B5 


4110 


4C94 


6882 


1060 


60A5 


7118 


C4F2 


FFFE 


38A5 


7110 


8CF3 


E40C 


42C8 


A6C7 


F673 


E99E 


3935 


7110 


CCF3 


FFOC 


1064 


4CB5 


631E 


DEF3 


F406 


38C5 


7110 


8CF5 


240C 


38A5 


7010 


CCF8 


2400 


38EO 


5910 


2473 


E400 


1068 


38E5 


7110 


CCF3 


E40C 


3902 


F025 


CCFl 


E510 


38E8 


BSIO 


9783 


DCOD 


3885 


6111 


FCF3 


E6BC 


106C 


40A5 


7110 


CCF3 


E6BD 


38F2 


F0D7 


DCF3 


E9E3 


2CEB 


3509 


0783 


C525 


2CF2 


FUO 


CCF3 


E40D 


1070 


2CB8 


B510 


D726 


E40D 


3CEB 


3510 


0443 


E40C 


28AS 


7U0 


CC73 


E6B0 


38E5 


7110 


CCF3 


E40C 


1074 


4nF5 


7110 


C0F3 


E40D 


4078 


6710 


E443 


EABD 


38E2 


FUO 


CCF6 


E40C 


38F5 


7025 


CCFl 


E5U 


1078 


38D5 


7110 


8CF8 


E40C 


38A1 


FllO 


CCD7 


640C 


3C72 


FOFl 


CCF3 


0090 


2C70 


EUO 


8C93 


0080 


If 7C 


2CB2 


F025 


4CF3 


E510 


3CFB 


3508 


CC68 


OlFE 


3CA5 


7067 


CC73 


DDU 


2 804 


ODU 


OOF 3 


E68C 


1080 


28A3 


7108 


CCF3 


DFFE 


3CB7 


FllO 


C0F3 


ECOO 


38F5 


6110 


FC98 


640C 


38A5 


5380 


F4F8 


ACOD 


1084 


38EB 


2795 


8443 


E528 


39D7 


FllO 


8CF8 


240D 


38E5 


7149 


CCF3 


EOOl 


1E3E 


E3AD 


C8F3 


0C03 


10S8 


38E8 


A445 


9«F3 


EE3E 


34E5 


7110 


CCF3 


FCOC 


3885 


711E 


CCF3 


E807 


4605 


7110 


CC86 


240C 


103C 


3A15 


7110 


CCF5 


3F0D 


3A15 


7110 


CCF4 


E40C 


3A28 


7110 


CCF3 


240C 


38E5 


71A0 


CCD3 


E59D 


1090 


3E37 


FUO 


CCF2 


E40C 


5074 


B12E 


DCF5 


F098 


24E3 


7140 


CCF3 


E49D 


38E3 


6110 


4CF3 


FCAC 


1094 


3973 


6109 


CCF5 


COOS 


44E3 


7110 


CC35 


ACOD 


58E3 


6110 


ECF3 


E46C 


38EE 


8549 


C324 


3E02 


1098 


38E5 


7559 


C324 


0003 


38E5 


7175 


CC73 


E461 


6100 


6808 


OOFl 


SOOF 


60EF 


9CC0 


FEF4 


68FE 


109C 


38E8 


A109 


9CF4 


4008 


38E8 


7110 


CCF3 


E40D 


44EB 


1310 


88F3 


E40D 


38E5 


7010 


FC73 


E40C 


lOAO 


38EO 


0900 


0A73 


E5CD 


34EA 


F109 


CCFl 


COOS 


38E7 


3104 


CCF3 


FC50 


08E5 


4309 


04F1 


4040 


10A4 


5CE5 


7025 


CCD3 


EBEF 


38EF 


7425 


DF33 


CAAB 


3995 


4110 


C2F7 


240C 


5572 


61F5 


8C72 


E6A6 


10A8 


48AB 


6607 


BF73 


EFDF 


38E7 


C310 


F6F8 


lECC 


38E5 


4025 


42F3 


C3F7 


5572 


61F5 


8C73 


E686 


lOAC 


48AB 


66D7 


BF73 


EFDF 


38E5 


50B0 


CD03 


C59D 


38E8 


0510 


9CD3 


E58C 


3CFE 


7180 


C664 


2406 


lOBO 


3CF5 


7110 


C464 


2405 


38E5 


4110 


3C03 


E40C 


38E5 


4110 


5C13 


E400 


38E5 


4110 


BC23 


E40C 


10B4 


38E5 


41C5 


DC33 


E75A 


3908 


04C7 


1C03 


D8EA 


38EE 


3425 


0893 


CB2F 


38EE 


8510 


DBB3 


E580 


10B8 


38E5 


7510 


DB03 


E5AC 


80E2 


71A0 


DD03 


E59D 


28E6 


8305 


9CF3 


E6BE 


3A0A 


3511 


OSES 


26CC 


lOBC 


38BF 


351E 


DAF3 


FOBS 


38C5 


751E 


DAF3 


FC06 


38E5 


7100 


CCF3 


E40C 


3946 


3579 


C1F5 


3FFE 


loco 


38E5 


5025 


4C63 


CBEE 


38E5 


71C5 


CCF3 


E7B6 


38EE 


B5B5 


DC83 


E712 


38F5 


7180 


CCF4 


2406 


10C4 


38F5 


4110 


BC24 


25A4 


38E5 


41C5 


DC33 


E793 


390B 


04C7 


9F83 


DBEA 


38EA 


3585 


DBE3 


E713 


10C8 


3A05 


7111 


CCF8 


26CD 


38BF 


351E 


DC33 


FOBS 


38C5 


751E 


DC33 


FC06 


38E5 


71C5 


CCF4 


179A 


lOCC 


38EE 


3595 


DD43 


E73E 


38E5 


71C5 


CCF4 


179A 


3CEE 


7110 


C663 


E40C 


3CE6 


3110 


C463 


E400 


1000 


38E5 


4110 


3C03 


E40C 


38E5 


41C5 


5C13 


E7B7 


3908 


04C7 


1FB3 


DBEB 


38EA 


3595 


DBE3 


E73F 


1004 


80E2 


7110 


DD03 


E40D 


28E6 


7305 


9CF3 


E73B 


18E5 


5110 


02F3 


E65C 


5572 


61F5 


8C73 


E766 


10D8 


48AB 


66D7 


BF73 


EFDF 


3C65 


7030 


CCF3 


D26C 


80E2 


7100 


CCFl 


A806 


38EF 


3110 


CCFl 


A005 


lODC 


38E8 


3110 


CCF3 


E40C 


40E5 


5110 


02F3 


E65D 


5572 


61F5 


8C73 


E782 


48AB 


6607 


BF73 


EFDF 


lOEO 


3D05 


7030 


CCF3 


D26D 


80E2 


7100 


CCF4 


2807 


38E5 


7110 


CCF4 


2005 


38E8 


3110 


CCF3 


E40C 
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10E4 


38EF 


3110 


CCF3 


E40D 


38E8 


3110 


C0F3 


E400 


40E5 


5110 


02F3 


E65D 


5572 


61F5 


8073 


E7A6 


10E8 


48AB 


66D7 


BF73 


EFDF 


3D05 


7030 


CCF3 


D26D 


80E2 


7100 


CCF4 


2807 


38E5 


7110 


CCF4 


2005 


lOEC 


38E8 


3110 


CCF3 


E40C 


18E5 


5110 


02F3 


E650 


5572 


61F5 


8073 


E7C3 


48AB 


66D7 


BF73 


EFDF 


lOFO 


3C65 


7030 


CCF3 


D26C 


38E5 


6110 


8461 


A807 


80E2 


7000 


CCF3 


E40D 


38E5 


4110 


C2F2 


F40D 


10F4 


4D85 


6110 


8077 


240D 


4CA5 


631E 


9EF3 


F406 


38E5 


7510 


DA93 


E40C 


5C75 


7149 


CCFl 


COOO 


10F8 


4885 


631E 


DCF3 


E804 


38E2 


5000 


CCF3 


E400 


3900 


3112 


0CF3 


DB9C 


38E1 


3110 


C0F3 


E4A0 


lOFC 


38E5 


7010 


CCF3 


E40D 


38E5 


5105 


4063 


E7B6 


38E5 


7510 


DC33 


E40C 


38E0 


0910 


0873 


E5BC 


1100 


38E6 


7104 


C0F3 


FC50 


3805 


4024 


42F3 


C4D2 


5572 


61F5 


8072 


E413 


48AB 


66D7 


8373 


ECDF 


1104 


38E5 


4110 


82F1 


1E9D 


54E2 


61F5 


8C73 


E41F 


48AB 


66D7 


B373 


FODE 


3905 


5085 


0053 


E436 


1108 


5D95 


7110 


CCD6 


E40C 


48E5 


7110 


C093 


CD03 


5555 


6110 


0CF4 


640D 


48A5 


6072 


A0F3 


FOOD 


HOC 


3915 


7549 


D104 


4000 


4085 


7110 


0096 


E5DD 


5D35 


7110 


CCD4 


6400 


38E5 


7110 


00F2 


F400 


1110 


38EA 


cue 


8CF3 


054E 


38F6 


3110 


OOFl 


A409 


08E6 


0710 


5243 


E400 


3CEE 


7110 


0673 


E40D 


1114 


3CE6 


3025 


C473 


00D3 


38E5 


4110 


3003 


E400 


0CE5 


5111 


C2F0 


4400 


44E2 


E1D6 


80FO 


8867 


1118 


34AC 


230E 


9CF3 


F005 


3405 


731E 


5EF3 


F006 


3035 


7080 


CCF3 


DOOO 


3SE5 


6110 


8671 


E805 


UlC 


38E2 


51A5 


4CF3 


E47E 


38E6 


9185 


0A63 


E48A 


38E6 


3105 


CCF3 


E453 


3876 


OllD 


1043 


DAD2 


1120 


38EA 


3580 


D323 


EA9D 


10E5 


7305 


90F3 


E453 


38E2 


5025 


5C53 


00D3 


28E6 


7305 


9CF3 


E44F 


1124 


3CEE 


7110 


C673 


E40D 


3CE5 


7100 


0473 


E400 


38EB 


0510 


1341 


9C0A 


38E5 


4110 


3003 


E400 


1128 


08E5 


5111 


02F0 


440D 


44E2 


E1D6 


8CF0 


88AE 


34AO 


230E 


9CF3 


FC05 


3405 


731E 


5EF3 


FC06 


112C 


3C25 


70BO 


OOF 3 


DOOD 


38EE 


Alio 


8671 


ES04 


38E5 


7510 


D263 


E5AC 


3876 


DllD 


1043 


DAD2 


1130 


38EA 


3510 


D323 


EA9D 


10E5 


7305 


9CF3 


E49A 


1145 


7379 


9CF3 


FFFF 


38BB 


3510 


C1F5 


2400 


1134 


38FE 


DIBO 


1043 


E4E4 


2865 


731D 


90F3 


EED2 


38E5 


7010 


CCF3 


E400 


3875 


7149 


COFl 


COOl 


1138 


4885 


631E 


DCF3 


FC04 


38E2 


5000 


CCF3 


E400 


397D 


3525 


0082 


F02D 


38EB 


0579 


15E3 


FF07 


113C 


2CE9 


8510 


15E3 


C5C2 


54E2 


61F5 


CC73 


E4FF 


48AB 


66D7 


8A53 


FE96 


3SE5 


5110 


0093 


E40D 


1140 


3CE7 


3113 


00F3 


81D0 


38E7 


0310 


76F4 


2808 


30EE 


FllO 


0673 


E40C 


30E6 


B085 


0473 


E54F 


1144 


38E0 


0919 


40F3 


EOOO 


28E8 


97A0 


F4A3 


E050 


38E0 


0905 


60F4 


2D0F 


40E3 


6310 


84F3 


E40C 


1148 


34E2 


7110 


DC93 


E400 


38A5 


751E 


D423 


FDB5 


40EE 


D310 


04F3 


E440 


3SE3 


6109 


8CF4 


4073 


114C 


3CEE 


FllO 


0673 


E400 


3CE6 


BOSS 


0473 


E55B 


3910 


0910 


60F3 


E45D 


2878 


56D7 


F5E3 


ED7B 


1150 


387E 


F510 


D4D4 


2408 


34E2 


7110 


DC93 


E40C 


38A5 


751E 


D4C3 


FDB4 


38E5 


7109 


CCF3 


C040 


1154 


3885 


70C2 


00F3 


DOOO 


38E5 


7109 


OOFl 


0060 


38E5 


7105 


0CF3 


E78F 


38E0 


0909 


60F3 


0073 


1158 


287B 


56D7 


F5E3 


ED7B 


3CE7 


71A1 


C493 


E79D 


DOES 


0113 


4CF3 


E790 


40E3 


5310 


C4F3 


E40D 


115C 


ODEA 


Clio 


4CF3 


DCOA 


34E3 


6310 


C4F3 


E400 


74EA 


FllO 


0CF3 


E400 


38E3 


BllO 


CCF3 


E7ED 


1160 


38EF 


35C5 


0683 


E589 


38E5 


7010 


0CF3 


E40D 


38EO 


0910 


0873 


E400 


38EF 


F904 


C693 


FC50 


1164 


38E7 


4110 


04D2 


C9D4 


38EB 


2425 


9A13 


EE87 


38E7 


OUO 


0718 


4807 


2888 


76D7 


8A13 


FE86 


1168 


34D9 


8465 


5A13 


E287 


8617 


7112 


ADOS 


3000 


3975 


7110 


BCFl 


A40C 


28A5 


4110 


42F1 


4400 


116C 


54E2 


61F5 


8073 


E58B 


48AB 


66D7 


BA53 


DA96 


3CE5 


7080 


OD33 


D40D 


38E5 


6110 


8671 


E805 


1170 


38E5 


5105 


CD43 


E78E 


38E8 


D595 


5743 


E5DB 


3CE5 


7110 


C4F3 


DOOB 


2CE3 


6305 


84F3 


E5DB 


1174 


3CE5 


7110 


08F3 


DC04 


2CE3 


6310 


84F3 


E400 


3SEE 


B180 


FD28 


A40D 


38E5 


7113 


OD2 8 


A400 


1178 


38E5 


4110 


02F3 


CD4E 


54E2 


61F5 


8073 


E5EE 


48AB 


66D7 


8A53 


DA96 


38E5 


4110 


42F1 


5E9C 


117C 


54E2 


61F5 


8079 


lOFB 


48AB 


66D7 


BA53 


DA96 


38E8 


Clio 


4CF1 


lOOD 


38F6 


7110 


00F2 


E586 


1180 


38EO 


0909 


72D4 


0061 


38E5 


5109 


7054 


4040 


8205 


7110 


0CF3 


E40C 


2CA8 


66D7 


BD47 


EEA2 


1184 


38E5 


7 105 


COFl 


FE6E 


8215 


7110 


0092 


E400 


8605 


6310 


94F3 


E40C 


2CAB 


70D2 


60F3 


FOOO 


1188 


30C5 


7110 


0092 


E40D 


38E5 


7110 


00F2 


DOOO 


38D5 


70C5 


0CF7 


FEE2 


8615 


71C5 


C0F3 


E66F 


118C 


2CAB 


66D7 


BD47 


EEA2 


38E7 


7105 


CCF3 


E66E 


3A2E 


B44S 


D933 


E65F 


88E7 


FllO 


CCF3 


D69C 


1190 


38E5 


7105 


OOFl 


FF78 


38F5 


7110 


0CF3 


E408 


3875 


771D 


F9B3 


EED2 


88E7 


Fill 


CCF3 


D690 


1194 


2CE5 


5305 


9CF1 


FF7B 


38F5 


7110 


00F3 


E40B 


3885 


7510 


D9B3 


DEDF 


38EE 


F511 


D9B3 


D69D 


1198 


2CE5 


5310 


9CF3 


FOOC 


38F5 


6110 


CAF3 


E405 


38B5 


711D 


CCF3 


EAD2 


9245 


7110 


CCF3 


E690 


U9C 


3885 


7007 


OOF 3 


EA7E 


80F5 


7110 


C8F3 


E405 


3SB5 


751D 


DA13 


EAD3 


90E4 


7110 


C0F3 


E40C 


llAO 


8CE3 


7110 


00F3 


E400 


74E8 


FllO 


CCF3 


E4E0 


38E3 


FllO 


0CF3 


E7EC 


38EF 


3505 


06E3 


E5A0 


11A4 


38E5 


7010 


00F3 


E40D 


3875 


7149 


COFl 


COOl 


48B5 


631E 


DCF3 


D804 


38E2 


5000 


CCF3 


E40C 


11A8 


10E5 


5310 


9CF3 


E65D 


39FF 


3512 


D813 


A40D 


30EE 


7110 


0673 


E40D 


3CE6 


3085 


C473 


E773 


llAC 


38E5 


7110 


00F3 


E45C 


391E 


7407 


DAB3 


DEC3 


38E2 


5080 


1043 


E59C 


38A5 


751E 


DAA3 


0805 


HBO 


38E7 


3110 


0CF3 


E44D 


3CEE 


7110 


0673 


E40D 


30E6 


3085 


C473 


E773 


38E5 


7110 


CCF3 


E400 


11B4 


IDOB 


76D7 


BD83 


DF6E 


38EE 


7510 


DB23 


E45D 


38E2 


5080 


1043 


E590 


38A5 


751E 


DB13 


0805 


11B8 


10E5 


5310 


9CF1 


FE50 


39FF 


3510 


DC6 3 


A40C 


3CEE 


7110 


C673 


E40D 


3CE6 


3085 


0472 


DF73 


IIBC 


38t5 


7110 


CCF2 


EC5A 


391E 


8407 


D013 


DF16 


390E 


7510 


DBBl 


E5AD 


38E2 


60S0 


1043 


E59C 


IICO 


38A5 


751E 


DBA3 


D804 


3905 


518D 


5053 


FED3 


28E6 


D305 


9CF3 


E6EE 


38E2 


5080 


1C43 


E59C 


11C4 


38A5 


751E 


DBA3 


D804 


38E7 


3110 


OCFl 


F046 


3CEE 


7110 


0673 


E40D 


3CE6 


3085 


0472 


DF73 
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ADDRESS 
































UC8 


8CE5 


7111 


C8F3 


D40C 


90E8 


AUO 


ECF3 


E80C 


2CE5 


5310 


0532 


FCOB 


1D06 


76D7 


BDEI3 


DF6E 


:icc 


38EE 


B580 


DD03 


E45C 


38E6 


BIOS 


CCF3 


E71F 


38E2 


5080 


1043 


E59C 


38A5 


751E 


D063 


D805 


IIDO 


3875 


518D 


5C53 


FED3 


28E6 


D305 


9CF3 


E71F 


38E2 


5080 


1C43 


E59C 


38A5 


751E 


DC63 


D805 


11D4 


10E5 


5310 


9CF1 


FE5C 


39FE 


B510 


DD83 


A400 


40E5 


7085 


0072 


DF63 


38E6 


BllO 


OOF 3 


E45C 


11D8 


38E5 


5085 


CAF2 


DF72 


3906 


DllD 


5C53 


EAD2 


3SA5 


751E 


D063 


D854 


38E5 


7110 


CCF3 


E5CD 


IIDC 


38EC 


3510 


DDD3 


E66C 


38E8 


3110 


CCF3 


E40C 


38E0 


0910 


60F3 


E400 


1C7B 


21A9 


A0F3 


0021 


llEO 


2C78 


3109 


CC71 


C032 


38E5 


71A9 


CCFl 


C0F6 


38E8 


3109 


CCFl 


COFA 


38E0 


0910 


80F3 


E59C 


11E4 


ICEB 


6110 


ACF3 


E5AD 


38E8 


3109 


CCF3 


0092 


1C7B 


6179 


ECF3 


FFEO 


38E8 


2110 


0073 


E580 


11E8 


3870 


08C9 


60F3 


FFOA 


38E5 


6000 


8CF1 


E80D 


3876 


E0C9 


8CF3 


FF07 


38EO 


0800 


A4F1 


E800 


llEC 


1C7B 


6179 


ACF3 


FFCF 


38E8 


2110 


CC73 


E40C 


38E6 


7000 


C0F3 


E5AD 


38EO 


0910 


80F3 


E40D 


UFO 


ICEB 


6110 


ACF3 


E40C 


38E8 


3109 


0CF3 


0092 


1C7B 


6179 


ECF3 


FFEO 


38E8 


2110 


0073 


E40C 


11F4 


3870 


08C9 


60F3 


FFOA 


38E5 


6000 


8CF1 


E80D 


3875 


6009 


8CF3 


FF06 


38EO 


0800 


A4F1 


E80C 


11F8 


1C7B 


6179 


ACF3 


FFCF 


38E8 


2110 


CC73 


E40C 


38E5 


7000 


CCF3 


E400 


38EO 


0910 


40F3 


E590 


IIFC 


3876 


B0C2 


CCF3 


E80D 


38EO 


0800 


56F3 


E40C 


3876 


3002 


CCF3 


E800 


38EO 


0800 


5AF3 


E40C 


1200 


3876 


F0C2 


CCF3 


E80C 


38E5 


7000 


CCF3 


E40C 


38E8 


3110 


CCF3 


E5CD 


38E0 


0979 


0674 


7FC7 


1204 


38E5 


7104 


CCF3 


FC50 


5CE5 


7025 


CC63 


C13E 


3917 


0065 


82F3 


C13F 


54E2 


61F5 


8073 


£426 


1208 


48AB 


66D7 


B533 


D94E 


38E7 


4110 


42F1 


5E9D 


54E2 


61F5 


8073 


E432 


48AB 


66D7 


8533 


D94E 


12QC 


38E8 


cue 


4CF3 


C94F 


38F6 


7110 


C0F2 


E586 


38E5 


7113 


OOFl 


5400 


38E5 


5109 


0044 


0060 


1210 


38EO 


0909 


72D4 


4041 


34E5 


7110 


C2F3 


E40D 


38A5 


7108 


00F3 


CODE 


38EB 


2625 


D233 


E083 


1214 


38EB 


2710 


92C3 


E40C 


38EB 


2710 


9347 


COOD 


38E5 


7104 


00F3 


06E2 


38E7 


7105 


OOF 3 


E52A 


1218 


3CEE 


7180 


0673 


E40D 


3CE5 


7000 


0473 


E58D 


38E2 


5000 


1043 


E59D 


38EE 


BllO 


CCF2 


DCOD 


121C 


38E8 


3110 


CCF3 


FDA8 


3876 


DllD 


5053 


EED3 


38A5 


7HE 


0CF3 


D805 


38E5 


7000 


0CF3 


E40C 


1220 


38E5 


7513 


D187 


GOOD 


38E5 


5104 


0033 


C6E3 


38E5 


7505 


D283 


E53F 


38E5 


7113 


00F7 


COOD 


1224 


38E5 


7104 


CCF3 


C6E2 


10E5 


53C5 


9CF3 


E53F 


38E5 


7510 


D183 


E40C 


38E5 


5110 


0033 


E40D 


1228 


390B 


0710 


llBl 


E40C 


38E5 


4110 


007 8 


2760 


38E5 


7104 


00F3 


C7EF 


38E5 


7505 


D3F3 


E53F 


122C 


38E0 


0905 


4033 


E463 


3837 


10C7 


0033 


DCBE 


38E7 


7109 


OOFl 


0061 


38E5 


7104 


CCF3 


C7BF 


1230 


IDOB 


76D7 


B4E3 


DD3A 


38E5 


7513 


D1B7 


COOD 


38E5 


7104 


OOF 3 


C6E2 


38E5 


75C5 


D3D3 


E53E 


1234 


38E5 


7113 


CCF7 


GOOD 


38E5 


7104 


OOF 3 


C6E2 


10E5 


5305 


90F3 


E53F 


38EO 


0905 


4033 


E463 


1238 


383F 


34C2 


D3A3 


DC 00 


38E5 


7109 


OOFl 


0060 


38E5 


5104 


0033 


07BE 


IDOB 


76D7 


B4E3 


DD3A 


123C 


38E5 


7510 


D1B3 


E400 


38E5 


4110 


CC78 


2760 


38E5 


7104 


CCF3 


078F 


3A07 


7045 


CCF3 


E516 


1240 


38E5 


7110 


CCF3 


D69D 


38E5 


7U0 


CCFl 


FOOD 


38E5 


7104 


CCF3 


C77A 


38F5 


7110 


CCF3 


E408 


1244 


38B5 


751D 


D4F3 


DED2 


38E5 


7111 


OOF 3 


D890 


2CE5 


5310 


9CF1 


FOOD 


38E5 


7104 


CCF3 


C77A 


1248 


38F5 


7110 


CCF3 


E40B 


38BS 


7510 


D4F3 


DEDF 


38EE 


F511 


D4F3 


D69D 


2CE5 


5310 


9CF3 


FOOO 


124C 


38F5 


6110 


CAF3 


E405 


38B5 


751D 


D4F3 


EAD3 


38E5 


7110 


CCF3 


E50D 


34EA 


FllO 


CCF3 


E4D0 


1250 


38E3 


BllO 


CCF3 


E7ED 


38EF 


35C5 


C6E3 


E5AD 


38E5 


7010 


CCF3 


E40D 


3875 


7149 


CCFl 


0001 


1254 


4885 


631E 


DCF3 


D804 


38E2 


5000 


CCF3 


E400 


38E0 


0909 


0878 


0041 


38E5 


7104 


CD03 


F051 


1258 


38EB 


0509 


15C8 


4049 


38E7 


4110 


4508 


4885 


38EA 


8110 


4CF8 


0866 


38E7 


3105 


CCF3 


E420 


125C 


38E5 


7113 


CCFO 


27ED 


3975 


4111 


82F1 


A40C 


54E2 


eiF5 


8073 


E582 


48AB 


86D7 


8533 


DS4E 


1260 


38E5 


4110 


42F1 


5E9C 


S4E2 


61F5 


8073 


E58E 


48AB 


66D7 


B533 


D94E 


38E5 


511C 


CC43 


C94E 


1264 


38F8 


Clio 


4CF2 


E587 


38E6 


7113 


CCFl 


5400 


50E5 


7104 


CC63 


C9E3 


38E5 


7105 


CCF3 


E60F 


1268 


38E5 


7109 


CCF3 


COOS 


40E0 


IBIE 


E0F3 


EC08 


38E5 


6023 


8293 


ECOD 


38E5 


6109 


8CF3 


E4E0 


126C 


2CE4 


EllO 


8CF3 


E40C 


38EO 


3110 


CCF3 


E40D 


38E5 


7110 


CCF3 


E40C 


38E8 


3110 


CCF3 


E40C 


1270 


34DA 


F435 


D8A3 


E646 


38E5 


7510 


D9E3 


E40D 


34DA 


F435 


D9E3 


E6E6 


34DA 


F435 


DB93 


E70F 


1274 


34DA 


F435 


DC33 


E737 


38E5 


7510 


DD53 


E40D 


38E5 


7510 


DEA3 


E40D 


34DA 


F434 


DF03 


CC3F 


1278 


74E8 


F510 


D7D3 


CE53 


4D85 


6110 


0076 


E40D 


4CA5 


631E 


9EF3 


F667 


40E5 


7110 


CD38 


F40D 


127C 


38EO 


DOOO 


CD13 


E40C 


3995 


4110 


02F6 


E40D 


54E2 


61F5 


8073 


E603 


48AB 


66D7 


B533 


D94E 


1280 


48E5 


7110 


CD33 


E66D 


38E0 


DUO 


0D18 


D80D 


38E2 


5000 


OOF 3 


E40C 


38E8 


COBO 


DO 3 3 


0000 


1284 


84F0 


FOOO 


DD14 


2404 


30F5 


7110 


0074 


2406 


763A 


FllO 


OOF 3 


E40C 


8078 


131E 


DCF3 


E004 


1288 


8C75 


531E 


DCF3 


E004 


38E5 


7000 


00F3 


E400 


3905 


7108 


CCF4 


OOIF 


38B5 


7024 


OOF 3 


OAOF 


128C 


3905 


7110 


CCF3 


E40C 


38B5 


7024 


C0F3 


0C6F 


38E5 


7104 


CCF3 


CCIB 


38E5 


7104 


CCF3 


0028 


1290 


3905 


7579 


D8D4 


3FFE 


3900 


0908 


40D4 


OOIF 


3885 


7024 


OOF 3 


CAOF 


3905 


7110 


00F3 


E40C 


1294 


38B5 


7024 


CCF3 


CC6F 


38E5 


7104 


CCF3 


CCIB 


38E0 


0909 


82F3 


0085 


2875 


5077 


ECF3 


EE6E 


1298 


38E0 


0909 


C2F3 


C0F5 


2875 


5077 


ECF3 


EE6E 


1CE8 


8710 


B9D3 


E40D 


38E5 


7104 


OOF 3 


CC2B 


129C 


3905 


7579 


D944 


3FFF 


38E5 


7104 


CCF3 


CC96 


3900 


0908 


4154 


OOIF 


38B0 


0824 


6163 


CAOE 


12A0 


3905 


7110 


CCF3 


E40C 


38BF 


3424 


DB33 


CC6F 


38E5 


7104 


CCF3 


CCIB 


94D8 


9680 


FA93 


0002 


12A4 


9A05 


7110 


CC71 


E40C 


38E5 


7104 


CCF3 


CC2B 


3905 


7579 


DA14 


3FFF 


38B5 


7024 


CCF3 


CC6F 


12A8 


38E5 


7104 


CCF3 


CCIB 


98D8 


96B0 


FAD3 


C003 


3A05 


7110 


CCFl 


E40D 


38E5 


7104 


CCF3 


CC2B 
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ADDRESS 
































12AC 


3905 


7579 


DA74 


3FFF 


38E0 


0910 


08F3 


E40D 


34E8 


A710 


8843 


E40D 


3A15 


5110 


CCDl 


E40C 


1260 


38E5 


71')4 


CCF3 


CC2B 


38E5 


7105 


8C73 


E6D2 


3885 


7024 


CCF3 


CC6F 


38E5 


7104 


CCF3 


CCIB 


12B4 


38E7 


3109 


CCF3 


C073 


987B 


56D7 


FB83 


EEE2 


38E5 


7104 


CCF3 


CC28 


3905 


7579 


D824 


3FFE 


12B8 


38E5 


7104 


CCF3 


CC96 


3905 


7108 


CCF4 


OOIF 


3885 


7024 


CCF3 


CAOF 


3905 


7110 


CCF4 


640C 


12BC 


38E5 


7104 


CCF3 


CAOF 


3608 


F510 


DBFl 


E40C 


38EF 


7110 


CCF3 


E40C 


4115 


7110 


CC73 


E40C 


12C0 


3885 


7024 


CCF3 


CC6F 


38E5 


7104 


CCF3 


CC2B 


3915 


7579 


DC04 


7FFE 


3905 


7108 


CCF4 


OOIF 


12C4 


38B5 


7024 


CCF3 


CAOF 


3905 


7110 


CCF4 


640C 


38B5 


7024 


CCF3 


CC6F 


38E5 


7104 


CCF3 


CAOF 


12C8 


3608 


F5f.O 


DCAl 


E40D 


38EF 


7110 


CCF3 


E40C 


40E5 


7110 


CC73 


E40D 


38E5 


7104 


CCF3 


CC2B 


12CC 


3915 


7579 


DC64 


7FFE 


3900 


1908 


0094 


OOIE 


38B5 


7024 


CCF3 


CAOF 


3905 


7110 


CCF3 


E40C 


12D0 


38DF 


7 4 2D 


DD43 


EC04 


3905 


717A 


CCF4 


3E00 


38E5 


4110 


FCF3 


E40C 


40E5 


8104 


8C33 


CC6A 


12D4 


38E5 


7104 


CCF3 


CC6F 


3900 


1908 


0094 


OOIE 


34B5 


7024 


CCD3 


CAOE 


3905 


7024 


CCF3 


CC6F 


12D8 


5CD5 


702D 


DC63 


EC04 


3908 


F57A 


9E54 


3E00 


38EE 


F511 


DDE 3 


D69C 


2CE5 


5310 


98F3 


FCOD 


12DC 


38F5 


6110 


CAF3 


E405 


38B5 


7HD 


CCF3 


EAD2 


4105 


4112 


A2F0 


880C 


54E2 


61F6 


8C73 


E786 


12E0 


48AB 


66D7 


8533 


D94E 


38E2 


5110 


0CF3 


DE9C 


38E5 


511C 


FC53 


C94F 


84F0 


FllO 


CCF2 


E406 


12E4 


5CE5 


7104 


CC63 


CC6E 


4105 


4112 


62F0 


440C 


54E2 


61F5 


8C73 


E7A2 


4 8 AS 


66D7 


B533 


D94E 


12E8 


38E8 


Clio 


4CF1 


1D8D 


5CE6 


7104 


CC63 


CC6E 


3905 


7108 


CCF3 


COIE 


34BA 


F509 


DED4 


0040 


12EC 


3A0F 


71J.0 


CCFl 


E40D 


40E5 


7110 


CC73 


E40D 


38E5 


7104 


CCF3 


CC2B 


38E5 


7104 


CCF3 


CC6F 


12F0 


6100 


2 BO 8 


00D4 


401E 


38B5 


6024 


CC93 


CC6E 


3888 


B425 


9F83 


E7DE 


38E5 


7104 


CCF3 


CAOF 


12F4 


3905 


7110 


CCFl 


E40D 


38E5 


7104 


CCF3 


CC2B 


3915 


7579 


DF24 


7FFF 


34E5 


4024 


CC33 


CC6A 


12F8 


34E5 


4024 


CC33 


C9E2 


3915 


7110 


CCF3 


E40D 


3885 


7024 


CCF3 


CC6F 


38E5 


7104 


CCF3 


CAOF 


12FC 


3905 


7110 


CCFl 


E40D 


38E5 


7104 


CCF3 


CC2B 


3915 


7579 


DFA4 


7FFE 


38E5 


7110 


CCF3 


E40C 


1300 


38E5 


7175 


CCF3 


E460 


3803 


FllO 


CCFl 


E79D 


38E8 


7110 


CCF3 


E40D 


38ED 


B575 


C183 


E46C 


1304 


3813 


FllO 


CCFl 


E79C 


3803 


F510 


C071 


A78D 


3C45 


718E 


C673 


D804 


3 8E5 


4000 


5C13 


E58D 


1308 


3C45 


7 HE 


C473 


0994 


38E2 


5000 


1C43 


E40C 


38EE 


8110 


9C22 


DCOC 


3 8E8 


3110 


CCF3 


FDAB 


130C 


3875 


51 ID 


5C53 


EED2 


28E6 


D310 


9CF3 


E40C 


38E5 


7000 


CCF3 


E40C 


40E0 


OBIO 


1E93 


E40D 


1310 


38E5 


6109 


82F3 


E62A 


2CE4 


E109 


8CF3 


C013 


38D0 


30D7 


CCF3 


EC6F 


38E5 


7110 


CCF3 


E40C 


1314 


38E8 


3110 


CCF3 


E40C 


34DA 


F435 


D263 


E487 


34DA 


F435 


D303 


E4C7 


34DA 


F435 


D323 


E4F6 


1318 


34DA 


F435 


D3F3 


E518 


34DA 


F435 


04B3 


E536 


38E5 


7104 


CCF3 


C9E2 


3 8EA 


3510 


D1D3 


E40D 


131C 


38E5 


7104 


CCF3 


C99F 


38EE 


F5H 


D213 


D69C 


2CE5 


5310 


9CF3 


FCOC 


38F5 


6110 


CAF3 


E405 


1320 


38B5 


71 ID 


CCF3 


EAD2 


80EF 


7149 


C473 


COOO 


2E05 


6310 


8473 


E4FB 


3A15 


71 ID 


CCFO 


2CF2 


1324 


38E5 


7513 


ClFl 


A40C 


38E5 


7110 


CCF3 


E5CD 


38EE 


F511 


D2A3 


D69D 


2CE5 


5310 


9CF3 


FCOC 


1328 


38F5 


6110 


CAF3 


E405 


38B5 


71 ID 


CCF3 


EAD'2 


38E5 


7110 


CC03 


E4ED 


38E5 


71C5 


CCF3 


E5AC 


132C 


38E5 


7010 


CCF3 


E40D 


3A1F 


3510 


D2F1 


E40C 


38E5 


7104 


CCF3 


CC2B 


38E5 


7104 


CCF3 


cceF 


1330 


38E7 


3104 


CCF3 


CC6F 


38E7 


7104 


CCF3 


CC6E 


38E0 


0904 


4093 


CCIA 


3 8DF 


34C2 


D353 


DCOD 


1334 


38E5 


7109 


CCFl 


C060 


38E0 


0909 


6093 


C073 


287B 


56D7 


F253 


EC97 


34E5 


5109 


EC93 


C200 


1338 


60EB 


2310 


C8F3 


E5AD 


38E6 


F104 


CCF3 


C77B 


38E7 


C304 


B6F3 


CC28 


38EF 


3510 


D1B3 


E40D 


133C 


38D5 


7 405 


D1B3 


E4C3 


38E5 


7104 


CCF3 


CAOF 


3905 


7104 


CCF8 


0C6E 


60E0 


2804 


00D3 


CAOF 


1340 


3908 


B508 


9444 


401E 


3905 


7108 


CCF3 


ClEO 


38EO 


091E 


08F3 


EC08 


38EB 


2110 


BCF4 


6C02 


1344 


3915 


7109 


CCF8 


4041 


38E5 


7104 


CCF3 


CC6F 


60E0 


2B04 


0093 


CAOE 


3905 


7104 


CCF8 


4A0F 


1348 


38D5 


7020 


CCF3 


E40D 


3905 


7110 


CCF8 


640C 


38E5 


7104 


CCF3 


CC6F 


38E5 


7104 


CCF3 


CAOF 


134C 


40E5 


7104 


CD03 


CC6E 


80E5 


7104 


CCD3 


CAOE 


3905 


7108 


BD03 


ClOl 


38EB 


2420 


9533 


ECOC 


1350 


3905 


717A 


CCF4 


3E00 


38E5 


7110 


CCF3 


E40C 


40E5 


4104 


FC33 


CC6A 


38E5 


7104 


CCF3 


CC6F 


1354 


38E0 


P3r5 


0096 


E528 


70AB 


3510 


D623 


E6B6 


2CE2 


F179 


CCF3 


FFDD 


74FA 


F510 


D5F3 


EEBC 


1358 


3CA0 


ho:jo 


CCF3 


E5C3 


68F2 


2A11 


0093 


E6DC 


70CB 


6025 


ECF3 


E729 


38E1 


3513 


E073 


EEDC 


135C 


6 8DA 


F.3C0 


CEF3 


E79C 


38F3 


7045 


CCF3 


E679 


38E1 


3010 


DCF3 


E40C 


3CF4 


F02D 


CCF3 


EB93 


1360 


34r3 


70U 


CAF3 


E79C 


3CE2 


F510 


C9E3 


E5CC 


059D 


3525 


C084 


242C 


39A7 


F82D 


FEF3 


E800 


1364 


38L: 


nfjoi 


■D0F3 


E90C 


4085 


711D 


CC13 


E902 


5415 


711D 


CC05 


4009 


38C8 


7108 


CCF6 


41FF 


1368 


74EA 


f nr"^ 


D6B3 


E528 


68E8 


F529 


D6C1 


COOl 


60B5 


6307 


C4B3 


E41C 


60E5 


6305 


C8B3 


E41D 


136C 


eots 


5305 


C4B3 


E610 


5D74 


B12E 


DCF2 


F099 


24B3 


7140 


CCF5 


E49D 


3945 


6179 


CCF5 


3FFF 


1370 


70E5 


filiO 


AC93 


F8AC 


5485 


62A7 


9CF3 


FD48 


39A5 


7110 


CCF6 


240C 


3584 


3110 


CCF3 


E40D 


1374 


3!iHb 


7510 


C066 


240D 


5D74 


B12E 


DCF2 


f099 


2483 


7140 


CCF5 


E49D 


70E8 


8113 


CCFl 


FCOC 


1378 


2CA2 


B51D 


F7B4 


3CAD 


5889 


2647 


E493 


F948 


3905 


7510 


C075 


E40C 


3D65 


5247 


E093 


FD25 


137C 


5^^^ 


26 4 7 


A493 


F948 


38D5 


7510 


C075 


E40C 


5D74 


B12E 


DCF5 


F098 


24E3 


7140 


CCF3 


E49D 


1380 


74E7 


FllO 


CA91 


38AD 


5CA9 


2628 


E523 


EOOl 


5CE0 


B0F5 


CC73 


E529 


35A7 


F1A5 


C068 


665A 


1384 


6155 


71iO 


CD68 


A40C 


1997 


F1A5 


C068 


E663 


2927 


F1A5 


C0F9 


266F 


18E7 


D1A5 


8069 


7A76 


13 8 8 


2977 


F1A5 


C06A 


6683 


3995 


61A5 


4D72 


E692 


1969 


1510 


9A61 


640C 


747 8 


F510 


DA85 


E40C 


138C 


53B3 


2 6 '".7 


FAB3 


FAAB 


5615 


70CD 


CCF3 


PCOO 


4955 


6072 


ACF3 


F9ED 


6167 


FlOO 


C0F3 


E40C 
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ADDRESS 
































1390 


4959 


2647 


FAB3 


EEAF 


4925 


5112 


2CF3 


F80C 


3A17 


F9E8 


FEF6 


81FF 


38A2 


0901 


OOFS 


E50D 


1334 


68BA 


FllD 


CCF3 


E902 


38EE 


B410 


C843 


E40D 


58E9 


1713 


C491 


DEAC 


38F5 


7000 


CCF8 


6400 


1398 


38F0 


9110 


FCF5 


640D 


58EA 


A113 


BCFl 


EAAC 


18F5 


7408 


DB06 


41FF 


5959 


1710 


DB03 


E40C 


139C 


38F0 


9000 


FC74 


ACOC 


5959 


1710 


0AF3 


E40D 


38F0 


9110 


FC72 


ACOC 


18B5 


7000 


CCFl 


240C 


13A0 


58F9 


1710 


DAE4 


240C 


60BA 


B118 


CCF4 


5E00 


40AC 


3168 


CCB3 


EIFE 


44E5 


6203 


C4B1 


DEAC 


13A4 


58F9 


1710 


DAD3 


E40D 


2CE5 


7003 


CCCl 


DEAD 


3950 


9110 


FC73 


E40C 


58F9 


1600 


DAC5 


ACOC 


13A8 


1559 


1710 


DAC3 


E40C 


38F5 


7000 


CCF5 


ECOC 


38E5 


7110 


CCF3 


E5CD 


3A95 


7110 


CCF5 


E40C 


13AC 


3855 


7110 


CCF5 


A40C 


9CE5 


7110 


CCC3 


E40D 


9A55 


7110 


CCB2 


A40D 


3A45 


7110 


CCF4 


A40D 


13B0 


3A35 


7110 


CCF6 


640D 


3A25 


7505 


C525 


6525 


7577 


F310 


F6F1 


FOOC 


28B7 


F3A7 


F692 


E6FA 


13B4 


2967 


F3A5 


F691 


E6FB 


38A5 


61BC 


4CF4 


654E 


6155 


7105 


CC91 


EAFB 


4557 


F3A5 


F691 


EAFB 


13B8 


28E7 


F3A5 


F691 


FAFA 


712B 


35A5 


DCAl 


E6FA 


34D7 


F228 


F6F3 


C007 


54EE 


B4F5 


OC53 


E528 


13BC 


75A9 


F510 


DBEl 


E80D 


38E5 


7010 


CCF3 


E40D 


5054 


B172 


DCFl 


DC6C 


34A5 


7002 


CCF3 


F88C 


13C0 


1CB3 


711C 


CCF3 


E55D 


3578 


31E6 


CCF5 


E70B 


5075 


70AE 


CC74 


3C9g 


24E3 


7021 


CCF3 


EC9C 


13C4 


3905 


7512 


C525 


DCAC 


5D94 


B160 


DCFl 


E46D 


24E3 


7110 


CCFl 


E880 


24E3 


7161 


CCF5 


EC6C 


13C8 


54E5 


7003 


CC05 


DC8C 


5578 


3047 


CCF3 


FBOA 


5CE2 


BllO 


CCF3 


BOOD 


3960 


F407 


C073 


E81D 


13CC 


3CE5 


7113 


CC85 


E08C 


2CE2 


B510 


0CB3 


E440 


3815 


7110 


CCFO 


E40C 


3835 


7110 


CCFO 


679C 


1300 


3805 


7110 


CCFO 


A40C 


3828 


7110 


CCFO 


278C 


0015 


7110 


CC13 


E40C 


2CE1 


3010 


CC03 


E40D 


13D4 


00E5 


7110 


CCC3 


E40D 


38E1 


2010 


4C03 


E40D 


3805 


7110 


CCFO 


640C 


0425 


7105 


CC23 


E74E 


13D8 


04E5 


7110 


CCC3 


E40C 


38E5 


6010 


4C13 


E40C 


38E5 


7110 


CC93 


E40C 


70E5 


6510 


1E02 


E400 


13DC 


28B5 


728C 


F8F3 


E456 


30C1 


3110 


CC23 


E40D 


38B5 


7110 


8CF0 


6780 


38A8 


7110 


CCFO 


278D 


13E0 


00A5 


7108 


CCD3 


807E 


0818 


308E 


CCF3 


E459 


70E5 


6510 


1E03 


E40C 


28B5 


728C 


FAF3 


E457 


13E4 


30C1 


3105 


CC23 


E77B 


0025 


7108 


CCD4 


07FF 


04B8 


8269 


04F4 


7C01 


40EB 


3510 


DEE2 


E58D 


13E8 


38E5 


7109 


CC91 


C201 


441E 


711E 


CCF3 


E408 


28B9 


931C 


F8F0 


6446 


3090 


4010 


OOF 3 


E40C 


13EC 


2CA5 


6110 


OCCO 


A79D 


38E5 


7010 


8C03 


E40C 


38E5 


7509 


DEC3 


C055 


3805 


7105 


CCF3 


E74E 


13F0 


0405 


751C 


CF53 


C3C0 


3805 


7510 


C073 


E7AD 


74E5 


7309 


F694 


0005 


60AA 


B4A4 


C4A3 


FCOl 


13F4 


390D 


3526 


C083 


E42D 


2D0B 


76D7 


0083 


F02D 


3815 


6108 


5CC6 


CIFF 


00E2 


Clio 


CCF3 


E40D 


13FS 


38E8 


Alio 


7CC4 


02BC 


38E1 


3711 


C073 


C2BC 


3CFB 


4710 


9F06 


E40C 


3CFA 


3510 


DFEO 


240C 


13FC 


2DB2 


C51D 


DF80 


6 80A 


38E1 


301C 


DCF3 


EOOl 


3905 


7510 


CIFO 


240C 


38E5 


7110 


CCF3 


E40C 


1400 


74E0 


0B04 


E0F3 


DBOB 


74E0 


0B04 


C0F3 


D05B 


38E5 


7104 


CCF3 


D19A 


74E0 


0B04 


C128 


96E3 


1404 


74E0 


0B04 


C148 


9803 


74E0 


0804 


8168 


9403 


74E0 


0B04 


8168 


9403 


74E0 


0B04 


8168 


945A 


1408 


74E0 


0804 


8168 


960E 


74E0 


0B04 


8168 


960E 


74E0 


0504 


8168 


960E 


74E0 


0B04 


8168 


9C02 


140C 


70EB 


3578 


C3E3 


7FE7 


38Ae 


F0A5 


D0F3 


E0F9 


28E9 


B727 


0DF2 


E821 


38EE 


F545 


C083 


E42D 


1410 


70E2 


891C 


OOFl 


7D6E 


38E4 


6110 


BCF8 


240C 


38E0 


3110 


CD08 


67ED 


3827 


7110 


CDIE 


A40D 


1414 


38E5 


7110 


CDAA 


640C 


60E7 


F009 


CCF4 


3FC6 


04E5 


7105 


CC63 


E420 


4109 


8465 


6953 


C256 


1418 


002B 


3425 


D533 


E54F 


555F 


F0D2 


CCF3 


F99D 


3926 


7112 


CCF3 


E93D 


08E5 


7104 


CC73 


D15B 


141C 


38E5 


41F9 


3CF3 


8006 


GOES 


6110 


8C73 


E5CD 


40E2 


7104 


8C53 


D17B 


3C27 


7IC7 


C4F8 


2487 


1420 


28EC 


2109 


8073 


8002 


2 8DC 


21E0 


AC72 


FE9C 


30E5 


7103 


4072 


EE9D 


OOFl 


3100 


ED04 


65C5 


1424 


38C5 


7110 


CCD4 


6506 


1C9A 


0010 


0043 


E553 


44EF 


F979 


0674 


7F80 


28A0 


0824 


0463 


D107 


1428 


3841 


3168 


4CF1 


IFFE 


1860 


0824 


50F1 


0107 


2gA0 


08A5 


12F1 


E653 


28A0 


08A4 


12F1 


DOCB 


142C 


28AO 


08A4 


OEFl 


DOCF 


28A5 


70A5 


CCFl 


E653 


2840 


097A 


14F1 


2001 


28AO 


08A4 


20Fi 


D107 


1430 


38AO 


08C5 


08F1 


E653 


10A5 


7104 


CEFl 


911B 


3841 


310A 


FCFl 


2001 


3870 


0911 


0863 


E40C 


1434 


3885 


7104 


CCFl 


D0E7 


38FE 


F5C0 


0421 


E5D7 


3800 


0900 


2091 


E5C4 


38EF 


F913 


A0F2 


FE9C 


143 8 


44A9 


94D5 


D941 


DD17 


10E5 


6110 


CEF3 


E40C 


2 8A5 


611C 


80F3 


E850 


28B5 


611C 


8043 


ECOl 


143C 


1E05 


7226 


84D8 


2537 


8097 


FIFO 


0003 


E552 


14E4 


7104 


CCF3 


0006 


10E3 


7110 


CCFl 


25ED 


1440 


3862 


5104 


7C53 


9007 


3870 


0904 


0863 


00E7 


38FE 


F5C0 


0461 


E5D6 


10C5 


7100 


CEFl 


E5C4 


1444 


38E5 


7113 


CCF2 


FE9C 


1005 


70C5 


CEF3 


0E52 


28A5 


611C 


80F3 


E850 


28B5 


611C 


8043 


ECOl 


1448 


8207 


F026 


DD08 


2537 


389F 


F9F0 


C093 


E552 


14E4 


7104 


CCF3 


OlOA 


10E3 


7110 


CCFl 


25ED 


144C 


38fi2 


5104 


7C53 


910B 


1095 


70B4 


CEF3 


0142 


28A5 


611C 


80F3 


E850 


28B5 


611C 


8043 


ECOl 


1450 


3C55 


7080 


C6F3 


E71C 


3848 


BlOO 


8CF3 


EADE 


3841 


3110 


CCF3 


E6DC 


74E0 


0810 


20F3 


E40C 


1454 


ns!A5 


7020 


CCF3 


E57C 


38E5 


7510 


C073 


E4DD 


0C3E 


7110 


C273 


E55C 


5C77 


31F0 


CCF4 


2553 


1458 


saiir 


6111 


ACF4 


2550 


28E7 


9110 


FCF3 


E40D 


0001 


FUO 


C2F4 


2402 


5575 


6110 


8CD3 


ECOF 


145C 


4< A5 


631E 


9CF3 


EC05 


38E5 


7000 


CCF3 


E40C 


1865 


7110 


C273 


E55D 


5C75 


71F0 


CCF2 


E553 


i4(>a 


?4Br 


hill 


ACF2 


E55C 


28E7 


9110 


FCF3 


E40D 


18E1 


FllO 


C2F2 


FC02 


5575 


6110 


8C93 


ECOE 


1464 


ilSAS 


i 'liK 


0CF3 


EC05 


38E5 


7000 


CCF3 


E40C 


0508 


3465 


0913 


C65E 


555F 


F0D2 


CCF3 


F990 


14AS 


O'.^fi 


'Hi 


ECF3 


E93C 


38A5 


4110 


7CF0 


C809 


2 8C5 


4104 


4C74 


515A 


3800 


7110 


8CF1 


A40C 


14fi:. 


04L5 


7 104 


CC73 


5178 


38D5 


7111 


CC38 


261C 


38EC 


E919 


0138 


E060 


34B0 


7110 


CCFl 


2400 


1470 


38F5 


708D 


CCF3 


C989 


08CA 


FllO 


CCF3 


E5A8 


2CE0 


0D09 


6043 


8009 


3800 


08B0 


026 3 


E59C 
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1474 


38FF 


F900 


EDOl 


E40B 


38C4 


7100 


8CF1 


E40D 


04E8 


F509 


D7A3 


8004 


1875 


7U0 


DCFl 


E45E 


1478 


189C 


3512 


F7C3 


E93D 


1C90 


0Bi2 


1EF3 


E80D 


3875 


711C 


C0F3 


DCOl 


28B5 


611C 


8091 


ECOl 


147C 


8039 


A51D 


9960 


E853 


lllE 


F026 


4E44 


660F 


2893 


71B0 


CEFl 


65AC 


3A35 


7110 


CCFl 


25BD 


1480 


14E7 


9194 


ACF3 


DIEA 


3E06 


7U1 


CC7 8 


261C 


38E5 


7509 


D7A3 


8008 


4070 


7178 


8CF1 


EOOO 


1484 


38E1 


0179 


4CF3 


EOOO 


7470 


OA27 


80F3 


EE37 


2878 


B56B 


D8D1 


6001 


10E3 


2913 


0043 


E79C 


1488 


7450 


0A24 


40F3 


D22E 


8CA1 


10C4 


0C43 


D236 


28E2 


0919 


0043 


E201 


3448 


B4D2 


D8D3 


ECOC 


148C 


1046 


8919 


0041 


3601 


38E5 


71A4 


CCF4 


523F 


10F5 


7110 


0644 


640A 


3835 


70C0 


CCF3 


E40D 


1490 


44E3 


5110 


0EF3 


E79D 


74E0 


OBIO 


20F3 


E4CD 


38A5 


7020 


CCF3 


E57C 


38E5 


7510 


C073 


E4DD 


1494 


38E6 


7104 


CCF3 


DB66 


38E6 


3104 


CCF3 


DB67 


38E5 


7100 


CCF3 


E59C 


60E4 


OBIO 


00F3 


E58D 


1498 


28EB 


3510 


D9A3 


E57D 


38E5 


7585 


C6C3 


E5B8 


60E1 


0D05 


00B3 


E647 


98E5 


7110 


CCF3 


E65D 


149C 


A0E5 


7110 


CCF4 


680D 


9CA5 


7104 


CCD2 


D3EA 


2CE5 


7110 


CCD4 


680D 


A4E5 


7110 


CCF8 


3C0D 


14A0 


34A5 


7104 


CD02 


D3EB 


28E5 


7109 


CCD3 


8030 


3515 


7104 


CC62 


D3DF 


80B5 


6310 


94D7 


640C 


14A4 


2C65 


7310 


5592 


E40D 


3A05 


70D4 


4D84 


53EB 


28E5 


7109 


CCD3 


803C 


3515 


7104 


CC62 


D3DF 


MAS 


28B5 


7110 


CD69 


A40D 


2CE5 


7109 


CD73 


8010 


18E5 


7104 


CCD2 


D3DE 


98B5 


7110 


CCF9 


266D 


MAC 


A0A5 


6310 


D499 


640D 


B4A5 


73D0 


5159 


E40C 


30E7 


F200 


F6F3 


E40C 


39D5 


7104 


CCFA 


177F 


14B0 


94E5 


7110 


CCF3 


E40C 


9CA5 


7110 


CCF4 


640C 


98A5 


7104 


CCD2 


D3EB 


2CA5 


7110 


CCD4 


640C 


14B4 


A0E5 


7110 


CCFl 


BCOD 


34A5 


7104 


CD72 


D3EA 


2CA5 


7110 


CCD4 


640C 


A4E5 


7110 


CCF3 


E40C 


14B8 


34A5 


7104 


CD82 


D3EA 


28E5 


7109 


CCD3 


803C 


3515 


7104 


CD92 


D3DE 


18B5 


6310 


9567 


25CD 


14BC 


38E5 


7104 


4C53 


D28E 


3A55 


7110 


CCF8 


E40D 


28E5 


7110 


CD43 


E40D 


3805 


71E5 


CCF9 


675B 


14Ca 


95C5 


6310 


D161 


A5DC 


3265 


7110 


CD39 


240C 


2CA5 


7110 


CD5 8 


A40C 


1505 


7110 


CD89 


A40D 


14C4 


2CA5 


7110 


CD79 


E40D 


1865 


7104 


CD9A 


177F 


90E5 


7110 


CCF3 


E40D 


98A5 


7110 


CCF4 


65ED 


14C8 


94A5 


7104 


CCD2 


D3EB 


2CE5 


7110 


CCD4 


680D 


9CE5 


7110 


CCF3 


FOOD 


2CA5 


7110 


CD52 


E40D 


UCC 


34E5 


7104 


CD63 


D3EB 


2CA5 


7110 


CCD4 


640C 


A0E5 


7110 


CCF3 


E40D 


34A5 


7104 


CD72 


D3EA 


14D0 


2CA5 


7110 


CCD4 


640C 


A4E5 


7110 


CCF3 


E40C 


34A5 


7104 


CD82 


D3EA 


28E5 


7109 


CCD3 


803C 


1404 


3515 


7104 


CD92 


D3DE 


28B5 


7105 


CC74 


26C2 


A3F5 


7109 


CCF3 


8101 


9A65 


6310 


9488 


A44D 


1408 


2CA5 


7310 


5488 


6440 


39D5 


7110 


4C89 


244C 


2CA5 


7110 


CC88 


E44C 


15C5 


7110 


CC89 


A44C 


14DC 


2CE5 


7110 


CC89 


684D 


1005 


7110 


CC8A 


244C 


2CA5 


7110 


CC89 


E40C 


3805 


7035 


CCF3 


E7CB 


14E0 


38E5 


7104 


CCF3 


D77E 


gOAS 


7104 


CCD2 


D3EA 


2CA5 


7110 


CCD4 


640C 


98E5 


7110 


CCF3 


FCOC 


14E4 


2CA5 


7110 


CD42 


E40C 


34E5 


7104 


CDS 3 


D3EB 


2CA5 


7110 


CCD4 


640C 


9CE5 


7110 


CCF3 


E40D 


14E8 


34A5 


7104 


CD62 


D3EB 


2CA5 


7110 


CCD4 


640C 


A0E5 


7110 


CCFF 


E40D 


34A5 


7104 


CD72 


D3EA 


14EC 


2CA5 


7110 


CCD4 


640C 


A4E5 


7110 


CCF3 


E40C 


34A5 


7104 


CD82 


D3EA 


28E5 


7109 


CCD3 


803C 


14F0 


3515 


7104 


CD92 


D3DE 


38B5 


60D5 


8DAB 


E71A 


AAF5 


7110 


CD81 


A40C 


38A0 


0910 


0A79 


E40C 


14F4 


206S 


7110 


CCFA 


245D 


38A7 


9185 


FC72 


27D3 


18E5 


7104 


CD93 


D77E 


38E5 


7UE 


CCF3 


E408 


14F8 


2 8?"^ 


623C 


A4F3 


EC55 


38E5 


6000 


8CF3 


ECOD 


3916 


71FF 


CC93 


E406 


BEES 


628C 


BCF3 


ECS5 


14FC 


38E;. 


600C 


82F4 


6C00 


38E5 


7110 


CCF3 


E40C 


38E5 


7110 


CCF3 


E40C 
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1500 


3 8A5 


74C5 


C089 


64F9 


38E0 


0904 


3E99 


DDD3 


34E5 


6304 


48CA 


IDDE 


3865 


51A4 


CDBA 


DE22 


1504 


38E5 


6104 


4DFA 


5E3A 


7408 


F510 


Dill 


A7CC 


B4E5 


7104 


CCFA 


9E63 


AC65 


7104 


CCDF 


5E82 


1508 


BCD5 


70B9 


CC73 


COOS 


B4AS 


7110 


CCFl 


E15D 


38A5 


70BD 


CCF3 


EICB 


3875 


7110 


CDEl 


E15F 


150C 


38E5 


7104 


FC63 


DAD3 


38EA 


951C 


D37B 


1D4F 


3898 


35E5 


0783 


9996 


38ES 


7510 


0443 


E40C 


1510 


22D5 


7106 


CDE3 


A51B 


60EE 


7804 


FEB3 


DF73 


8CE5 


5025 


CC91 


9C1A 


1CA9 


06A7 


B5B3 


C81B 


1514 


18D5 


411D 


A0F3 


DBDF 


28ES 


6105 


ECC3 


E41B 


38A5 


74C5 


C089 


64F9 


38E0 


0904 


3E9g 


0003 


1518 


34E5 


6304 


48CA 


IDDE 


1C65 


71A4 


CDBA 


DE23 


38E5 


6104 


40FA 


5E3A 


8405 


7104 


CCFl 


9E63 


151C 


ACES 


7104 


CCD3 


DE82 


BCD5 


70B9 


CC73 


FFFC 


B4AS 


7110 


CCFl 


E15D 


38E0 


0880 


04F3 


E80C 


1520 


3875 


7110 


CDEl 


E9SC 


39B0 


090B 


0A63 


8110 


38EA 


951C 


0278 


1D4E 


3800 


igES 


12F4 


2528 


1524 


3985 


71F7 


CCF3 


A973 


38E5 


7105 


CCF3 


E4CB 


3985 


7508 


0353 


8110 


3806 


51A5 


C3F4 


24AA 


1528 


3AC5 


7485 


D783 


E4B3 


38E5 


7105 


CCF3 


E4B3 


BEC8 


F4B5 


07E3 


ESgA 


ICEB 


1710 


8263 


E40D 


152C 


BCE6 


7109 


C273 


8113 


3980 


1911 


1291 


A40D 


38EB 


1513 


D321 


DC5C 


38E7 


9113 


BC63 


E44C 


1530 


2095 


7185 


CC83 


ACBE 


3805 


7105 


CCF3 


A4B7 


74E0 


0809 


1EF3 


C019 


2CEB 


2709 


8813 


COOB 


1534 


2DBB 


3708 


7813 


8112 


3AB6 


7104 


CCF4 


5EDA 


38E5 


7104 


CCF3 


DF62 


3806 


D1A5 


C3F4 


24EB 


1538 


3AC5 


7485 


D5C3 


E4F2 


38E5 


7105 


CCF3 


E4F2 


BEC8 


F4B5 


0623 


E52A 


lADB 


1710 


F103 


A40D 


153C 


BEDS 


7110 


C273 


A5DC 


28E6 


3510 


0443 


E40D 


3985 


7110 


CCFl 


A44C 


207E 


8025 


CCF3 


E513 


1540 


B8E5 


6310 


85E3 


E40D 


38E7 


9110 


BC63 


E45D 


2095 


7186 


CC83 


A506 


3AD6 


0105 


FC73 


A4FA 


1544 


74E0 


0809 


1EF3 


C019 


2DBB 


2708 


8813 


8113 


B8EB 


3110 


CCF3 


E400 


3A87 


3104 


CCF4 


5EDA 


1548 


38EF 


7109 


CCF3 


C800 


60E7 


6304 


0483 


DF62 


A4E5 


7179 


CC91 


8000 


9CE5 


7179 


CCD3 


EOOl 


154C 


227B 


2310 


C8F2 


E40D 


9657 


302F 


CCF3 


E407 


2885 


728C 


F953 


E457 


2CA5 


7108 


CD64 


401E 


1550 


38E5 


7110 


8D73 


FCOD 


3905 


60A9 


C083 


FFEO 


3645 


7000 


CD93 


E40C 


2E35 


7110 


CC92 


E400 


1554 


8E05 


7110 


CCD3 


D93C 


8611 


F02F 


CCF3 


E407 


2885 


728C 


F913 


E456 


2CE5 


7110 


CD23 


E40C 


1558 


38E5 


7110 


8D33 


FCOC 


2D15 


7060 


CD43 


E40D 


34E5 


6200 


C553 


E40C 


60E0 


8004 


0083 


DF3B 


155C 


21B5 


7111 


C8D1 


A65D 


2085 


7110 


CAF3 


E406 


2CE5 


6311 


8483 


E450 


38A7 


91 ID 


BCe2 


2C0B 


1560 


3898 


3185 


8CF3 


A176 


38E7 


3105 


CCF3 


E606 


8CE5 


7110 


C273 


E65D 


38EC 


3509 


0661 


9FFE 


1564 


21BB 


1311 


8gEl 


A5AD 


3877 


3106 


CCFl 


E507 


A4E5 


7110 


CC93 


E40C 


9E75 


7110 


CCD2 


E40C 


1568 


9655 


702F 


CCF3 


E407 


2885 


728C 


F853 


E456 


28A5 


6310 


0163 


E54C 


32DE 


F310 


P.I 7 3 


A40C 


156C 


30E1 


FBIO 


FF53 


FCOD 


3905 


60A9 


CD83 


FFDF 


3645 


7000 


CD93 


E40C 


2E35 


7110 


CC92 


E40D 


1570 


8CE5 


7110 


CCD3 


E40D 


8615 


702F 


CCF3 


E407 


2885 


728C 


FB13 


E457 


2ED5 


7110 


C023 


A40C 


1574 


38E5 


7110 


8D33 


FCOC 


2CE5 


70C0 


CD43 


E40C 


34E5 


7000 


C053 


E400 


38E5 


7104 


CCF3 


OF38 


1578 


2185 


7111 


CCDl 


E65D 


3885 


7U0 


CCF4 


2446 


38E5 


7113 


8AD1 


0C5C 


2105 


711D 


CCD2 


2843 


157C 


2CE5 


70A5 


CC83 


DDE 6 


38ES 


7105 


CCF3 


E606 


BCE5 


7110 


C2F3 


E65C 


38AC 


3511 


D4A1 


E40D 


1580 


38E5 


7509 


D2D3 


8113 


38EO 


08C0 


0A63 


£660 


38E5 


7000 


CCF3 


E40C 


38A5 


74C5 


C089 


64F9 


1584 


38E5 


7104 


CDE9 


DDD2 


38E5 


7104 


CCFA 


IDDE 


1C65 


71A4 


CDBA 


DE23 


00E5 


7104 


CC6A 


5E3A 


1588 


B4E5 


7104 


CC9A 


9E63 


B2B5 


7104 


CC43 


DE8E 


AFF5 


7104 


CCDF 


9E82 


B7EB 


1710 


38E2 


E79D 


158C 


B2D8 


F510 


D5C3 


A40C 


B2DA 


F579 


D783 


BFFE 


77FA 


FUO 


C2F3 


FD4C 


2CE7 


F109 


FCF3 


8131 


1590 


75B5 


7180 


CC91 


E40D 


38EE 


8510 


DA21 


BC4D 


2095 


7179 


CCD3 


BFEO 


3880 


0910 


0443 


E40C 


1594 


28B7 


DUO 


EC73 


E40C 


2087 


831C 


A483 


EC40 


3895 


6109 


CC83 


801C 


38EE 


8509 


D9C1 


4010 


1598 


2095 


7179 


CCD3 


BFEO 


1087 


DUO 


EC73 


E400 


2081 


831C 


A483 


EC40 


2C95 


71B5 


CC83 


9663 


159C 


3ADE 


7179 


CCF3 


BFFE 


38D7 


3085 


CCF3 


E6C6 


22D5 


7110 


CDE3 


A40C 


3AB5 


7104 


CCF4 


5EDA 


15A0 


38EF 


3510 


D773 


E57D 


38E5 


7104 


CCF3 


DF62 


2096 


F179 


CCD3 


BFEl 


38E7 


D109 


FC72 


COIE 


15A4 


2097 


B3A5 


AS83 


AEA7 


38E5 


7110 


CCF3 


E40C 


2095 


7179 


CCD3 


BFEO 


38E7 


DUO 


FC73 


E40C 


15A8 


2091 


B3B5 


A883 


BE9B 


75BA 


F510 


DBll 


E5EC 


3AD5 


7185 


CCF3 


A67F 


19B1 


3110 


FCF3 


ACOC 


15AC 


38E5 


5110 


FC73 


E40C 


20E' 


B310 


E883 


E45D 


38ES 


7113 


FCFl 


DD4C 


2091 


B3BS 


E883 


AAB6 


15B0 


3AD5 


7105 


CCF3 


A67E 


3985 


71E1 


CCD2 


E4QC 


39B5 


7184 


FC73 


DF63 


3ADE 


35F5 


0853 


AED7 


15B4- 


18E1 


3104 


FCF3 


DF63 


20E5 


7313 


84D2 


FD3C 


3898 


A185 


8CF3 


9ED6 


38E1 


3104 


CCF3 


DF62 


15B8 


38A5 


74C5 


cosg 


24F8 


080F 


F8D9 


C673 


FFF2 


38E6 


7104 


CD33 


DB67 


3876 


30A4 


C053 


D867 


15BC 


-806 


7024 


CD63 


D14E 


3827 


3024 


CD93 


D14F 


38E5 


7104 


CCF9 


5DDF 


3860 


B9A4 


EBFA 


DE22 


15C0 


J9F5 


4104 


OC76 


DE3A 


38E7 


4109 


3C93 


8112 


55B2 


4108 


4CDF 


C113 


3522 


611E 


8C03 


E9D5 


15C4 


3CA7 


FUE 


CC93 


D005 


38E5 


5025 


FC73 


DF22 


3CE5 


7110 


CC83 


E45C 


38A2 


7105 


BCD2 


2717 


15C2 


B405 


7104 


CCFl 


9E63 


3401 


0312 


04F2 


E44C 


OOEF 


F979 


F87B 


8200 


20E8 


8510 


DC03 


E440 


15CC 


38E5 


7426 


DCB2 


FF92 


38EB 


0713 


1D43 


E5FC 


3869 


1425 


DED4 


6B97 


9665 


71A4 


CC91 


9836 


15D0 


3875 


5024 


FCFF 


D26E 


38A7 


E224 


B6F3 


D2C3 


8CE5 


71A4 


CCF3 


D31A 


94A7 


3104 


CCF4 


5387 


15D4 


A4E7 


7309 


E0D3 


801D 


B5E7 


F304 


F6F6 


D3DE 


28BE 


BUO 


CCF3 


E40C 


28B5 


742F 


DDA3 


E407 


15D8 


28B5 


708C 


C183 


E450 


2FF5 


7105 


CD93 


A772 


2885 


728C 


F793 


E453 


2DB5 


710B 


CD83 


8113 


15DC 


3AB7 


70D4 


CDE4 


5EDB 


38EF 


3510 


DBA3 


E57C 


38E5 


7104 


CCF3 


DUE 


3820 


19A4 


1474 


1528 


15E0 


A5B5 


710B 


CCF3 


8113 


28A5 


71A5 


CAFA 


2773 


28E5 


6104 


8063 


D59A 


19B5 


5107 


81A3 


9F73 
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ADDRESS 










15E4 




39B1 


3<iOB 


DDC3 


8114 


15E8 




3515 


7;L04 


CC62 


D3DF 


15EC 




2CE5 


71105 


CD73 


E77F 


15F0 




28E5 


71109 


CCD3 


803C 


15F4 




2CE5 


71109 


CD83 


803C 


15F8 




38ES 


7 11 10 


CCF3 


E40C 



CONTROL STORE 



A285 731C E0D2 E400 
2CA5 7110 C099 E40C 
9CE5 71A4 CC63 DB37 
34E5 7110 CC64 7C0C 
4465 7104 CCD2 D3DF 
38ES 7110 CCF3 E40C 



B4E7 F304 F6F3 D3EA 
2CE5 7109 CD83 801D 
A285 7110 CCD2 E40C 
B517 F304 F6F2 D3DF 
2CA5 7110 CD79 640C 



10/ 2/86 9:28 AM 



2«lE5 7109 CCD3 803C 
18E5 7104 CCD2 D3DE 
3S65 70D4 CD54 53EA 
2CA5 7110 CD99 E40C 
2CA5 7105 CD69 A77E 
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CONTROL 


STORE 














10 


ADDRESS 
































leoo 


38A5 


70C5 


CD8< 


E4F9 


5CE5 


7109 


CC47 


5FFF 


38ES 


4104 


42F9 


SE02 


ICES 


7104 


CDB9 


9ES2 


1604 


4007 


8025 


0CF3 


EeFF 


54E5 


4184 


8069 


DB56 


380F 


FA4B 


ED73 


0008 


0067 


F105 


4CF4 


2437 


1608 


3860 


0BA6 


2534 


2437 


OOBA 


B709 


70D4 


0004 


2000 


084B 


04F3 


C039 


3 8 AS 


7105 


CD64 


2436 


160C 


38BS 


7109 


CD24 


0005 


eoES 


7109 


0040 


005E 


4125 


531E 


1CF3 


D804 


3845 


7044 


CCF3 


DE22 


1610 


ADC5 


7104 


CCD6 


DE82 


54A4 


4180 


8CFB 


A40D 


B0E7 


F305 


FeF3 


E45A 


OOAF 


Fgio 


0643 


ESSC 


1614 


6005 


71E4 


C3E4 


159A 


OOEF 


F9F4 


DA70 


D52B 


A407 


704B 


OOF 3 


C009 


3A75 


7105 


CCDl 


A873 


161S 


3804 


E84B 


2063 


C012 


2CE7 


BIOS 


ECFC 


E497 


3959 


1509 


D40F 


0006 


3845 


7445 


0033 


E5D6 


161C 


1865 


731C 


F6F3 


E40D 


28B5 


7310 


F6F3 


E40C 


2885 


731C 


F6F3 


E40C 


28BE 


B310 


F8g3 


E40D 


1620 


2DS5 


7110 


CC93 


CBIC 


54E4 


4110 


8CF3 


E400 


34E6 


F105 


OOFC 


E583 


2EE3 


60B0 


8CF3 


E40F 


1624 


38A5 


7512 


DBD3 


E6DC 


6265 


71A5 


C3E4 


24AF 


2E75 


702F 


CCF3 


E5D6 


2 885 


7080 


0184 


6450 


1628 


4285 


702F 


CCF3 


E406 


2885 


728C 


F4F3 


E45C 


2910 


0805 


1E93 


ECC2 


A285 


702F 


CCF3 


E5D7 


16ZC 


28B5 


708C 


C2F4 


6451 


9E75 


702F 


CCF3 


E407 


2885 


7080 


0293 


E451 


2D15 


7110 


CD 8 3 


E40D 


1630 


38E5 


6195 


CD94 


6406 


34DB 


3579 


D353 


BFFE 


38ES 


708E 


OOF 2 


E458 


2885 


7080 


CCF3 


D850 


163r4 


2CA5 


7110 


CCD4 


640C 


A0E5 


7105 


0093 


E583 


3885 


7110 


8CF3 


E80D 


44B5 


7UC 


CC43 


E800 


1638 


38B4 


E905 


2091 


A5CB 


A4ES 


7105 


0093 


E582 


3885 


7110 


8091 


A80D 


88E7 


F1C5 


0EF3 


E5SA 


163C 


3955 


7111 


CCF3 


CBID 


44D5 


7110 


0CF3 


D801 


2885 


7310 


E0F4 


2600 


28E3 


7105 


OOF 3 


E6F7 


1640 


9565 


71E6 


CC91 


A512 


90E5 


7109 


0093 


8111 


38E5 


7023 


FOFl 


9840 


2095 


7105 


CC83 


A90B 


1644 


34E5 


7510 


D604 


6400 


38BS 


7005 


OCDl 


A9C6 


9B05 


7105 


0093 


A582 


38B5 


7110 


8CF3 


E800 


1648 


44B5 


711C 


CC44 


2801 


2CBB 


2425 


9402 


E533 


38EO 


1969 


O0D2 


E94B 


3902 


0905 


oogi 


A5AB 


164C 


2CD5 


7110 


CD19 


2400 


38E5 


7110 


8CF4 


3C0C 


90E5 


7105 


0097 


E982 


38B0 


B90S 


EA43 


E9B6 


1650 


3BF5 


7110 


8CF3 


OB'O 


3A45 


7110 


CCF9 


2801 


3915 


5110 


80F3 


E801 


390S 


6110 


8CF8 


EOOO 


1654 


85F5 


711C 


CD18 


AgCD 


38E5 


7105 


CCD4 


64D7 


44D5 


7110 


OOF 3 


D801 


2A4S 


7110 


CCFl 


AEDl 


1658 


3A35 


711C 


CCF4 


6800 


8623 


7110 


0094 


2801 


2FF3 


7110 


CCF3 


CBID 


44E3 


71BS 


CCF3 


E6F6 


lesc 


4467 


BllC 


EC63 


E6D0 


5554 


4111 


8CF3 


OBID 


3501 


BllC 


FC93 


E6D1 


2863 


7510 


DBD3 


E6D0 


1660 


38A8 


A178 


8CF3 


EOOO 


3B38 


211D 


C2F0 


E803 


38ES 


6110 


82F3 


E801 


20D5 


6108 


82F3 


DEOl 


1664 


2CB5 


6110 


82F3 


E80D 


38B5 


6110 


82F3 


E40D 


20D5 


6108 


82F3 


ClEl 


20B5 


6110 


82F3 


E80D 


1668 


38B5 


6110 


82F3 


E40D 


20D8 


2108 


82F3 


COIF 


38ES 


711E 


OOF 3 


E408 


28B5 


5280 


3AF3 


D855 


166C 


30C5 


7000 


CC84 


6400 


38E5 


6179 


ccgi 


8200 


38E5 


70EF 


00D2 


E407 


28BS 


5280 


3AF3 


D855 


1670 


28B5 


7000 


0084 


6 400 


38E4 


E910 


2091 


2400 


38E5 


70EF 


00D2 


E407 


28B5 


5280 


3AF3 


D85S 


1674 


28B5 


7000 


0064 


04OD 


8DB5 


71Ee 


CC91 


ASE7 


88ES 


7109 


0093 


8111 


38E5 


7023 


FCFl 


9840 


1678 


2095 


7105 


CC83 


A9DF 


34E5 


7104 


CCF4 


5983 


20DS 


6004 


8063 


D9C6 


90E5 


7104 


009 3 


D982 


167C 


3866 


3110 


8CF3 


E80C 


44B5 


7110 


CC44 


2801 


20EB 


2309 


84F2 


CBEA 


38Ee 


7109 


CCD3 


803E 


1680 


390C 


2994 


0091 


69AA 


32E5 


7110 


CD03 


E55F 


44ES 


7180 


CD18 


E40C 


38E5 


7110 


8CFS 


FCOC 


1684 


94A5 


7104 


CC97 


D983 


2CE5 


6104 


8063 


D9C7 


98E5 


7104 


0093 


D983 


3885 


7110 


8CF3 


E80D 


1688 


44B5 


7HC 


CCF3 


E801 


2A3S 


7110 


CCFl 


ACOO 


85F7 


BllC 


CDll 


2801 


38E2 


0969 


oog2 


E946 


168C 


3B00 


1904 


D0D3 


99AA 


2CDS 


7110 


CD39 


A40C 


38EE 


3110 


80Fg 


7000 


80 AC 


3110 


0C4g 


2400 


1690 


80ES 


7110 


DC47 


98 00 


84E5 


7169 


0062 


E94B 


3BF0 


1910 


D0D3 


CBIC 


3B02 


0904 


0093 


99AA 


1694 


35E5 


7110 


CCFl 


640D 


8E4B 


7110 


OOF 9 


2800 


14E5 


7110 


DOS 3 


E80C 


38BS 


7110 


8C53 


E40D 


1698 


14B5 


711C 


OOF 8 


FCOO 


4455 


7110 


0056 


E800 


90E5 


7104 


0093 


D982 


20ES 


6104 


8063 


Dg07 


169C 


A0E5 


7104 


CC93 


D982 


38B5 


7110 


8CF3 


E80D 


44B5 


7110 


0043 


E800 


38B4 


E904 


2ogi 


ggcA 


16A0 


A635 


7104 


CC94 


1982 


3885 


7110 


80F3 


E80D 


448B 


7110 


0043 


E801 


18B5 


7110 


DC63 


E40C 


16A4 


12eB 


711C 


CCFl 


2001 


18AS 


7110 


D063 


E40D 


38ES 


7110 


CCF3 


ECOD 


lASS 


711C 


CCFl 


EOOl 


16A8 


4247 


BllC 


CD04 


6AD1 


38E5 


7190 


D0F4 


2 SOD 


15B3 


711C 


CC4e 


E801 


107S 


7110 


cogs 


E6DC 


16AC 


39B5 


7110 


CCF3 


E40D 


2CD3 


7110 


OOF 3 


E6DC 


40E3 


71F5 


OOF 3 


E6F6 


3955 


7510 


0873 


CBIO 


16B0 


4443 


7110 


OOF 3 


EeDD 


1D63 


7110 


CCF3 


E6DD 


3503 


7510 


DBD3 


E6DC 


38E5 


7310 


0CF3 


E40D 


16B4 


3ADS 


7110 


OOF 3 


A400 


3BD5 


7000 


CCF4 


240D 


38ES 


7110 


CCF3 


E40C 


10D7 


BllC 


EC74 


2400 


16B8 


4111 


BllC 


FCF4 


6400 


40A5 


7110 


CC94 


240C 


llBl 


BllC 


FC46 


E401 


lABl 


BllC 


FC6A 


E401 


16BC 


54E0 


0800 


0EF3 


E40D 


3B35 


7000 


CCF3 


E40D 


38E5 


7110 


C0F3 


E790 


74E0 


OBIO 


20F3 


E4DC 


16C0 


28EB 


3110 


CCF3 


E57D 


38E3 


BIOS 


CCF3 


E41C 


38AS 


7405 


0083 


E4F8 


38A6 


4110 


8092 


E40D 


16C4 


38ES 


71EF 


CCD3 


E7C7 


2885 


4280 


7AF3 


0055 


28B1 


3110 


CC90 


A40C 


2CEB 


2310 


84F0 


3D7C 


16C8 


60D0 


8C20 


OOBO 


E40D 


38E5 


7105 


8013 


E41C 


3821 


300D 


CCF3 


E802 


3805 


7025 


CCF3 


E41D 


16CC 


38E1 


3105 


DCF3 


E41D 


A287 


8110 


ED84 


2401 


2E5S 


7110 


CD93 


E40D 


2061 


BUC 


FD61 


A401 


16D0 


2E35 


7110 


CD73 


E40C 


2E41 


BllC 


FD43 


E400 


2005 


70A9 


CD53 


FFF3 


3905 


7000 


CCFA 


2400 


16D4 


8CE1 


BOOO 


FD33 


E40C 


60E4 


0810 


00F3 


E57D 


38AS 


7025 


CCF3 


E763 


38E5 


7595 


C6E3 


E5B1 


16D8 


60E1 


0D05 


00B3 


E6F6 


e0E4 


0810 


OOFS 


E57D 


38AF 


3425 


C6A3 


E777 


70E0 


OF 85 


04F3 


E5B8 


16DC 


38A5 


7425 


C6D3 


E5AD 


60E1 


0D04 


0083 


D14E 


3A15 


70C8 


CCF3 


FFEl 


38E5 


7000 


CCF3 


E40C 


16E0 


ABAS 


7104 


CCBO 


9F3A 


38E5 


7110 


CCF3 


E40C 


38ES 


7110 


CCF3 


E40C 
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CONTROL 


STORE 














10> 


ADDRESS 
































1700 


38A5 


74C5 


C089 


64F9 


38E5 


7104 


CCF9 


DDD2 


38E5 


7104 


CCFA 


IDDE 


3865 


51A4 


CDBA 


0E22 


1704 


61E5 


7104 


CDAD 


9E3B 


3AB5 


7110 


CCFO 


240C 


B5F5 


7110 


CCFO 


E40C 


38A0 


0904 


40DD 


SF72 


1708 


1C75 


7104 


ACDl 


IFBA 


1047 


0020 


ECF3 


E50D 


08E0 


08C0 


06F3 


C80D 


28A9 


3710 


BCE3 


D1C2 


170C 


2CA5 


7110 


C291 


640C 


BIEE 


FllO 


CCD6 


E40C 


AEB5 


7510 


0613 


E40D 


3805 


5179 


32FB 


FFFE 


1710 


38C5 


60AB 


83E3 


COlO 


38C5 


7179 


CCFB 


FFFC 


ADC5 


7104 


CCD6 


OE82 


B047 


F3C5 


F664 


24SB 


1714 


3BF6 


F1A4 


CDFF 


9S9B 


3865 


70B4 


CCF3 


D5FA 


BOES 


7109 


CCOB 


8186 


9SE5 


7109 


CCF3 


8180 


1718 


9EB5 


71 ID 


CCF2 


2848 


A0C5 


7110 


CCF2 


2848 


A4C7 


7110 


CCF2 


2848 


B0C6 


7110 


CC02 


2809 


171C 


ACC5 


75.10 


D614 


240C 


41C5 


7104 


CCD6 


OE83 


3BE5 


71C5 


CCF3 


E4F7 


B3r7 


F311 


F663 


EF9C 


1720 


3846 


F1A4 


CDF4 


159A 


3865 


70B4 


CCF3 


D5FA 


3AF0 


0911 


2691 


A40C 


38EF 


F909 


FC03 


8112 


1724 


38E7 


DUO 


BC62 


240D 


2095 


73A9 


C883 


8024 


3005 


7107 


CCS 3 


AC93 


39C0 


190S 


36F1 


E59A 


1728 


39C0 


1905 


4EF1 


E59A 


39C0 


1905 


66F1 


E59A 


3AE5 


7105 


OC93 


A51A 


38A5 


7104 


CCF4 


159B 


172C 


3AE5 


7105 


DC93 


ASIA 


38A5 


7104 


CCF4 


1S9B 


3AE5 


7105 


0C93 


ASIA 


38AS 


7104 


CCF4 


159B 


1730 


3AE5 


7105 


DC93 


ASIA 


8CS5 


7024 


CC53 


DB7A 


9F55 


711C 


CCF4 


654F 


A4E5 


7110 


CC69 


A800 


1734 


8455 


7110 


CC78 


A40D 


386E 


B510 


D38A 


240D 


39B5 


710B 


CCF3 


8113 


3875 


7104 


CCF8 


1572 


1738 


45B5 


730B 


F5D3 


8112 


3BA5 


7110 


CDEO 


A40C 


3B47 


7104 


CCF4 


5E0A 


38EF 


3510 


0CE3 


E40C 


173C 


38E5 


7104 


CCF3 


DF62 


3B61 


3110 


CCF7 


A40D 


3B75 


7110 


CCF7 


E40D 


38E5 


7110 


CCF6 


E40C 


1740 


38E5 


7109 


CCF3 


8113 


3B50 


091C 


1064 


640F 


3895 


7110 


CCF8 


240C 


38E5 


7110 


CC82 


245C 


1744 


38E8 


95:l3 


9431 


980C 


3A05 


7505 


0383 


A69B 


BAF5 


7111 


CC06 


E65C 


348F 


F825 


FE94 


2542 


1748 


3880 


19:iO 


3674 


255C 


36F5 


71E5 


CCF4 


655E 


3900 


1910 


4E74 


2553 


3Af5 


71E5 


CCF4 


65SE 


174C 


3900 


i9:io 


6674 


2553 


3AF5 


71E5 


CCF4 


655E 


3900 


1910 


7E74 


2553 


36F5 


71E5 


CCF4 


655E 


1750 


38A7 


F109 


BCD3 


8187 


890E 


F510 


D472 


2453 


90AS 


7110 


CCF8 


6660 


94A5 


7110 


CCF8 


E40C 


1754 


98A5 


71110 


CCF9 


240D 


A0A5 


7110 


CCF9 


6400 


08A5 


5000 


0CF9 


E40C 


34E6 


7110 


C0B3 


9E5D 


1758 


34EF 


F9Jt3 


FC92 


E451 


2 005 


7109 


CC63 


8110 


2075 


7110 


CCFl 


FCSD 


2115 


6310 


94F4 


704C 


175C 


20A1 


B31C 


6483 


D840 


3875 


61B5 


CC83 


A563 


38E6 


7110 


CCF3 


E66D 


38E5 


7110 


CCF3 


E40C 


1760 


ACE 7 


7000 


CC93 


E5BC 


2CA5 


7110 


CDBA 


E40D 


09C5 


7110 


CC47 


A40D 


B5E5 


5310 


15C7 


240C 


1764 


39D5 


711,0 


4C27 


E40C 


39F8 


3110 


8DD7 


6400 


38A0 


0910 


1693 


A65C 


1F77 


FllO 


9077 


E45C 


1768 


2095 


7109 


CC63 


8016 


20E5 


7179 


CCF2 


FFE5 


2867 


A31C 


A483 


D840 


3895 


61A6 


CC83 


BDC6 


176C 


38EO 


0913 


169F 


6450 


2095 


7110 


CC63 


A80C 


2305 


7110 


CCFl 


004C 


2861 


A31C 


A483 


0840 


1770 


3895 


61Et6 


CC83 


BDB3 


3805 


7110 


CCF3 


AE6D 


38E6 


FllO 


CCS3 


E44D 


3B65 


7000 


CC87 


AS 90 


1774 


4109 


84(15 


9D33 


C34E 


3805 


7024 


CD23 


0F63 


3828 


3024 


C033 


DF63 


3975 


4110 


C2F1 


2400 


1778 


54E5 


6110 


8C63 


CD5D 


48EB 


61F0 


ACF7 


8953 


18E9 


9111 


2CF7 


ADSC 


18E5 


5110 


4C68 


E5FD 


177C 


39E5 


7110 


CD47 


A402 


3865 


7110 


C083 


ECOC 


48BF 


531E 


9CF3 


0004 


3978 


0110 


42F1 


240C 


1780 


54E5 


6110 


8C73 


CS5D 


48EB 


61F0 


ACF7 


0153 


1CE9 


9111 


2CF7 


205C 


ICES 


5110 


4C79 


25FC 


1784 


39C5 


7110 


CD57 


2403 


3875 


7110 


C093 


ECOC 


48B5 


531E 


0CF3 


0005 


38E5 


7000 


CCF3 


E40C 


1788 


38E5 


4110 


4262 


CE53 


392F 


6510 


0803 


E400 


5559 


A607 


0803 


FA36 


38E5 


70C0 


CCF3 


E660 


178C 


38E5 


7000 


CCF3 


E40C 


5555 


5105 


80BA 


FE2E 


38E7 


C309 


B697 


OFFE 


38E1 


E9B9 


0107 


SFFE 


1790 


34EA 


C113 


CCF7 


E40C 


B4ES 


70B0 


CF03 


CCOD 


39FF 


7110 


C077 


E407 


38E8 


3110 


CCF9 


A400 


1794 


38E1 


E8AC 


01C3 


COOE 


2CEA 


C113 


4CF7 


640C 


38E0 


08B0 


1FC3 


C40D 


39D8 


3110 


CCF7 


6407 


1798 


BOEA 


FOGIO 


CCF6 


EA5D 


38EC 


1100 


8274 


4802 


38E5 


6111 


9C74 


6C0C 


BIBA 


F035 


CCF3 


E676 


179C 


38E5 


5110 


DC73 


E40D 


3915 


7110 


C0A6 


E662 


3915 


5042 


C2F3 


DCOC 


38E8 


3110 


CCF6 


E80C 


17A0 


B1C5 


7110 


CC93 


E65D 


2CE0 


7109 


8C73 


8113 


2907 


BIOS 


ACF4 


269A 


39E5 


6110 


CCOl 


EE9C 


17A4 


2DF7 


Alio 


ACF4 


265C 


38EC 


3509 


0413 


8133 


39BF 


F90B 


E06B 


4113 


34E8 


F113 


CCF2 


E40D 


17A8 


38F5 


511D 


8A64 


680S 


1CB2 


70C8 


CCF3 


COIE 


3911 


3110 


DC64 


640F 


3CE5 


5310 


886F 


E80D 


17AC 


3915 


52CB 


B6F3 


COIA 


38A5 


7110 


CCFF 


E79D 


38EE 


3513 


9B21 


OEID 


18E5 


7310 


E483 


E850 


17B0 


1878 


A712 


BCF3 


ED3D 


3C65 


7105 


CC82 


26BA 


4095 


5310 


8883 


BE6C 


28A6 


7310 


E4F2 


245C 


17B4 


38B5 


70C7 


CCF2 


2B3F 


60E8 


3110 


CCF3 


E400 


B966 


7110 


CC03 


E65C 


45E2 


7027 


CCFl 


AEF2 


17B8 


38E5 


70A5 


CCF3 


EEEB 


389C 


3510 


0BC3 


ACOO 


20E5 


7223 


85E1 


9840 


38E5 


6105 


8CD3 


E6EA 


17BC 


21F5 


7113 


CC93 


E59D 


3DF5 


6310 


C891 


E805 


3805 


7110 


CCF3 


ECOF 


B8EB 


2310 


C5EB 


E40D 


17C0 


39E7 


3110 


FCF2 


E5BC 


B4B7 


F245 


F6F1 


AB16 


36F3 


5310 


C4FB 


OC42 


38E5 


7113 


CC91 


9930 


17C4 


20E5 


7185 


CC73 


E70B 


391E 


FIAO 


CCF3 


FEIC 


1C7F 


FB78 


E071 


EOOO 


60E9 


F109 


C2F1 


801B 


17C8 


3AF0 


08CD 


1868 


DC02 


2CEE 


8109 


CCDl 


8019 


3CE6 


71A0 


C493 


E66C 


38E8 


BllO 


8DF1 


980E 


17CC 


38D1 


311D 


CCF3 


D0B3 


3865 


7000 


CCF3 


EED2 


38E7 


3105 


CCF3 


E752 


70E0 


OFIO 


0A63 


E40C 


17D0 


38A5 


70CB 


CCF3 


C012 


3BA6 


7110 


CCFO 


2400 


3867 


7424 


0043 


0B56 


38E7 


7110 


CCF3 


E580 


17D4 


60E4 


OBIO 


00F3 


E57D 


38AF 


3425 


C6A3 


E75F 


38E5 


7595 


C6E3 


E5B1 


60E1 


0010 


00B3 


E40C 


17D8 


74E0 


OBIO 


6DF3 


E57C 


74A0 


0A25 


40F3 


E41C 


38A5 


7020 


CCF3 


E400 


38E5 


7510 


C073 


E400 


17DC 


ACE2 


7030 


CCFl 


C25C 


38E7 


C311 


76F1 


ECOD 


39D5 


71B0 


CCF3 


E40D 


3C76 


E309 


C891 


C004 


17E0 


39C5 


6110 


8CF3 


E40C 


3 SAB 


24C5 


DE53 


E797 


ACE2 


7110 


00B3 


E40D 


ICEF 


F979 


F877 


7FFF 
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ADDRESS 
17E4. 
17E8: 
17EC: 
17F0. 
17F4: 
17F8. 



3DC5 6305 C897 2386 
38E5 7505 DEC3 E7B2 
38f.E FOCO CD63 E66C 
38E6 AOBO CCF3 CCDC 
3AB5 71H CCFA EeiC 
38E5 7110 CCF3 E40C 



CONTROL STORE 



38D8 9028 CCF3 EOOl 

38D8 9028 FC73 ClEl 

.t8E6 DOOO CC23 E40D 

3C75 8309 8891 C004 

ICEF F979 F877 FFFE 



38ES 7505 DECS E7B2 

38E5 7505 DECS E7B2 

3AB8 Clio 8C7S E61D 

39E5 6110 8CF3 E40D 

3DES 6305 C897 ASCE 
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38D8 9028 FC7S DEOl 

38E5 5110 FC73 E40C 

39FS 6110 9C73 E65D 

2CEB 34C5 DE53 EB97 

38E5 7110 CCF3 E40C 
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ADDRESS 
1800: 
1804: 
1808: 
180C: 
1810: 
1814: 



CONTROL STORE 
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38E6 7110 CCF3 E40C 

2CB7 one 42F3 C54E 

3CEE B109 CC93 COIF 

2CE8 9111 ECF3 E79C 

38E1 3000 DCF3 E80D 

38EF 7510 C6E3 E7ED 



397D 3525 0082 F02D 
54E2 61F5 8C73 E423 
3CB5 71AD CE91 E804 
38E1 3105 FCF3 E44A 
3400 ODOA 1A71 C019 
38E3 5010 CCF3 E40C 



3«E5 7179 CCF3 FFC6 
48A9 A062 ACF3 FCOC 
38CE 351D DOEl E805 
34EF FB09 E093 COIA 
390E BOBO CCF3 E4CC 
38E5 7110 CCF3 E40C 



2CIE9 8510 1123 0003 
38E5 7504 D073 ClOF 
34E0 0D09 1E73 COIA 
2CE8 9113 ECF3 E79D 
38IE5 5110 CE73 E4CD 
38E5 7110 CCF3 E40C 
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